Страницы: 1
RSS
Запрос на выполнение или отмену макроса
 
Код
Sub Printer()
    ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True, IgnorePrintAreas:=False
    If MsgBox("Сохранить?", vbYesNo) = vbNo Then Exit Sub
    If MsgBox("Сохранить?", vbYesNo) = vbYes Then Worksheets("Импорт").Activate
    Call SaveTXT_UTF8
End Sub

Здравствуйте не получилось сделать кнопку подтверждения или отмены для выполнения макроса или отменить "сохранить" после печати
спросить выполнять макрос или отменить
 
Код
    If MsgBox("Вы действительно хотите сохранить реестр?", vbOKCancel + vbQuestion, "Accept/Reject") = vbCancel Then
        MsgBox "Завершено"
    Exit Sub
    Else
        Worksheets("Импорт").Activate
    Call SaveTXT_UTF8
сделал)
 
Код
Answ =  MsgBox("Вы действительно хотите сохранить реестр?", vbYesNo + vbQuestion, "Accept/Reject") 
if Answ = vbYes  Then
   Worksheets("Импорт").Activate
   Call SaveTXT_UTF8
Else
   MsgBox "Завершено":   Exit Sub
end if
Программисты - это люди, решающие проблемы, о существовании которых Вы не подозревали, методами, которых Вы не понимаете!
 
Ігор Гончаренко, спасибо
Страницы: 1
Наверх