Sub Total

[PMARI]

Hi Freinds,

I need a macro to SUBTotal column "C" Balances. Already a blank Row provided,Based on column value "Age"

NAME- AMT- BALANCES- Age
SUPER- 5101- 102 - 190
PREMIER- 4924 - 4924- 187
- - - Total

PREMIER- 93880.8- 93880.8 - 98-
- - -Total

PREMIER- 75709.92- 75709.92- 36
PRECT- 4817.28- 4817.28- 4
- - - Total

Please anybody helpout.

Regards,PM

 

[Anthony47]

Maybe you can use the command Subtotal withour using a macro...
Which excel version do you use?

Bye

 

[PMARI]

Maybe you can use the command Subtotal withour using a macro...
Which excel version do you use?

Bye

Hi,

Myself using 2007. Subtotal can take only changes in the value, it may not total when a balnk cell found in a column row.

 

[Anthony47]

Then you could try this macro:

Sub sbtc()
J = 2
For I = 2 To Cells(Rows.Count, "C").End(xlUp).Row + 1
    If Cells(I, "D") = "" Then
        If Cells(I - 1, "A").Value <> "" Then Cells(I, "C").Formula = "=SUM(R[-1]C:R[" & (J - I) & "]C)"
    J = I + 1
    End If
Next I
End Sub

It scans column D, from row 2 downward, and when an empty cell is found a formula is set in column C to calculate the block subtotal, provided that col A is not empty.

Bye.

 

[PMARI]

Hi Anthony,

Many Thanks. Your help highly appreciated.