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

Question

Почему этот код не работает? Кол-во "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. Он работает на одном листе, но не на другом.

Любые идеи?

Answer 1

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

Необходимо указать макрос, который 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