vba tijd invoeren

[lscb]

hallo 

ik wil ( voorbeeld ) in b2:b5 en c2:c5 en f2:f5 en g2:g5 tijden in voeren

maar met vba ....ik voer in 830 en er komt te staan 8:30 dit per cel 

ik heb wel een code gevonden maar dit is voor een kolom dat is het dus niet  het moet echt per cel in te voeren zijn

wij kan mij hier aan helpen

[emielDS]

als je wil geholpen worden kan je best een voorbeeldbestand plaatsen.

[lscb]

1 uur terug, lscb zei:

 

ik hoop dat je hier iets mee kunt

map5.01.xlsm

[emielDS]

 

Ik weet niet of dit aan de eisen voldoet? Ik zie niet in waarom je dat met vba wil doen?

map5.01.xlsx

[lscb]

aangepast code vergeten sorry

 

tik in kolom a een tijd zonder puntjes en je ziet wat ik bedoel maar wat ik wil is dat dit voor enkele cellen is                                         de formule werkt alleen voor een colom
zodra ik er iets ander in tik dan tijd werkt de formule niet meer                                                
 

map5.01.xlsm

[lscb]

thans werk prima

[kweezie wabbit]

Als je verder geen vragen of problemen meer hebt, geef dan een seintje zodat we dit onderwerp kunnen afsluiten.

[lscb]

44 minuten geleden, dotchiejack zei:

Private Sub Worksheet_Change(ByVal target As Range)

de regel komt bij nog 1 keer voor is dat aan te passen de code hier boven lijkt op wat ik heb

alleen is de code die ik al had is iets uitgebreider

30 september 2018 aangepast door lscb

[lscb]

Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Column = 4 And Target.Count = 1 Then
        If Target.Value <= 2359 Then
            Application.EnableEvents = False
            Target.Value = TimeSerial(Int((Target.Value Mod 10000) / 100), (Target.Value Mod 100), 0)
            Cells(Target.Row + 1, Target.Column - 1) = Target.Value
            Application.EnableEvents = True
        End If
    End If
End Sub

 DIT IS EEN ANDERE CODE DIE IK GISTEREN HAD GEKREGEN MAAR ALS JE ZIET IS DE EERSTE REGEL HET ZELFDE ALS DIE VAN U NU IS DE VRAAG IS DIT SAMEN TE VOEGEN  ZO DAT HET TOCH IEDER ZIJ DING DOET 

[kweezie wabbit]

@dotchiejack

Ben je zeker dat dit gaat werken?

Normaal heeft elke IF een END IF

In jou code staan  3 IF statements en maar 2 maal END IF