Stopping error from showing VBA

[oliviar]

Hi Excelperts
I have a little macro to clear the autofilter on my page. But if the filter is ALREADY clear, it gives me an error. I have to get it to just do nothing if its already clear to stop this error from popping up (as its going to be distributed to others)

This is my code:

Sub clearfilter()
Sheets("data connection").Select
    Rows("1:1").Select
    ActiveSheet.ShowAllData
End Sub

 

[Michael M]

Try

Sub clearfilter()
Sheets("data connection").ShowAllData
End Sub

 

[oliviar]

That gives me a 1004 error....?

 

[Trebor76]

I think you only want to only show all records if your dataset is currently filtered?? If so, try this:

Sub clearfilter()

    With Sheets("data connection")
        If .FilterMode = True Then
            .ShowAllData
        End If
    End With
        
End Sub

HTH

Robert

 

[oliviar]

Hi Robert, that worked great. Thanks

 

[meldoc]

Hello

Try this it will toggle Autofilter on and off.

<font face=Courier New><SPAN style="color:#00007F">Sub</SPAN> clearfilter()<br>  Sheets("data connection").Rows("1:1").AutoFilter<br><SPAN style="color:#00007F">End</SPAN> <SPAN style="color:#00007F">Sub</SPAN><br></FONT>