Есть таблица, в которой данные для копирования отфильтровываются с помощью автофильтра. Проблема возникает, когда видимых строк нет, т.е. фильтрами ничего не найдено. Макрос просто выдает ошибку и останавливается.
Как его поправить, чтобы он пропускал копирование в таких случаях и шел по коду дальше?
Ошибка происходит в этой строке:
Range("A1:E10").SpecialCells(xlCellTypeVisible).Copy
On Error Resume Next
Range("A1:E10").SpecialCells(xlCellTypeVisible).Copy
If Err.number <> 0 Then
On Error GoTo 0
GoTo Метка
End If
On Error GoTo 0
Метка:
Ура! Спасибо огромное! Работает.