Здравствуйте!
Подскажите пожалуйста как реализовать проставление текущей даты(без обновления даты при повторном открытии документа и в формате ЧЧ.ММ.ГГ без времени) в соседнем от целевого столбца, притом, проставление должно происходить при определенном символе в целевом столбце.
Отыскал код который реагирует на изменение, но довести до нужного мне состояни сам не мог.
авторPrivate Sub Worksheet_Change(ByVal Target As Range)

For Each cell In Target 'проходим по всем измененным ячейкам
If Not Intersect(cell, Range("A2:A100")) Is Nothing Then 'если изменененная ячейка попадает в диапазон A2:A100
With cell.Offset(0, 1) 'вводим в соседнюю справа ячейку дату
.Value = Now
.EntireColumn.AutoFit 'выполняем автоподбор ширины для столбца B, чтобы дата умещалась в ячейке
End With
End If
Next cell
End Sub


В приложенном файле попробовал описать все.
Заранее спасибо за помощь.

Спасибо, есть ещё два маленьких вопросика и уточнение.
Почему то не правильно заполняет если столбец не первый (не 1 _), либо заполняет #### либо 1900 годом на месте первого столбца.
Как сделать перечисление интересующих столбцов и как убрать время ?

код

авторPrivate Sub worksheet_change(ByVal Target As Range)

For Each cell In Target
If cell.Column = 1 _
And cell.Value = 1 _
And IsEmpty(cell.Offset(0, 1)) _
Then cell.Offset(0, 1).Value = Now()
Next cell
End Sub

W_I_N_T_E_R Private Sub worksheet_change(ByVal Target As Range)
For Each cell In Target
If cell.Column = 5 And cell.Value = 1 And IsEmpty(cell.Offset(0, 1)) _
Then cell.Offset(0, 1).Value = Format(Now(), "DD.MM.YYYY")
Next cell
End Sub
Не понимаю почему то работает только на 1 и 5 колонке, при всех остальных заполняет колонку значений (там где ставится единица) 1900 годом, но справа заполняет числом как и надо.
Откуда эти магические числа? точнее почему число 5 ?
exel 2013 года.