вместо
With cell.Offset(0, 5) 'вводим в пятую справа ячейку дату
.Value = Now
.EntireColumn.AutoFit 'выполняем автоподбор ширины для столбца B, чтобы дата умещалась в ячейке
End With
записать
cells(Target.row,Columns("o").column)=Now
Написано
Войдите на сайт
Чтобы задать вопрос и получить на него квалифицированный ответ.
With cell.Offset(0, 5) 'вводим в пятую справа ячейку дату
.Value = Now
.EntireColumn.AutoFit 'выполняем автоподбор ширины для столбца B, чтобы дата умещалась в ячейке
End With
записать
cells(Target.row,Columns("o").column)=Now