PDA

View Full Version : Set SummaryRow format



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!