VBA Pivot Table: Add Filter

Question

Using VBA code, I have created a Pivot table and then added row, columns and then the summation values. Now I need to add a filter on a column. Can you please let me know how can I add filters to this column.

Answer 1

Try the following code:

Sub Makró2()
    With ActiveSheet.PivotTables("Kimutatás1").PivotFields("a")
        .PivotItems("asd").Visible = False
        .PivotItems("hj").Visible = False
    End With
End Sub

For example: