Frage : Fehlermeldung basiert auf Gültigkeitserklärungrichtlinie - VB Ereigniszufuhr

Hallo, errichtend auf einer vorhergehenden Antwort mit dieser Frage.  Ich habe eine Akte für reference.

I habe eingestellt eine Datenprüfung Popup-, um Benutzer zu warnen angebracht, die sie ein conflct mit den Meilen verursachen, die bereits jemand anderes zugewiesen werden.  Dieses ist eine Gegend, die Verteilungsbogen aufspürt und geschieht, damit ist, warum ich die Benutzer warne und sie nicht stoppe.

I morgens nach einer Weise suchend, das Popup- mit den Details des Konflikts zu bevölkern?  Z.B. das Popup- dem Benutzer etwas erklären lassen, das „der Meilenstrecke ähnlich ist, die Sie Konflikte mit mir vorhandene Gegend auf I-35 eintrugen.  Wenn dieses ist, was Sie beabsichtigen, zu tun, zu gefallen ich dementsprechend justieren Gegend auf I-35 "

Thanks zu Harfang und ihre Arbeit über dieses vorher, erklärten sie mir, „ich ich kenne nicht die beste Methode, um alle Reihen zu finden ganz sicher bin, die in VB überschneiden, also würde ich vorschlagen, dass Sie eine neue in Verbindung stehende Frage stellen (using die passende Verbindung in dieser Frage). Die zu verwenden Kriterien ist:

Straße = R und BegMile < E und EndMile > B

R: Road
E der gegenwärtigen Reihe: Ende Mile
B der gegenwärtigen Reihe: Anfang-Meile der gegenwärtigen Reihe "

My Vertrautheit mit VBA übertreffen innen limitied zu den Makro, die ich habe kopiert weg vom Netz… Ich habe nie ein myself.

Any Ideen geschrieben, wenn dieses getan werden kann?

Thank Sie!


Territory-test.xls (20 KBs) (Akten-Art Details) class= " Beschreibung freies leeres " >
" L class= >
example
Territory-test.xls (20 KBs) (Akten-Art Details)
example file
Related Lösungen: Determine gewesen sind, wenn validierte Daten bereits used gewesen sind

Antwort : Fehlermeldung basiert auf Gültigkeitserklärungrichtlinie - VB Ereigniszufuhr

Traurige Savants, war ich ein nachlässiges littlem, bin hier eine korrigierte Version. 
1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:
33:

Allgemeines VorCheckRoad (iRow als ganze Zahl)
    Schwaches lLastRow als lang
    
    LastRow& = Zellen (Rows.Count, 3).End (xlUp). Reihe
    sRoad = Zellen (iRow, 2).Value
    Anfang = Zellen (iRow, 3).Value
    Ende = Zellen (iRow, 4).Value
    bWarning = falsch
    
    Für Ix = 2 zu LastRow
        Wenn iRow <> Ix dann
            Wenn Zellen (Ix, 2).Value = sRoad dann
                Wenn Zellen (Ix, >= 3).Value Anfang und Zellen (Ix, 3).Value <>= Anfang und Zellen (Ix, 4).Value  <>
Weitere Lösungen  
 
programming4us programming4us