Ga naar inhoud

vba tijd invoeren


lscb

Aanbevolen berichten

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.
 

Link naar reactie
Delen op andere sites

 

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

aangepast door emielDS
Link naar reactie
Delen op andere sites

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.

Link naar reactie
Delen op andere sites

Gast
Dit topic is nu gesloten voor nieuwe reacties.
×
×
  • Nieuwe aanmaken...

Belangrijke informatie

We hebben cookies geplaatst op je toestel om deze website voor jou beter te kunnen maken. Je kunt de cookie instellingen aanpassen, anders gaan we er van uit dat het goed is om verder te gaan.