Wita,
Mam arkusz, w którym po wpisaniu danych do wiersza w kolumnie 1 obok w tym samym wierszy ale w kolumnie 2 wstawiam datę.
Realizuję to za pomocą takiego, krótkiego skryptu
Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, Range("A:A")) Is Nothing Or Cells(Target.Row, 2) <> "" Then Exit Sub
Cells(Target.Row, 2) = Now
End Sub
Potrzebuję aby takie coś działało dla dwóch kolumn. Tzn. wprowadzam coś w wierszu w kolumnie 1 to obok w kolumnie 2 pojawia się data.
Potem wpisuję coś do kolumny 3 i w kolumnie 4 pojawia się data.