Здравствуйте, я читал форум по обработке ошибок, но из-за нехватки знаний, не понимаю как это применить в моем случае. В общем у меня самый банальный макрос, я копирую ячейки из одной книги в листы других разных книг, но при этом в некоторых книгах листы отличаются по названию. В этом случае, я хочу сделать обработку ошибки, чтобы вместо ошибочного наименования листа значения копировались в другое наименование листа (вместо "БДР" нужно копировать в лист "БДР (не заполняем)". Вот то, что я написал, но это не работает, прошу помочь написать правильно.
Sub Копируем_в_БДР()
'
' Копируем_в_БДР Макрос
'
'
On Error GoTo ErrorHandler
Sheets("БДР").Select
ErrorHandler:
MsgBox "Не найден лист БДР"
Sheets("БДР (не заполняем)".Select
Range("E1").Select
ActiveSheet.Paste
Sheets("Договоры").Select
Range("H1").Select
ActiveSheet.Paste
Sheets("ФОТ").Select
Range("Q1").Select
ActiveSheet.Paste
...
Sub Копируем_в_БДР()
'
' Копируем_в_БДР Макрос
'
'
On Error GoTo ErrorHandler
Sheets("БДР").Select
ErrorHandler:
MsgBox "Не найден лист БДР"
Sheets("БДР (не заполняем)".Select
Range("E1").Select
ActiveSheet.Paste
Sheets("Договоры").Select
Range("H1").Select
ActiveSheet.Paste
Sheets("ФОТ").Select
Range("Q1").Select
ActiveSheet.Paste
...
Изменено: - 22.09.2025 08:26:15