Classic Pivot View

[balaji3081]

Hi Guys,

Here is a macro to for getting to the classic view on pivot via a shortcut(Ctrl+r). however the macro has made the pivot very specific to Pivot table 8 , I want it to work for any pivot.

Sub Classic_Pivot()
'
' Classic_Pivot Macro
' to convert to classic view
'
' Keyboard Shortcut: Ctrl+r
'
With ActiveSheet.PivotTables("PivotTable8")
.InGridDropZones = True
.RowAxisLayout xlTabularRow
End With
End Sub

 

[Luke M]

How about this?

Sub Classic_Pivot()
Dim pt As PivotTable
For Each pt In ActiveSheet.PivotTables
    pt.InGridDropZones = True
    pt.RowAxisLayout xlTabularRow
Next pt
End Sub

 

[balaji3081]

works like a charm, thanks

I am looking for a pack of simple macros to save on my excel personnel workbook, is there any source I can get it.
Will make my like easier.

Regards,
Bala

 

[Luke M]

I don't know if there's a "pack" that you can get. Each person's interests are so unique...
I'd recommend starting here: http://dailydoseofexcel.com/archives/2010/07/20/personalxls/
for a good list.

 

[balaji3081]

Great.Thanks, This is so far the best forum i have been.

Regards,
Bala

 

[balaji3081]

Hi Luke, The macros work fine but started facing a funny issue, i save the macro on Personnel XLSB,and I have also linked it to a icon in my customised ribbons, but when I close excel fully and open it again, there are no macros in Personnel.xlsb, and neither do the icons work.

Am I missing on something......!!!!