Excluding a slicer from being reset

[detweiler]

I have looked, lo, through these internet meadows in hopes of finding something that speaks to a reasonable solution. I have inherited a workbook that I have been told needs a new, 5th, slicer added ( YAY! ), but need to exclude it from being reset when the other 4 slicers are.

The code currently being used I have seen on other posts,

Sub ClearMySlicers()
Dim Slcr As SlicerCache
For Each Slcr In ActiveWorkbook.SlicerCaches
Slcr.ClearManualFilter
Next
End Sub

but nothing that would say reset these 4 and not that one.

Thanks in advance for the help.

 

[detweiler]

UPDATE!

So, my initial post was looking to exclude the 5th slicer from being reset when the user selects the clear filters button, but found where the specific slicers are being called out in the code to be reset and put something like this together,

Sub ClearMySlicers()

ActiveWorkbook.SlicerCaches("Slicer_SlicerName01").ClearManualFilter
ActiveWorkbook.SlicerCaches("Slicer_SlicerName03").ClearManualFilter
ActiveWorkbook.SlicerCaches("Slicer_SlicerName04").ClearManualFilter

End Sub

to test the functionality, but the debugger would always stop at the first ActiveWorkbook line and couldn't get it to work.

If someone could let me know how far off I am with this line of thought would be appreciated.

Again, thanks in advance for the help.

 

[John_w]

Your last macro should work, providing those are the names of the slicers. Here is another way of clearing all slicers except the 5th one:

Public Sub Clear_4_Slicers()
    
    Dim i As Long
    
    For i = 1 To 4
        ActiveWorkbook.SlicerCaches(i).ClearManualFilter
    Next
    
End Sub

 

[detweiler]

John,

Yeah, those are the actual names and no, I keep getting anInvalid procedure call or argument error when I run the filter code.

Once I figure out how to get the new slicer in and working, I'll use your suggestion - seems cleaner that listing each slicer out.

Thank you sir.

 

[detweiler]

John,

Did the trick ma'fren!

Interesting how frustratingly fun and laborious it is to automate the more simpler of worksheet tasks. And it never seems to end either, does it?

Thank you so very much.



This post can been deemed successfully resolved!

 

[Fluff]

@detweiler
Please take the time to read the rules, especially regarding cross posting
Thanks.

 

[detweiler]

Understood. Regardless of circumstance, it was my error.

Thank you for the nudge.