If you want to remove all the data fields from a pivot table then adding a new one. Snapshot below -
Here is the code-
Sub remove_data_fields()
Application.ScreenUpdating = False
Application.DisplayAlerts = False
Dim pt As PivotTable
Dim pf As PivotField
Dim pfNew As PivotField
Dim strSource As String
Dim strFormula As String
Set pt = Sheets(1).PivotTables("AKOUL")
' remove all the data fields
For Each pf In pt.DataFields
pf.Orientation = xlHidden
Next pf
' adding a new data field
pt.AddDataField pt.PivotFields(Sheets(1).Range("a1").Value), "Sum of " & Sheets(1).Range("a1").Value, xlSum
Set pt = Nothing
Set pf = Nothing
Application.ScreenUpdating = True
Application.DisplayAlerts = True
End Sub
Download Excel File
Subscribe to:
Post Comments (Atom)
Import data from SQL
Macro to import data from SQL using ADO connection string: Sub Import_data_from_SQL() ' Tools -> References -> Microsoft Active...
-
If you want to add a new menu on mouse right click "Workbook Navigation showing you the list of all open workbooks and worksheets in ea...
-
Macro to Export Range in Json Format Option Explicit Sub export_in_json_format() Dim fs As Object Dim jsonfile Dim rangetoex...
No comments:
Post a Comment