очень часто возникает вопрос: а как вставить в ячейку дату изменения соседней ячейки?
В этом вам поможет маленький макрос
Код
Private Sub Worksheet_Change(ByVal Target As Range)
Dim dat&
dat = Cells(Rows.Count, 1).End(xlUp).Row
If Target.Count > 1 Then Exit Sub
If Not Intersect(Target, Range("A1:A" & dat)) Is Nothing Then
If Target <> "" And Target.Offset(0, 1) = "" Then Target.Offset(0, 1) = Date
End If
End Sub
