VBA clear filter with a button

[Lolipop]

Hi all,

I want to create a button to clear the filter. I have a data in excel that link with SAP. I have 10 column of data.
May I know vba code to clear all the filter when there is filter applied?
As you can see in the picture below, I have filter the project. So whenever I click the clear filter button, it will clear all the filter.

Thank you in advance for your kind help.

 

[kevin9999]

Assuming your sheet is called "Sheet1" - change to suit

Sub Clear_Filter()
    If Worksheets("Sheet1").AutoFilterMode Then Worksheets("Sheet1").AutoFilter.ShowAllData
End Sub

 

[Lolipop]

Assuming your sheet is called "Sheet1" - change to suit

Sub Clear_Filter()
    If Worksheets("Sheet1").AutoFilterMode Then Worksheets("Sheet1").AutoFilter.ShowAllData
End Sub

I've change the sheet name but it's not working.

 

[kevin9999]

Could you please post a copy of your sheet using the XL2BB - Excel Range to BBCode or alternatively, share your file via Dropbox, Google Drive or similar file sharing platform?

 

[Alex Blakenburg]

Your data appears to be using an Excel table which in VBA is referred to as a List Object.
If that is the cased try this, just put in your Table Name where it says Table1

Sub RemoveFilter()

    Dim lo As ListObject
    
    Set lo = ActiveSheet.ListObjects("Table1")      ' <--- Change to your table name
    If lo.ShowAutoFilter = True Then
        lo.AutoFilter.ShowAllData
    End If

End Sub