Select items in Page fields in Pivot table using VBA

ericj

New Member
Joined
Mar 16, 2011
Messages
11
Hello
Using Excel 2010

I have these two pieces of code below that put 2 fields into the page area of a pivot table.
I want to choose 2 out of 40 items in OrderID
I want to choose 1 out of 20 items in CustomerID

Is this possible without having to write true vs false code for each item in VBA?

Any alternative code greatly appreciated.

'Insert Page Fields
With ActiveSheet.PivotTables("SalesPivotTable").PivotFields("OrderID")
.Orientation = xlPageField
.Position = 1
End With

With ActiveSheet.PivotTables("SalesPivotTable").PivotFields("CustomerID")
.Orientation = xlPageField
.Position = 2
End With

Thank you
Eric
 

Excel Facts

Who is Mr Spreadsheet?
Author John Walkenbach was Mr Spreadsheet until his retirement in June 2019.
For CustomerID you can just set the currentpage to the value you want. For the other one, you'll have to loop.
 
Upvote 0
For CustomerID you can just set the currentpage to the value you want. For the other one, you'll have to loop.

Thank you.
Could you provide me the actual VBA code how to select just one item and then also how to do a loop?

Thank you
Eric
 
Upvote 0
For a single value:

Code:
ActiveSheet.PivotTables("SalesPivotTable").PivotFields("CustomerID").currentpage = "some value"

For the loop:

Code:
Dim pi as pivotitem
with ActiveSheet.PivotTables("SalesPivotTable").PivotFields("OrderID")
.clearallfilters
for each pi in .pivotitems
if pi.name = "item 1" or pi.name = "Item2" then
pi.visible = true
else
pi.visible = false
end if
next pio
end with
 
Upvote 0

Forum statistics

Threads
1,213,536
Messages
6,114,205
Members
448,554
Latest member
Gleisner2

We've detected that you are using an adblocker.

We have a great community of people providing Excel help here, but the hosting costs are enormous. You can help keep this site running by allowing ads on MrExcel.com.
Allow Ads at MrExcel

Which adblocker are you using?

Disable AdBlock

Follow these easy steps to disable AdBlock

1)Click on the icon in the browser’s toolbar.
2)Click on the icon in the browser’s toolbar.
2)Click on the "Pause on this site" option.
Go back

Disable AdBlock Plus

Follow these easy steps to disable AdBlock Plus

1)Click on the icon in the browser’s toolbar.
2)Click on the toggle to disable it for "mrexcel.com".
Go back

Disable uBlock Origin

Follow these easy steps to disable uBlock Origin

1)Click on the icon in the browser’s toolbar.
2)Click on the "Power" button.
3)Click on the "Refresh" button.
Go back

Disable uBlock

Follow these easy steps to disable uBlock

1)Click on the icon in the browser’s toolbar.
2)Click on the "Power" button.
3)Click on the "Refresh" button.
Go back
Back
Top