Tijd notatie na actie.

[smijch]

Ik zou graag willen weten hoe ik het voor elkaar kan krijgen om na een actie een tijdnotatie van dat moment kan krijgen in een bepaalde cel. Tijdnotatie is me al snel gelukt maar deze loopt mee. Ik zou graag willen dat het dan stil blijft staan zodat ik later kan aflezen wanneer deze actie is uitgevoerd.

Alvast bedank voor de genen die me kan helpen

 

[danny147]

Beste smijch

Zoiets bedoel je ?
Bij het openen van het bestand wordt de tijd gerigistreerd in kolom A

Groetjes Danny. :thumb:

 

[Thankyou]

Deze kan ook, geeft de tijd in een kolom verder als als de range (B2:B100) de range kan je aanpassen, target kolom ook.

Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("B2:B100")) Is Nothing Then
Target.Offset(, 1).Value = Time
End
End If
End Sub


Martin

 

[smijch]

Hoi Danny,

Ja zoiets maar ik zou wat specifieker zijn. ik zou graag bv. als cel b2 is ingevuld in c2 de tijd van deze actie zien en daarna als bv. b3 ingevuld wordt cel c3 de tijd van die actie zien.

Misschien kan dat met jou oplossing Martin maar het lukt me niet echt.

Alvast bedankt voor jullie reactie mannen

 

[Warme bakkertje]

Ik heb 'm even in een bestandje gestoken voor jou
De macro bevindt zich achter blad1

Mvg

Rudi

 

[smijch]

Dat is precies wat ik bedoel Rudi bedankt.

Danny en Martin jullie ook bedankt

Groeten

 

[danny147]

Beste smijch

Kan je de vraag dan op opgelost zetten, onderaan rechts.

Groetjes Danny. :thumb: