Slicer Items in ComboBox

[mightymike]

Hi all,

Hoping somebody could help me on this one.

I have a pivot table linked to a SQL database which in this instance I thought I would use the slicer tool for filtering as it looks nicer than the usual report filter.

I would like to put the data of one of the slicers into a combo box, bit like how you would with pivotitems.

For the life of me I cant work out the correct code for it, could anybody help?

This is my feeble attempt..

Dim SLSP As SlicerItem

Me.CBSalesPerson.Clear

For Each SLSP In Sheets("Order Book").Slicer("Sales Person").SlicerItems

  Me.CBSalesPerson.AddItem SLSP.Name

Next

Thanks in advance.

Mike

 

[Andrew Poulsom]

This worked for me:

Private Sub UserForm_Initialize()
    Dim SLSP As SlicerItem
    Me.CBSalesPerson.Clear
    For Each SLSP In Worksheets("Order Book").PivotTables(1).Slicers("Sales Person").SlicerCache.SlicerItems
        Me.CBSalesPerson.AddItem SLSP.Name
    Next SLSP
End Sub

 

[mightymike]

Thank you very much Andrew, works perfectly.

First time using slicers so not so familiar with the VBA code

Thanks again.

Mike

 

[Andrew Poulsom]

The Object Browser is your friend.