Automatisch datum

[pakoboy]

Hallo,

is het mogelijk dat als ik in een kolom gegeven invul de kolom ernaast bijhoud wanneer ik de gegeven heb ik gevuld, dus automatisch de datum weergeeft van de dag wanneer ik de gegeven heb ingevuld.

alvast bedakt,

Saoud

 

[exhelp]

Heb je wat VBA kennis?
Kijk hier dan eens naar: http://www.exhelp.be/vba/359

 

[danny147]

Beste pakoboy

Plaats deze code in Blad1 van de VBA editor.
(ALT+F11, dubbelklik op Blad1 en deze code plakken)

Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect([A1:A100], Target) Is Nothing Then
Cells(Target.Row, 2) = Date
End If
End Sub

In kolom A plaatst men gegevens en in kolom B komt de datum te staan.
Neem Date voor datum of neem Now voor datum en uur.

Groetjes Danny. :thumb:

 

[pakoboy]

heel erg bedankt

 

[danny147]

Beste pakoboy

Graag gedaan, kan je dan de vraag op opgelost zetten bovenaan de topic.

Groetjes Danny. :thumb: