VBA looping pivot items in page field - reverse order

[ericlch16]

Hello experts,

Currently i have this VBA code

For Each PvB In pt.PivotFields("Date").PivotItems

next PvB

This "date" field is in the Page field (not column , not row) in the pivot.

How do i change this code so that i loop from bottom to top instead of top to bottom(which is default one)? The date is sorted by ascending order by default but when i loop I want to start the new date first.

 

[Alex Blakenburg]

Try something like this:

Sub PivotPageFltr()

    Dim pt As PivotTable
    Dim pf As PivotField
    Dim PvB As Variant
    Dim ws As Worksheet
    Dim i As Long
    
    Set ws = ActiveSheet
    Set pt = ws.PivotTables(1)

    For i = pt.PivotFields("Date").PivotItems.Count To 1 Step -1
        Set PvB = pt.PivotFields("Date").PivotItems(i)
        Debug.Print PvB.Name
    Next i

End Sub