kunguito
06-12-2008, 03:15 AM
Hi, :hi:
How could I set the SummaryRow format after grouping?
Is there at least any way to acces directly row numbers or to obtain Ranges?
The code used to add subtotals:
Set RgSubTotal = ws.Range(ws.Cells(Row, Col), ws.Cells(LastRow, LastCol))
RgSubTotal.Subtotal GroupBy:=3, Function:=xlSum, _
TotalList:=Array(4, 5, 6, 7, 8, 9, 10), Replace:=True, PageBreaks:=False, SummaryBelowData:=xlSummaryBelow
ws.Outline.ShowLevels RowLevels:=2
ws.Outline.AutomaticStyles = False
Thanks!
How could I set the SummaryRow format after grouping?
Is there at least any way to acces directly row numbers or to obtain Ranges?
The code used to add subtotals:
Set RgSubTotal = ws.Range(ws.Cells(Row, Col), ws.Cells(LastRow, LastCol))
RgSubTotal.Subtotal GroupBy:=3, Function:=xlSum, _
TotalList:=Array(4, 5, 6, 7, 8, 9, 10), Replace:=True, PageBreaks:=False, SummaryBelowData:=xlSummaryBelow
ws.Outline.ShowLevels RowLevels:=2
ws.Outline.AutomaticStyles = False
Thanks!