Při změně bunky vlož datum

[luko02420]

Dobrý den, prosím o radu. Potřebuji makro, které při zmeně ve sloupci A1:A100 vloží datum do sloupce D1:D100, vždy do řádku kde došlo ke zmeně.
Děkuji.

Už jsem něco našel na webu Pavla Lasaka a funguje mi to.

jenom pro info přikládám.

Kód: Vybrat vše

Private Sub Worksheet_Change(ByVal Target As Range)

Application.EnableEvents = False
' zapsání do buňky
Application.EnableEvents = True

If Target.Column = 1 Then
    i = Target.Row
   Cells(i, 4).Value = Format$(Now, "dd/mm/yy hh:nn")
End If
End Sub