Vraag : Foutenmelding die op bevestigingsregel wordt gebaseerd - VB gebeurtenismanager

Hello, voortbouwend op een vorige reactie met deze vraag.  Ik heb een dossier vastgemaakt want reference.

I een popup gegevensbevestiging hebben geplaatst om gebruikers te waarschuwen zij tot een conflct die met mijlen leiden reeds aan iemand anders worden toegewezen.  Dit zal een grondgebied volgende spreadsheet zijn en zal gebeuren, zodat is waarom ik de gebruikers waarschuw en hen niet tegenhoud.

I am zoeken een manier om popup met de details van het conflict te bevolken?  Bijvoorbeeld, hebben popup de gebruiker iets vertellen gelijkend op de „Mijlwaaier u conflicten met me bestaand grondgebied op I-35 inging.  Als dit is wat u van plan bent alstublieft me dienovereenkomstig te doen, aan te passen grondgebied op I-35 "

Thanks aan Harfang en hun werk op dit eerder, vertelden zij me „ik ben vrij zeker ik niet de beste methode ken om alle rijen te vinden die in VB overlappen, zodat zou ik voorstellen u een nieuwe verwante vraag die stelt (de aangewezen verbinding in deze vraag gebruiken). De criteria aan gebruik is: /> Weg

B

R: Road
E van de huidige rij: het Eind Mile
B van de huidige rij: vertrouwdheid/>
My met VBA blinkt binnen uit is limitied aan macro's die ik van het Web heb gekopi�ërd… Ik heb nooit één ideeën geschreven myself.

Any als dit kan worden gedaan?

Thank u! van


Territory-test.xls (20 KB)
Related Oplossingen: Determine zijn geweest indien de bevestigde gegevens reeds used zijn geweest

Antwoord : Foutenmelding die op bevestigingsregel wordt gebaseerd - VB gebeurtenismanager

Droevige Wetenschappers, was ik een onzorgvuldige littlem, is hier een herziene versie. 
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:

Openbare SubCheckRoad (iRow als Geheel)
    Schemerige lLastRow zoals lang
    
    LastRow& = Cellen (Rows.Count, 3). Eind (xlUp). Rij
    sRoad = Cellen (iRow, 2). Waarde
    Begin = Cellen (iRow, 3). Waarde
    Afwerking = Cellen (iRow, 4). Waarde
    het bWarning = Vals
    
    Voor ix = 2 aan LastRow
        Als ix <> iRow toen
            Als Cellen (ix, 2). Waarde = sRoad toen
                Als Cellen (ix, 3). Het Begin en de Cellen van de waarde >= (ix, 3). Waarde <>= Begin en Cellen (ix, 4). Waarde  <>
Andere oplossingen  
 
programming4us programming4us