Фиксация даты при статусе "Выполнено"

[Денис Часенко]

Ребят, во вложении есть файл, нужно чтоб при изменении статуса на выполнено, фиксировалась дата, и так в каждой строке.
Помогите плз.

[kuklp]

В модуль листа:

Код Выделить Развернуть

Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Count > 1 Or Target.Column <> 1 Then Exit Sub
    If Target = "Выполнено" Then Target(, 2) = Date
End Sub