Macro to display Tabular View of Active Pivot Table

D

Dave K

Is there some basic code that would allow me to quickly convert the
active Pivot table to "tabular form" (i.e., the same as choosing
Design > Report Layout > Show in Tabular Form).

Even better would be displaying the Pivot table in Tabular Form with
no subtotals....but just the above will suffice as well.

Thx for any suggestions...
 
J

Javed

Pls check if it helps.Will be expecting your feedback.

-------------------------------------------------------------
Just ensure that you select one cell in PivotTable.
------------------------------------------------------------
Sub SDPivotCustomize()

Dim PT As PivotTable, PC As PivotCell, PF As PivotField

Application.ScreenUpdating = True

Set PC = ActiveCell.PivotCell

Set PT = PC.PivotTable

For Each PF In PT.PivotFields
PF.Subtotals = Array(False, False, _
False, False, False, False, False, _
False, False, False, False, False)
Next PF

PT.RowAxisLayout xlTabularRow

Application.ScreenUpdating = False

End Sub
 

Ask a Question

Want to reply to this thread or ask your own question?

You'll need to choose a username for the site, which only take a couple of moments. After that, you can post your question and our members will help you out.

Ask a Question

Similar Threads

Creating Multiple Charts from Same Pivot Table using macro 5
Pivot Table macro - strange behaviour 1
code to delete all rows beneath and columns right of pivot table 3
Access 2003 pivot table subform 0
Pivot table - undo of a macro 1
Pivot Table Macro - How to describe the Active range (so that themacro can be used on new sets of da 1
Pivot Table Automation Questions 1
Macro, how to protect sheet, but allow pivot? 1

Top