Здравствуйте, форумчане
Помогите с макросом, пожалуйста.
Имеется накладная, в ней есть две ячейки (C21 , C22), в которых указывается курс доллара и скидка.
Условие:
Если ячейки заполненные, то при запуске макроса ничего не происходит.
Если какая-то ячейка пустая, то выскакивает MsgBox "Хотите указать курс и скидку?"
При клике на кнопку ДА выходим из макроса, если жмем НЕТ - макрос работает дальше.
В данном случае выскакивает OK.
Подскажите, что неправильно сделал.
Пример в файле.
Спасибо.
Помогите с макросом, пожалуйста.
Имеется накладная, в ней есть две ячейки (C21 , C22), в которых указывается курс доллара и скидка.
Условие:
Если ячейки заполненные, то при запуске макроса ничего не происходит.
Если какая-то ячейка пустая, то выскакивает MsgBox "Хотите указать курс и скидку?"
При клике на кнопку ДА выходим из макроса, если жмем НЕТ - макрос работает дальше.
В данном случае выскакивает OK.
Подскажите, что неправильно сделал.
Пример в файле.
Спасибо.
| Код |
|---|
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
|
