VBA to Filter / Unfilter

[Dazzybeeguy]

I want to assign a Macro that unfilters to remove any blanks or values of Zero. When I record a Macro for this it works fine but as soon as another value is entered it does not work, it only filters it to all the options that were there when the macro was recorded. So as per example below if that column then showed Name7 it would not be in the filtered list.

ActiveSheet.Range("$A$3:$DL$1567").AutoFilter Field:=24, Criteria1:=Array( _
"1", "a", "Name1", "Name2", "Name3", "Name4", "Name5", "Name6", "v"), Operator _
:=xlFilterValues
ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True

 

[Fluff]

If you want to hide blanks & zeros, try

ActiveSheet.Range("$A$3:$DL$1567").AutoFilter 24, "<>0", xlAnd, "<>"

 

[Dazzybeeguy]

If you want to hide blanks & zeros, try

ActiveSheet.Range("$A$3:$DL$1567").AutoFilter 24, "<>0", xlAnd, "<>"

Thank you for the help

 

[Fluff]

You're welcome & thanks for the feedback.