Макрос для записи значения в целевую ячейку, в случае если значение текущей ячейки совпало с условием

Пользователь

Сообщений: 18 Регистрация: 21.05.2020

21.05.2020 22:53:53

Похожая тема уже была тут, но итогового решения не нашел.

Задача:
Допустим в столбце А - изначально указана плановая дата завершения чего-либо. Если я в любой ячейке диапазона 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

Изменено: bagdasarov86 - 21.05.2020 23:17:09

Юрий М Модератор Сообщений: 61037 Регистрация: 14.09.2012 Контакты см. в профиле	#2 21.05.2020 23:13:10 bagdasarov86, код следует оформлять соответствующим тегом. Ищите такую кнопку (см. скрин) и исправьте своё сообщение. Прикрепленные файлы Тег VBA.jpg (19.2 КБ)

Юрий М

Модератор

Сообщений: 61037 Регистрация: 14.09.2012

Контакты см. в профиле

21.05.2020 23:21:41

Код

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

bagdasarov86 Пользователь Сообщений: 18 Регистрация: 21.05.2020	#4 21.05.2020 23:28:46 Спасибо большое. Можно закрывать