Pivot Table - Position

[nniedzielski]

Hello-

Working on automating pivot table and still new to it. I recorded a macro to try and piece tings together but need some help. How can I make a selection go to the end position? When I recorded it, position was set to 7, but if there isnt 7 positions it really doesnt do anything.

this is my code:

ActiveSheet.PivotTables("PivotTable1").PivotFields("Age Bucket").PivotItems( _
            "120+").Position = 7
ActiveSheet.PivotTables("PivotTable1").PivotFields("Age Bucket").PivotItems( _
            "180+").Position = 7

thank you much

 

[RoryA]

For example:

Dim ItemCount as long
itemcount = ActiveSheet.PivotTables("PivotTable1").PivotFields("Age Bucket").PivotItems.Count
ActiveSheet.PivotTables("PivotTable1").PivotFields("Age Bucket").PivotItems( _
            "120+").Position = itemcount
ActiveSheet.PivotTables("PivotTable1").PivotFields("Age Bucket").PivotItems( _
            "180+").Position = itemcount

 

[nniedzielski]

perfect