VBA - Pivot Columns header sort as per Criteria List

[Malleshg24]

Hi Team,

Need pivot columns header sorting as per Criteria in Column E.
Pivot columns should get rearranged as per Criteria list E.


Regards,
mg

 

[rahulshewale1]

Hi @Malleshg24

See if is ok ?

Sub ReArrangedColumnField()


'Declare Variable
Dim PtItems1 As String
Dim PtItems2 As String
Dim PtItems3 As String
Dim PtItems4 As String
Dim PtItems5 As String

' Declare Range
PtItems1 = ActiveSheet.Range("E2").Value
PtItems2 = ActiveSheet.Range("E3").Value
PtItems3 = ActiveSheet.Range("E4").Value
PtItems4 = ActiveSheet.Range("E5").Value
PtItems5 = ActiveSheet.Range("E6").Value


PtItems1 = Range("E2").Value

ActiveWorkbook.ShowPivotTableFieldList = False
    
    ActiveSheet.PivotTables("PivotTable1").PivotFields("Age Brucket").PivotItems( _
        PtItems1).Position = 3
  
    ActiveSheet.PivotTables("PivotTable1").PivotFields("Age Brucket").PivotItems( _
        PtItems2).Position = 4
        
    ActiveSheet.PivotTables("PivotTable1").PivotFields("Age Brucket").PivotItems( _
       PtItems3).Position = 5
      
    ActiveSheet.PivotTables("PivotTable1").PivotFields("Age Brucket").PivotItems( _
       PtItems4).Position = 6
      
    ActiveSheet.PivotTables("PivotTable1").PivotFields("Age Brucket").PivotItems( _
       PtItems5).Position = 7
      

End Sub