vba tijd invoeren

[lscb]

GECONTROLEERD VAN DE CODE DIE IK HAD GEKREGEN KLOPT DIT INDERDAAD EN HET WERKT

EN IK HEB DE CODE DIE dotchiejack SCHREEF ER NU OPSTAAN EN WERKT PRIMA

 

WAT DE ZE TOPIC BETREFT MAG GESLOTEN WORDEN  ALS ER GEEN VRAGEN MEER ZIJN

[kweezie wabbit]

In hoofdlettetrs typen , staat gelijk aan roepen.

Dat is volgens mij hier nergens voor nodig.

 

18 minuten geleden, lscb zei:

EN IK HEB DE CODE DIE dotchiejack SCHREEF ER NU OPSTAAN EN WERKT PRIMA 

Dan zal het wel OK zijn.

 

14 minuten geleden, lscb zei:

WAT DE ZE TOPIC BETREFT MAG GESLOTEN WORDEN  ALS ER GEEN VRAGEN MEER ZIJN

Jij bent de baas als het gaat om het sluiten van het topic.

Als jij geen vragen meer hebt, kunnen we afsluiten.
 

[emielDS]

 

ja maak nog een range bij
 

Private Sub Worksheet_Change(ByVal target As Range) 
Dim r1, r2 As Range 
Set r1 = Range("B2:C5") 
Set r2 = Range("F2:G5") 
Set r3 = Range("??:??")
If Not Intersect(target, Union(r1, r2,r3)) Is Nothing And Not IsEmpty(target) Then 
Application.EnableEvents = False 
target = Replace(Format(target / 100, "00.00"), ",", ":") 
Application.EnableEvents = True 
End If 
End Sub

verander dan ook Dim r1 ,r2 ,r3 as Range

30 september 2018 aangepast door emielDS

[kweezie wabbit]

1 uur geleden, dotchiejack zei:

@ kweezie in de eerste if staat de vervolg code na Them op dezelfde lijn. Dan heb je geen end if nodig

Klopt maar ik gebruikte die methode nooit en daarom heb ik er niet aan gedacht.

Kan ook alleen maar als er slechts 1 instructie na de THEN komt.

 

We gaan ons niet verliezen in een discussie over "good practice" maar ik gebruikte altijd de methode van meerdere lijnen.

Kwestie van leesbaarheid van de code als het later door iemand anders moet bewerkt worden.

[lscb]

slot mag erop

 

[kweezie wabbit]

Bij deze.