Most Valuable Professional


View Jan Karel Pieterse's profile on LinkedIn subscribe to rss feed
Subscribe in a reader

Subscribe to our mailing list

* indicates required

Audit !!!

Check out our RefTreeAnalyser
the ultimate Excel formula auditing tool.

Trainings

Excel VBA Masterclass (English)
Excel VBA for Financials (Dutch)

Third party tools

Speed up your file

FastExcel
The best tool to optimise your Excel model!

Repair your file

Stellar Phoenix Excel Repair
Best tool to repair corrupt Excel sheets and objects
Home > English site > Articles > Pivottable Slicers > Show Selected Items

Showing selected Slicer items on a worksheet

Even though it is often sufficient to see the slicer on the workbook it can be useful to be able to get a list of the filtered sliceritems in a worksheet cell. If your pivottable is built using a powerpivot model, then you can access this information by using the CUBERANKEDMEMBER worksheet function. If however the slicer was built off of a "normal" pivottable, then you need a bit of VBA code in a User Defined Function (UDF).

The slicer name

In order to retrieve the selected slicer items we need slicer's internal name, both for the CUBERANKEDMEMBER function and for the UDF. This name can be shown in the userinterface by right-clicking the slicer in question and selecting "Slicer settings". The name you are looking for is marked in red in the screenshot below and indicated by "Name to use in formulas":

Slicer settings dialog, needed name highlighted in red

CUBERANKEDMEMBER (for powerpivot slicers)

The CUBERANKEDMEMBER function returns an array of selected items and hence needs to be into as many (vertical) cells as you expect will be selected in the slicer. See the screenshot below (note the formula has ; as the delimiter, many users need to use the comma instead).

Using the CUBERANKEDMEMBER function

Note, that when less items are selected than the number of cells the function was entered into, the excess cells will show #N/A.

These #N/A's can be hidden with:

=IFERROR(CUBERANKEDMEMBER("PowerPivot Data",Slicer_Name,ROW()-ROW($G$5)),"")

or counted with

=IF(ROW()-ROW($G$5)<=CUBESETCOUNT(CUBESET("PowerPivot Data",Slicer_Name)),CUBERANKEDMEMBER("PowerPivot Data",Slicer_Name,ROW()-ROW($G$5)),"")

The UDF

The code sample below must be placed in a normal module:

Public Function GetSelectedSlicerItems(SlicerName As String) As String
    Dim oSc As SlicerCache
    Dim oSi As SlicerItem
    Dim lCt As Long
    On Error Resume Next
    Application.Volatile
    Set oSc = ThisWorkbook.SlicerCaches(SlicerName)
    If Not oSc Is Nothing Then
        For Each oSi In oSc.SlicerItems
            If oSi.Selected Then
                GetSelectedSlicerItems = GetSelectedSlicerItems & oSi.Name & ", "
                lCt = lCt + 1
            End If
        Next
        If Len(GetSelectedSlicerItems) > 0 Then
            If lCt = oSc.SlicerItems.Count Then
                GetSelectedSlicerItems = "All Items"
            Else
                GetSelectedSlicerItems = Left(GetSelectedSlicerItems, Len(GetSelectedSlicerItems) - 2)
            End If
        Else
            GetSelectedSlicerItems = "No items selected"
        End If
    Else
        GetSelectedSlicerItems = "No slicer with name '" & SlicerName & "' was found"
    End If
End Function

The function takes the slicername as its argument and returns a text string (comma delimited) containing the selected items. In a worksheet cell the formula would look like this:

=GetSelectedSlicerItems("Slicer_TeamID2")

Conclusion

Well, I hope I got you started with getting your head around how slicers work and how to address them using VBA. I find Slicers a real gem in Excel 2010 and 2013. A great addition to the product!

 


 


Comments

Showing last 8 comments of 110 in total (Show All Comments):

 


Comment by: Cesar (8/1/2017 8:16:31 PM)

I have the GetSelectedSlicerItems code working. However, How do I get the values of the selected slicers values from the power pivot measures? I am using cubevalue. It returns values for single items. I don't know what formula to use for multiple selected items.
This is the formula I was using.
=CUBEVALUE("ThisWorkbookDataModel","[Measures].[FY18 Budget $]","[Table4].[Allocation Category].[All].["&E$10&"]").
It would pull E10 data if it doesn't include ",". But, I would like to pull data for multiple selected items.

 


Comment by: Jan Karel Pieterse (8/13/2017 5:04:57 PM)

Hi Biprajit,

You simply use the function pointing it to the cell containing the slicername:
=GetSelectedSlicerItems(A2)

 


Comment by: Jan Karel Pieterse (8/13/2017 5:10:21 PM)

Hi Biprajit,

I would simply join them using 6 function calls:

=GetSelectedSLicerItems("Slicer_1")&", "&GetSelectedSLicerItems("Slicer_2)&", "&GetSelectedSLicerItems("Slicer_3)&", "&GetSelectedSLicerItems("Slicer_4)&", "&GetSelectedSLicerItems("Slicer_5)&", "&GetSelectedSLicerItems("Slicer_6)

 


Comment by: Jan Karel Pieterse (8/13/2017 5:17:16 PM)

Hi Cesar,

You have to select as many cells (n=below each other) as you are expecting selected values. Then you enter your formula into those cells as one array formula by pressing control+shift+enter.

 


Comment by: Jeff Weir (8/28/2017 4:49:53 AM)

Hi Jan Karel. I see that there is a .VisibleSlicerItems property that you can directly iterate over, which will be faster than checking the .visible status of each and every .SlicerItem in the cache.

I'm using this:

Public Function SlicerItems(SlicerName As String, Optional sDelimiter As String = "|") As String

    Dim oSc As SlicerCache
    Dim oSi As SlicerItem
    Dim i As Long
    Dim lVisible As Long
    Dim sVisible() As String
    On Error Resume Next
    Application.Volatile
    Set oSc = ThisWorkbook.SlicerCaches(SlicerName)
    If Not oSc Is Nothing Then
        With oSc
            If .FilterCleared Then
                SlicerItems = "(All)"
            Else
                lVisible = .VisibleSlicerItems.Count
                If .VisibleSlicerItems.Count = 1 Then
                    SlicerItems = .VisibleSlicerItems(1).Name
                Else
                    ReDim sVisible(1 To lVisible)
                    For i = 1 To lVisible
                        sVisible(i) = .VisibleSlicerItems(i).Name
                    Next i
                    SlicerItems = Join(sVisible, sDelimiter)
                End If
            End If
        End With
    Else
        SlicerItems = SlicerName & " not found!"
    End If
    
End Function

 


Comment by: Alex (9/11/2017 4:22:19 PM)

Hi,

This code works Great, thank-you! In my slicer I'm filtering Dates, If I wanted the cell result to show a date range instead of each date (ie. 1-Jan-17,2-Jan-17,3-Jan-17) would show as "1-Jan-17 thru 3-Jan-17" would that be possible?

 


Comment by: Jan Karel Pieterse (9/11/2017 5:13:32 PM)

Hi Alex,

One way I can get Excel to do that is by actually grouping the dates on a fixed number of days.
Another would be to add a column which calculates the "period" from the date column and use that for the slicer.

 


Comment by: Lucas Coy (11/20/2017 6:42:50 AM)

Hi Jan,

First of all, your code works fantastic! I do have a question though, is it possible to make it work on a "timeline" slicer? I've used your UDF on the timeline that I have in my sheet but it always returns "No Items Selected" even though it does have items selected. So I'm not sure if it's something I'm doing wrong or what.

Thanks!

 


Have a question, comment or suggestion? Then please use this form.

If your question is not directly related to this web page, but rather a more general "How do I do this" Excel question, then I advise you to ask your question here: www.eileenslounge.com.

Please enter your name (required):

Your e-mail address (optional but if you want me to respond it helps!; will not be shown, nor be used to send you unsolicited information):

Your request or comment:

To post VBA code in your comment, use [VB] tags, like this: [VB]Code goes here[/VB].