Private Sub Worksheet_Change(ByVal Target As Range) Dim c As Range On Error GoTo xErr: Application.EnableEvents = False For Each c In Target If Not Intersect(c, Range("B:B")) Is Nothing Then If c.Text <> "" And IsNumeric(c.Value) Then c.Offset(0, -1).Value = Now() End If End If Next c Application.EnableEvents = True Exit Sub xErr: Application.EnableEvents = True End Sub
VBA Excel automatické vyplnenie dátumu pri zápise hodnoty