Iterate over slicer via VBA and select a single item each time

by

Since the question I linked you too in my comment does not have an accepted answer (the user never choose to answer or reply to my suggestion), I will provide the solution to your problem here as well.

Sub slicers(slName As String)

    Dim slItem As SlicerItem, slDummy As SlicerItem
    Dim slBox As SlicerCache

    Set slBox = ActiveWorkbook.SlicerCaches(slName)

    'loop through each slicer item
    For Each slItem In slBox.SlicerItems

        'show all items to start
        slBox.ShowAllItems 'or .ClearManualFilter

        'test each item against itself
        For Each slDummy In slBox.SlicerItems

            'if the item equals the item in the first loop, then select it
            'otherwise don't show it (thus showing 1 at a time between the nested loops)
            If slItem.Name = slDummy.Name Then slDummy.Selected = True Else: slDummy.Selected = False

            'more code to process the data (I suspect)

        Next slDummy

    Next slItem

End Sub

More Related Contents:

  1. How to error handle 1004 Error with WorksheetFunction.VLookup?
  2. How can Excel VBA open file using default application
  3. How to compare two entire rows in a sheet
  4. Run same excel macro on multiple excel files
  5. how to detect whether VBA excel found something?
  6. VBA : save a file with UTF-8 without BOM
  7. Excel tab sheet names vs. Visual Basic sheet names
  8. Saving a Excel File into .txt format without quotes
  9. Determine if cell contains data validation
  10. VBA – Range to jpg picture
  11. Fastest way to delete rows which cannot be grabbed with SpecialCells
  12. Combine multiple Excel workbooks into a single workbook
  13. Excel Macro, inserting internationally valid formula during run-time
  14. Sheet protection: UserInterFaceOnly gone
  15. VBScript – How to make program wait until process has finished?
  16. Making VBA Form TextBox accept Numbers only (including +, – and .)
  17. VBA Convert date to week number
  18. Inserting an Online Picture to Excel with VBA
  19. Change length of For loop while in the loop
  20. VBA – Run Time Error 1004 ‘Application Defined or Object Defined Error’
  21. Consolidating worksheets into one
  22. vba paste not working
  23. mac excel vba loop : from list & then export as pdf
  24. In Excel VBA, what is the way to check if the web page is fully loaded?
  25. Excel Useform: How to hide application but have icon in the taskbar
  26. Reading Web Pages using Excel VBA
  27. Excel VBA: auto click and open file from website
  28. How to have vba execute every 10 minutes?
  29. Read and write from/to registry in VBA
  30. Unable to read data from a CSV using ADO due to the driver thinking I am working with integers/number and showing nulls instead of text

Leave a Comment