Confirm AutoFilter is on

[mcnealfbm]

I have a macro that copies data from one page to other pages based on various filter criteria. It works perfectly as long as when I start the macro, the main worksheet already has the filters on. If there are no filters in place then it stops the first time it needs to filter on a column.

I tried
Selection.CurrentRegion.Select
Selection.AutoFilter

But if the filters are on, it turns them off.

I tried using EnableAutoFilter = True
but that didn't.

Is there something simple once I've selected my range to turn on filters if they are off, or to leave them on if they are on?

Frances

 

[VoG]

Try testing the AutoFilterMode property.

 

[Trevor G]

Try something like this

<font face=Courier New><SPAN style="color:#00007F">Sub</SPAN> filters()<br><SPAN style="color:#00007F">With</SPAN> ActiveSheet<br><br>            .AutoFilterMode = <SPAN style="color:#00007F">False</SPAN><br><br>            .Range("A1:D1").AutoFilter<br><br>    <SPAN style="color:#00007F">End</SPAN> <SPAN style="color:#00007F">With</SPAN><br></FONT>

 

[mcnealfbm]

Thanks! It worked perfectly.