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.

Did you try some code? Can you post it? Did you do research on the topic? What did you search for? What did you find? — user7857211
– user7857211, Commented May 5, 2017 at 6:44
No I couldnt find any reference. Foe adding Row, Column and Summation I had used as below. But nothing for FILTER. — meru
– meru, Commented May 5, 2017 at 7:18
Set pvtFld = PvtTbl.PivotFields("Order\ Amendment Approval Stage") pvtFld.Orientation = xlRowField pvtFld.Position = 5 Set pvtFld = PvtTbl.PivotFields("SOWPODateQtr") pvtFld.Orientation = xlColumnField pvtFld.Position = 1 Set pvtFld = PvtTbl.PivotFields("SERVICE ACV IN $ PLANNED") pvtFld.Orientation = xlDataField pvtFld.Position = 1 pvtFld.Function = xlSum pvtFld.NumberFormat = "#,##0" — meru
– meru, Commented May 5, 2017 at 7:18
What exactly do you need a reference for? How to apply filter to pivot table with VBA in Excel? — user7857211
– user7857211, Commented May 5, 2017 at 7:53
While creating a Pivot table manullay, we have the options to enter row fields, column fields, sum fields and then Filter fields. How do i replicate the 'Filter fields" options using VBA ? — meru
– meru, Commented May 5, 2017 at 8:22

Zsmaster · Accepted Answer · 2017-05-05 07:13:09Z

2

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:

answered May 5, 2017 at 7:13

Zsmaster

1,5594 gold badges20 silver badges29 bronze badges

Sign up to request clarification or add additional context in comments.

2 Comments

meru Over a year ago

Is it not easy as adding a row/Column syntax to a pivot. Somehting like this >

meru Over a year ago

Set pvtFld = PvtTbl.PivotFields("Account") pvtFld.Orientation = xlRowField pvtFld.Position = 1

Mahendra Upadhyay · Accepted Answer · 2018-01-02 09:20:38Z

0

Try below line of codes

With ActiveSheet.PivotTables("PivotTable Name").PivotFields("Column Name").Orientation = xlPageField.Position = 1

answered Jan 2, 2018 at 9:20

Mahendra Upadhyay

491 silver badge8 bronze badges

Collectives™ on Stack Overflow

VBA Pivot Table: Add Filter

2 Answers 2

2 Comments

Comments

Your Answer

Linked

Hot Network Questions

Collectives™ on Stack Overflow

2 Answers 2

2 Comments

Comments

Your Answer

Sign up or log in

Post as a guest

Linked

Related