VBA filter columns of pivot table.

Hello friends! Hope 2017 is good to you all!

I have the following code; it filters the column and shows the results of Sep-16. I am also trying to display the column “Oct-16”.

But, Oct-16 is not appearing. Please help and thanks a lot in advance!

Sub FilterPivotTable()
Application.ScreenUpdating = False
ActiveSheet.PivotTables("test").ManualUpdate = True

ActiveSheet.PivotTables("test").PivotFields("months").ClearAllFilters

ActiveSheet.PivotTables("test").PivotFields("months").PivotFilters. _
Add Type:=xlCaptionEquals, Value1:="Sep-16", Value2:="Oct-16"



ActiveSheet.PivotTables("test").ManualUpdate = False
Application.ScreenUpdating = True
End Sub

Use / not \ for code tags like: [CODE] [/CODE] or just select your code and click the # icon at the top of your post window.

Attach a sample workbook. Make sure there is just enough data to demonstrate your need. Include a BEFORE sheet and an AFTER sheet in the workbook if needed to show the process you're trying to complete or automate. Make sure your desired results are shown, mock them up manually if necessary.

Remember to desensitize the data.

Click on GO ADVANCED and then scroll down to Manage Attachments to open the upload window.

thanks! the attachment is placed here. ok in the column field I see many choices, I only want the VB code to Display Sep-16 & Oct-16 as two columns (side-by-side).

Try this. Put the months to filter in Variables Value1 & Value2

Sub PivotFilters()
    
    Dim Value1 As String, Value2 As String, PT As PivotTable, PF As PivotField, PI As PivotItem
    
    Set PT = ActiveSheet.PivotTables("test"): Set PF = PT.PivotFields("Months")
    
    PT.ClearAllFilters
    
    Value1 = "Sep-16": Value2 = "Oct-16"
    
    For Each PI In PF.PivotItems
        If PI.Name = Value1 Or PI.Name = Value2 Then
            PF.PivotItems(PI.Name).Visible = True
        Else
            PF.PivotItems(PI.Name).Visible = False
        End If
    Next PI

End Sub

If you want to add another filter, add another variable, say for e.g. Value3 and add it between the FOR Each Loop

If PI.Name = Value1 Or PI.Name = Value2 Or PI.Name = Value3 Then