Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
Pivot Table Question: SubTotals for 2 of 4 Pivot Tables in same worksheet
I am trying to use the code below to put subtotals in 2 of 4 pivot
tables. Pivot Tables 1 and 3 have subtotals, and Tables 2 and 4 do not. All 4 tables are in the same worksheet. The code creates subtotals for Table 1, no subtotals for Table 2 (as desired), but when the code processes Table 3, the subtotals for Table 1 get turned off. Any advice to resolve this would be appreciated. Thank you! ================================================ Public Sub GroupDates() Select Case pt.Name Case "Costs", "Revenues", ShowSub = False Case "Interest Only", "LoanAmount" ShowSub = True End Select If ShowSub Then Set rng = pt.PivotFields("ReportingDate").DataRange MyArray = Array(False, False, False, False, True, True, True) rng.Cells(1).Group Start:=True, End:=True, Periods:=MyArray For Each pf In ActiveSheet.PivotTables(pt.name).RowFields pf.Subtotals(1) = True Next pf End If |
Reply |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
Distributing Pivot Tables where pivot table data can't be accessed | Excel Discussion (Misc queries) | |||
Pivot Table Data Adding contents of two pivot tables and param que | Excel Discussion (Misc queries) | |||
When refreshing pivot tables my pivot table chart type changes | Excel Discussion (Misc queries) | |||
Subtotals in Pivot Tables | Excel Worksheet Functions | |||
Pivot Tables -changing datasource for exsting Pivot Table | Setting up and Configuration of Excel |