VBA code to Clear All Slicers in Excel 365 except one/two

[hananak]

Dear All,

I have a 3 sheets in a workbook with many slicers and it is pain to clear them one by one and then reselect every time to do various analysis. There is only one/two slicers that will have fixed values.

I am looking for a VBA code, which will be assigned to a button. on clicking it, it should clear all slicers except that one/two.

Your help would be appreciated.

Thanks.

 

[Trevor G]

Hi as each slicer has a name you can look to hide them or unhide as necessary. Take a look at this thread where I am using an if statement and others that joined in suggested some alternative methods to hide them.

You can manually reset all slicers via the Insert tab and under buttons select Clear All Slicers. You could record a macro to reset all which should provide the code.

Post in thread 'VBA code to hide and unhide all the Slicers in workbook.' VBA code to hide and unhide all the Slicers in workbook.

 

[Trevor G]

Here is an example to reset all slicers:

Sub AllslicersReset()
Dim oSlrC As SlicerCache

For Each oSlrC In ActiveWorkbook.SlicerCaches
    oSlrC.ClearManualFilter
Next oSlrC
End Sub