При активной ячейки результат, если условие в желтой ячейке пусто, то выдать MsgBox("заполните условие"), если ячейка желтая не пустая то при нажати на красную ячейку вывести MsgBox("выполнение макроса")
Коллеги, пропробую описать, что хочу получить
При активной ячейки результат, если условие в желтой ячейке пусто, то выдать MsgBox("заполните условие"), если ячейка желтая не пустая то при нажати на красную ячейку вывести MsgBox("выполнение макроса")Gopronotmore
если имеется в виду выделение, то нужно другое событие [vba]
Код
Private Sub Worksheet_SelectionChange(ByVal Target As Range) If Target.Address = "$H$2" Then If IsEmpty(Range("$D$2")) Then MsgBox ("заполните условие") Else MsgBox ("выполнение макроса") End If End If End Sub
если имеется в виду выделение, то нужно другое событие [vba]
Код
Private Sub Worksheet_SelectionChange(ByVal Target As Range) If Target.Address = "$H$2" Then If IsEmpty(Range("$D$2")) Then MsgBox ("заполните условие") Else MsgBox ("выполнение макроса") End If End If End Sub