Здравствуйте, форумчане
Помогите с макросом, пожалуйста.
Имеется накладная, в ней есть две ячейки (C21 , C22), в которых указывается курс доллара и скидка.
Условие:
Если ячейки заполненные, то при запуске макроса ничего не происходит.
Если какая-то ячейка пустая, то выскакивает MsgBox "Хотите указать курс и скидку?"
При клике на кнопку ДА выходим из макроса, если жмем НЕТ - макрос работает дальше.
В данном случае выскакивает OK.
Подскажите, что неправильно сделал.
Пример в файле.
Спасибо.
<sub>Sub Add_discount()
Set ws = ActiveSheet
'получение последней строки в столбце 5
lLastRow = ws.Cells(Rows.Count, 5).End(xlUp).Row

'указываем ячейку C21, с текстом курс (диапазон динамический)
If Cells(lLastRow, 5).Offset(2, -2).Value = 0 Then
MsgBox "Хотите указать курс доллара и скидку?", vbYesNo
End If
'указываем ячейку C22, с текстом скидка
If Cells(lLastRow, 5).Offset(3, -2).Value = 0 Then
MsgBox "Хотите указать курс доллара и скидку?", vbYesNo
End If

Dim answer As Integer
answer = MsgBox("Хотите указать курс доллара и скидку?", vbYesNo)
If answer = vbYes Then
Exit Sub
Else: MsgBox "OK"
End If

End Sub</sub>

Спасибо, решение выглядит очень круто.
P.S. кто хочет попробовать - пропущен оператор Then в первой строке