Loop sliceritems in a slicercache

TheMadTree

New Member
Joined
Mar 23, 2015
Messages
25
Good afternoon,

I am trying to loop through all the sliceritems in a slicercache but I keep encountering errors.
Can anyone spot the error in the macro below?

Thank you!

Code:
Option Explicit

Sub Slicers()


Dim SCache As SlicerCache
Dim SItem As SlicerItem
Dim SItem2 As SlicerItem


Application.ScreenUpdating = False


Set SCache = ThisWorkbook.slicercaches("Slicer_Distributor_Name")


With SCache


For Each SItem In SCache.SlicerItems


Application.EnableEvents = False


SCache.ClearManualFilter


Application.EnableEvents = True


For Each SItem2 In SCache.SlicerItems
If SItem.Name = SItem2.Name Then SItem2.Selected = True Else: SItem2.Selected = False
Next
        
Next SItem
End With


Application.ScreenUpdating = True
    
End Sub
 

Excel Facts

Difference between two dates
Secret function! Use =DATEDIF(A2,B2,"Y")&" years"&=DATEDIF(A2,B2,"YM")&" months"&=DATEDIF(A2,B2,"MD")&" days"

Forum statistics

Threads
1,223,911
Messages
6,175,333
Members
452,636
Latest member
laura12345

We've detected that you are using an adblocker.

We have a great community of people providing Excel help here, but the hosting costs are enormous. You can help keep this site running by allowing ads on MrExcel.com.
Allow Ads at MrExcel

Which adblocker are you using?

Disable AdBlock

Follow these easy steps to disable AdBlock

1)Click on the icon in the browser’s toolbar.
2)Click on the icon in the browser’s toolbar.
2)Click on the "Pause on this site" option.
Go back

Disable AdBlock Plus

Follow these easy steps to disable AdBlock Plus

1)Click on the icon in the browser’s toolbar.
2)Click on the toggle to disable it for "mrexcel.com".
Go back

Disable uBlock Origin

Follow these easy steps to disable uBlock Origin

1)Click on the icon in the browser’s toolbar.
2)Click on the "Power" button.
3)Click on the "Refresh" button.
Go back

Disable uBlock

Follow these easy steps to disable uBlock

1)Click on the icon in the browser’s toolbar.
2)Click on the "Power" button.
3)Click on the "Refresh" button.
Go back
Back
Top