Похожая тема уже была тут, но итогового решения не нашел.
Задача: Допустим в столбце А - изначально указана плановая дата завершения чего-либо. Если я в любой ячейке диапазона C1:C20 указываю значение "Внедрено", то хочу, чтобы текущая дата подставилась в соответствующую ячейку столбца А. Пример: в ячейке С5 указываю "Внедрено", то в ячейке А5 должна подставиться текущая дата.
Подскажите, пожалуйста, как поправить макрос? В VBA ничего не понимаю, макрос склеил с разных форумов (возможно, макрос можно упростить под эту задачу) (Альтернативные варианты с формулами внутри ячейки не интересуют)
Код
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Cells.Count > 1 Then Exit Sub
If Target = "" Then Exit Sub
If Not Intersect(Target, Range("C1:C20")) Is Nothing Then
Application.EnableEvents = False
If Target = "Внедрено" Then
[A1] = DateValue(Now)
End If
End If
Application.EnableEvents = True
End Sub
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Cells.Count > 1 Then Exit Sub
If Target = "" Then Exit Sub
If Not Intersect(Target, Range("C1:C20")) Is Nothing Then
Application.EnableEvents = False
If Target = "Внедрено" Then Target.Offset(0, -2) = Date
End If
Application.EnableEvents = True
End Sub