Pokud budeš chtít vkládat data hromadně
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column = "1" Or Target.Column = "3" Then
Range(Target.Address).Offset(, 1).Value = Date
End If
End Sub
Pokud budeš chtít vkládat data hromadně
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column = "1" Or Target.Column = "3" Then
Range(Target.Address).Offset(, 1).Value = Date
End If
End Sub