Копировать только видимые ячейки

Я пытаюсь скопировать видимые ячейки после использования моего фильтра на другой лист в той же книге, но я не уверен в этом коде. Как это выглядит сейчас:

Sub Button1_Click() Dim i As Integer Dim VisRan As Range VisRan = Sheets(1).Range("a39:bm29684").SpecialCells(xlCellTypeVisible) Visran.Copy Sheets(2).Cells(1, 1).Select Selection.Paste 

Но это не сработает. В чем проблема?
Thx заранее

    Попробуй это:

     Sub Button1_Click() Dim i As Integer Dim VisRan As Range On Error Resume Next Set VisRan = Sheets(1).Range("a39:bm29684").SpecialCells(xlCellTypeVisible) On Error GoTo 0 If VisRan Is Nothing Then MsgBox "There is no visible rows" Exit Sub End If VisRan.Copy Destination:=Sheets(2).Cells(1, 1) End Sub 
    Interesting Posts

    правильное значение не получается от execl в java selenium

    Переменная от VBA до VBScript

    Excel VBA для установки переменной в рабочий лист

    Я хочу иметь возможность выполнять поиск по нескольким столбцам, используя только именованный диапазон в качестве ссылки

    Программно подавить сообщение электронной почты электронной почты Outlook с помощью Excel VBA

    Перемещение переменных Excel VBA класса через вызовы функций

    Лист Excel для приложения Julia?

    Экспорт отчета с несколькими листами с JasperServer в Excel

    Использование Excel в качестве интерфейса для доступа к базе данных Access (с VBA)

    когда вы меняете формат ячеек с помощью опции «Форматировать ячейки», тогда нет события excel

    Что делает вторая указанная кнопка в MsgBox?

    Время вычисления разницы по времени Excel для разных строк

    Решено: использование промежуточных итогов для создания другого взвешенного столбца

    choroplethrZip – передача данных

    Excel VBA не будет корректно форматировать дату после фрагмента

    Давайте будем гением компьютера.