Расширенный фильтр не работает

Почему этот код не работает? Col «A» заполняется либо FALSE, либо TRUE. b2 содержит FILTER b3 содержит TRUE

Sub FAST_hide_rows() Range("a1:a153804").AdvancedFilter Action:=xlFilterInPlace,CriteriaRange:=Range("b2:b3"), Unique:=False End Sub 

Код находит все записи, но не скрывает их. Он должен скрывать все строки FALSE. Он работает на одном листе, но не на другом.

Есть идеи?

Он работает на одном листе, но не на другом.

Вам нужно указать макрос, который workhseet должен работать с другим, он будет работать на ActiveSheet.

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

 Sub FAST_hide_rows() Dim WS As Worksheet Set WS = Sheet1 'Change it with your sheet number WS.Range("a1:a153804").AdvancedFilter Action:=xlFilterInPlace,CriteriaRange:=WS.Range("b2:b3"), Unique:=False End Sub 
Interesting Posts

Параметрическая формула Excel с JXLX

Relink .accdb table через Excel

Excel показывает ошибку значения при экспорте

Excel Ошибка времени выполнения '91'

Не удалось отобразить значения соседних ячеек на другом листе, используя VBA

Формула для проверки того, находится ли значение ячейки в столбце в диапазоне ячейки в другом столбце и добавляет значение в той же строке

Использование Excel с C # как раунд?

Проблемы с файлом excel. XLRDError: неподдерживаемый формат или поврежденный файл: какой файл это?

Сравнение Excel и добавление стоимости

Как передать динамику в ячейку Excel с помощью макроса VBA?

Pandas.read_excel: неподдерживаемый формат или поврежденный файл: ожидаемая запись в BOF

«Файл не найден: ошибка VBA6.dll» – странное поведение

Чтение нескольких таблиц Excel в R с использованием readxl и правильных типов переменных

Разделить уникальное значение по частоте нескольких значений

Объединение двух списков для создания словаря

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