Groups and Pivot Tables - Excel VBA

With ActiveSheet.PivotTables("PivotTable").PivotFields("Date")
 .Orientation = xlRowField
 .Position = 1
 .DataRange.Cells(1).Group Start:=True, End:=True, Periods:=Array(False, False, False, False, True, False, True)
End With

https://answers.microsoft.com/en-us/msoffice/forum/all/vba-pivot-table-groups-dates-yearsquartersmths-etc/15754480-d386-41ac-a5d5-3d724a0f3e51

https://superuser.com/questions/1495451/group-date-pivot-table-vba-nothing-happening-and-no-errors/1495453#1495453

https://stackoverflow.com/questions/45279335/excel-vba-to-group-by-month-and-year-for-all-pivot-tables-on-activesheet

Array = Seconds-->Minutes-->Hours-->Days-->Months-->Quarters-->Years

Page tree

Groups and Pivot Tables - Excel VBA