Дата Изменения стольбца

[Petra]

День Добрый! Подскажите как в Exel сделать так чтобы при изменению информации в одном столбцу изображалась в другом дата и время изменения!

[mchip]

Примерно вот так:

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Cells.Count > 1 Then Exit Sub
If Not Intersect(Target, Range("A1:A1000")) Is Nothing Then
With Target(1, 2)
.Value = Now
.EntireColumn.AutoFit
End With
End If
End Sub

При изменении ячеек "А1:А1000" в соседнюю ячейку записывается дата и время.

[EducatedFool]

Ну или то же самое, только чуть короче:

Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Column = 1 Then Target.Next = Now
End Sub