Помогите пожалуйста с написанием макроса, который бы автозаполнял ячейку датой изменения любой из ячеек заданного диапазона. И делал это однократно. При изменении значения любой из ячеек в диапазоне (B2:R2), ячейка (S2) заполняется первой датой изменения ячейки из этого диапазона. И в дальнейшем значение ячейки (S2) не меняется.
П.С. Поиском искал, но именно конкретно такой случай не нашёл.
gloomy.cake написал: в дальнейшем значение ячейки (S2) не меняется
чуть "допилил"
Код
Private Sub Worksheet_Change(ByVal Target As Range)
For Each cell In Target
If Not Intersect(cell, Range("B2:R2")) Is Nothing Then
With Range("S2")
If .Value = "" Then
.Value = Date
.EntireColumn.AutoFit
End If
End With
End If
Next cell
End Sub
Согласие есть продукт при полном непротивлении сторон
Забыл написать что нужно ещё и время. Но вроде как сам разобрался, и дополнил код этой мелочью. Насколько корректно не знаю. Если кому то нужно то вот он:
Код
Private Sub Worksheet_Change(ByVal Target As Range)
For Each cell In Target
If Not Intersect(cell, Range("B2:R2")) Is Nothing Then
With Range("S2")
If .Value = "" Then
.Value = Format(Now, "dd.mm.yy h:mm;@")
.EntireColumn.AutoFit
End If
End With
End If
Next cell
End Sub