Multiple Subtotals

[bigfoot]

I've found postings on creating subtotals with unknown number of rows. However, I'm searching for help with vba, for a column with multiple groupings, seperated by a blank rows. once a blank row is encountered, total the quantity of the rows prior to the blank, and keep working down. i guess when it encounters multiple blanks, or perhaps a symbol, it would end that column and move on to the next column. i would also like to select the columns to be summed, since that would vary also. any help would be most appreciated. thanks

 

[Harvey]

is it ok to use the column next to the values?

 

[bigfoot]

thanks for response. a column could be inserted, used and deleted afterwards. since there could be 10-15 columns, it could get pretty big. thanks.

 

[Harvey]

Hi. This function creates a subtotal formula in every empty row after a number of values and makes the text bold. If two subsequent empty rows are found, the function stops.

Sub createsubtotals()

    Dim startoflist As Range
    Dim m_Column As Integer
    Dim m_Row As Integer
    
    m_Column = 1
    m_Row = 1
    
    Do
        If Cells(m_Row, m_Column).Value <> "" Then
            If startoflist Is Nothing Then
                Set startoflist = Cells(m_Row, m_Column)
            End If
        Else
            If Not (startoflist Is Nothing) Then
                Cells(m_Row, m_Column).Formula = "=SUM(" & startoflist.Address & ":" & Cells(m_Row - 1, m_Column).Address & ")"
                Cells(m_Row, m_Column).Font.Bold = True
                Set startoflist = Nothing
            End If
        End If
        m_Row = m_Row + 1
    Loop While Not (Cells(m_Row, m_Column).Value = "" And Cells(m_Row - 1, m_Column).HasFormula = True)

End Sub

 

[bigfoot]

works beautiful. many thanks. couple of questions please.
i noticed that it works on values, but not forumulas. any way to adjust this?
also, any way to input the number of columns sum, instead of one at a time?
regardless, thanks for your help.

 

[bigfoot]

works beautiful. many thanks. couple of questions please.
i noticed that it works on values, but not forumulas. any way to adjust this?
also, any way to input the number of columns sum, instead of one at a time?
regardless, thanks for your help.