Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
subtotal question
is there any easier way to use the subtotal property to get the count and
the sum of each group? it seems to only allow one or the other. ..Subtotal GroupBy:=1, Function:=xlSum, TotalList:=Array(8) so i adapted some code from the find help file to do this, but was wondering if there was a better way. Sub AddCount() Dim cell As Range Dim firstaddress As String Dim c As Range Dim lastrow As Long lastrow = Worksheets("Sheet1").Cells(Rows.Count, "B").End(xlUp).Row With Worksheets("sheet1").Range("i4:i" & lastrow) Set c = .Find("subtotal", LookIn:=xlFormulas) If Not c Is Nothing Then firstaddress = c.Address Do c.Offset(0, -4).Formula = Left(c.Formula, 10) & "3," _ & Right(c.Formula, Len(c.Formula) - 12) c.Font.Bold = True c.Offset(0, -4).Font.Bold = True Set c = .FindNext(c) Loop While Not c Is Nothing And c.Address < firstaddress End If End With End Sub -- Gary |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
Subtotal question | Excel Worksheet Functions | |||
subtotal question? | Excel Worksheet Functions | |||
subtotal question | Excel Discussion (Misc queries) | |||
subtotal question | Excel Programming | |||
Subtotal question | Excel Worksheet Functions |