Страницы: 1
RSS
Убрать окно ошибки error 1004, Завершение работы макроса с ошибкой
 
Всех приветствую!
В макросе последним действием выполняется выбор видимого (другого) листа и его скрытие, до этого в макросе (на текущем листе) выполняется еще ряд действий, если первоначально лист (другой) скрыт то в самом последнем действие вылетает ошибка и предлагается завершить или исправить, мне в принципе пофигу на эту ошибку т.к. она идет в конце и не несет никакой нагрузки, поэтому ничего исправлять там не надо

Можно ли как то прописать чтобы в случае ошибки ны выскакивало это окно, а автоматически завершался макрос?
 
Добрый день. Добавьте перед последним действием On Error Resume Next. Но это не правильно - надо проверку делать, чтобы ошибка не возникала
 
можно:
в начале процедуры
Код
On Error GoTo На_выход

в конце
Код
На_выход:
End Sub
Программисты - это люди, решающие проблемы, о существовании которых Вы не подозревали, методами, которых Вы не понимаете!
 
Можно сделать так:

Код
    On Error Resume Next
    var1 = 1 / 0                   'строка с ошибкой
    If Err.Number = 1004 Then
        Exit Sub
    ElseIf Err.Number <> 0 Then
        MsgBox "ERR№" & Err.Number & " " & Err.Description, vbCritical
    End If
 
Ігор Гончаренко, Шедеврально, работает
Всем спасибо!
R091n
webley (не сработало, либо я что-то не так сделал))
Страницы: 1
Наверх