Macro to remove fields under Pivot Table Values

[Siops]

Hello. Is there a code that will clear/remove any or all fields under Values in Pivot Table?

Thanks in advance!

 

[Domenic]

Try the following code (change the sheet name and pivot table name accordingly)...

Option Explicit

Sub RemoveDataValueFields()

    Dim pt As PivotTable
    Dim pi As PivotItem
    
    Set pt = ThisWorkbook.Worksheets("Sheet1").PivotTables("PivotTable1") 'change the sheet name and pivot table name accordingly
    
    For Each pi In pt.DataPivotField.PivotItems
        pi.Visible = False
    Next pi

End Sub

Hope this helps!

 

[Siops]

Thank you Sir Domenic!

 

[Siops]

Sir Dom, can you also add codes for removing fields under Filter, Column and Rows as well? Thank you!

 

[Domenic]

To clear all pivot fields (Filter, Rows, Columns, Values) at once, you can simply use the following instead...

pt.ClearTable

 

[Siops]

Sir Dom, can you provide the codes for individual fields removal?

 

[Domenic]

Just to be clear, you want each pivot field done separately?

 

[Siops]

Just to be clear, you want each pivot field done separately?

That's correct, sir Dom.

 

[Domenic]

To remove them separetely...

    For Each pf In pt.PageFields
        pf.Orientation = xlHidden
    Next pf

    For Each pf In pt.RowFields
        pf.Orientation = xlHidden
    Next pf

    For Each pf In pt.ColumnFields
        pf.Orientation = xlHidden
    Next pf

 

[Siops]

Thank you so much Sir Dom!