Забыл написать что нужно ещё и время. Но вроде как сам разобрался, и дополнил код этой мелочью. Насколько корректно не знаю. Если кому то нужно то вот он:
Код
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
Помогите пожалуйста с написанием макроса, который бы автозаполнял ячейку датой изменения любой из ячеек заданного диапазона. И делал это однократно. При изменении значения любой из ячеек в диапазоне (B2:R2), ячейка (S2) заполняется первой датой изменения ячейки из этого диапазона. И в дальнейшем значение ячейки (S2) не меняется.
П.С. Поиском искал, но именно конкретно такой случай не нашёл.