Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
Pivot SubTotals - Request help
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 | |||
can i add subtotals to subtotals in a pivot table? | Excel Discussion (Misc queries) | |||
How do I unhide the subtotals in a pivot? | New Users to Excel | |||
Pivot Table Question: SubTotals for 2 of 4 Pivot Tables in same worksheet | Excel Programming | |||
Pivot Table Subtotals | Excel Discussion (Misc queries) | |||
Pivot Table request. | Excel Discussion (Misc queries) |