D
doog
I need my pivot tables to retain formatting after they are refreshed.
So, I have a VBA module that does this by applying custom styles. It
returns (calls) particular ranges in the pivot table and applys a
particular custom style to each range. But, I can't figure out how to
do this to subtotals. How do you return (select/call) a subtotal range
from a pivot table???
I found this on the net but it does nothing for subtotals!:
Sub ApplyStyles()
With ActiveSheet.PivotTables(1)
TableRange1.Style = "PivLabel" '\ style for cells above row area of
table
DataBodyRange.Style = "PivData" '\ style for data area
RowRange.Style = "PivRow" '\ row area
ColumnRange.Style = "PivColumn" '\ column headings
TableRange1.EntireColumn.AutoFit '\ adjust row and cell heights to fit
new style
End With
End Sub
So, I have a VBA module that does this by applying custom styles. It
returns (calls) particular ranges in the pivot table and applys a
particular custom style to each range. But, I can't figure out how to
do this to subtotals. How do you return (select/call) a subtotal range
from a pivot table???
I found this on the net but it does nothing for subtotals!:
Sub ApplyStyles()
With ActiveSheet.PivotTables(1)
TableRange1.Style = "PivLabel" '\ style for cells above row area of
table
DataBodyRange.Style = "PivData" '\ style for data area
RowRange.Style = "PivRow" '\ row area
ColumnRange.Style = "PivColumn" '\ column headings
TableRange1.EntireColumn.AutoFit '\ adjust row and cell heights to fit
new style
End With
End Sub