How to select multiple items in Excel PIVOT with vba code

Question

How to select multiple ITEMS in Excel PIVOT with vba code.

I want to select store S846 and SG07 in PIVOT. Please suggest

VBA code:

Range("B2").Select

ActiveSheet.PivotTables("PivotTable3").PivotFields("Store").CurrentPage = _

"(All)"

Application.ScreenUpdating = False

ActiveSheet.Range("B2") = "S846"

Application.ScreenUpdating = True

djclements · Answer

amol bhosale&nbsp;Try something along these lines...&nbsp;Sub SelectMultipleItems()
    Dim Item As PivotItem
    With ActiveSheet.PivotTables("PivotTable3").PivotFields("Store")
        .ClearAllFilters
        For Each Item In .PivotItems
            Select Case Item.Name
                Case "S846", "SG07"
                    Item.Visible = True
                Case Else
                    Item.Visible = False
            End Select
        Next Item
        .EnableMultiplePageItems = True
    End With
End Sub

Forum Discussion

How to select multiple items in Excel PIVOT with vba code

Share

Resources