subtotal

[Alam]

As figure shown below I want the sub total shown on right side of figure
column, to be automatically calculated by Excel formula or VBA macro.(e.g
when the empty cell appear in the figure column accordingly subtotal
calculated in right side of the figure column.

1,710.60
1,661.10 3,371.70

2,404.00
1,020.00
1,907.40
1,753.08
2,560.30
2,825.90 12,470.68

1,965.60
1,625.60 3,591.20

2,302.20 2,302.20

2,429.10 2,429.10

2,006.40 2,006.40

Regards

 

[Roger Govier]

Hi

One way
Enter in B2
=IF(A3="",SUM($A$1:A2)-SUM($B$1:B1),"")
and copy down

 

[Joel]

Here is a simple macro


Sub add_totals()

LastRow = Cells(Rows.Count, "A").End(xlUp).Row
FirstRow = 1
For RowCount = 1 To LastRow
If Range("A" & (RowCount + 1)) = "" Then
Range("B" & RowCount).Formula = _
"=sum(A" & FirstRow & ":A" & RowCount & ")"
End If
If Range("A" & RowCount) = "" Then
FirstRow = RowCount + 1
End If
Next RowCount

End Sub

 

[Alam]

Hi,Mr. Joel
Thanks it is great, and if you don’t mind there is small request, I want
this same Macro idea to be Macro in UDF.
Thanks & Regards

 

[Joel]

Doing this functtion in UDF has no advantae than just using a SUM worksheet
function.

 

[Yousoft]

Ok right, thanks for your help.

Doing this functtion in UDF has no advantae than just using a SUM worksheet
function.