Loop through AutoFilter Items and Select/Deselect Desired Items

Hello Excel VBA gurus,

I have data (numbers, text and even blanks) in column A

The data in column A has a cell format shown in cell B4. Thus, if number is:

Number in Excel (without cell format)	Number shown in AutoFilter
-150.29	(150)
-0.99	(1)
-0.000456854984	(0)
0	-
0.000123456	0
1.123456	1
SomeText	SomeText

What I'm trying to do here is to loop through AutoFilter items as shown in the AutoFilter (not in "raw" excel format - without custom format) and DESELECT "-", "Current & Prior", "Variance between" and (Blank)

My 1st issue here is that, no matter how I try to google, it seems like there's no AutoFilter Items properties. The closest is to loop through the specified range and only picking the unique. But this is not the same as shown in the AutoFilter.

My 2nd issue here is that with xlfilterValues operator, given my criteria to be an Array, it seems to accept if it's a '=' (equal) operator.

If I were to modify and have it to be Criteria1:="<>" & Array( "-", "Current & Prior", "Variance between", "="), it won't work

So my question is, how do I go about filtering out my desired array list?

Thank you!

Please Login or Register  to view this content.

Loop through AutoFilter Items.png

Originally Posted by sintek

Perhaps...

Please Login or Register  to view this content.

Hi Sitek,

Isn't your code

Please Login or Register  to view this content.

filtering the values that I do not want to filter?

The values that shown are the ones that I'd like to deselect from the autofilter if I were to do it manually

The scenario is that I'd like the macro to click the "drop down" filter, and on the autofilter items, to DESELECT the items...and the items are "-", "Current & Prior", "Variance between", "="