Inserting a SUM Function

[Ken Loomis]

I need to add a sum formula to some cells on a sheet.

this code fills the ceels that I need to total:

mRow = 4
With Sheets("Street Summary")
For nStreet = 1 To streetNum
.Cells(mRow, 1).Value = streetStats(nStreet, 1)
.Cells(mRow, 2).Value = streetStats(nStreet, 2)
.Cells(mRow, 3).Value = streetStats(nStreet, 3)
.Cells(mRow, 4).Value = streetStats(nStreet, 4)
.Cells(mRow, 5).Value = streetStats(nStreet, 5)
mRow = mRow + 1
Next nStreet
End With


I need to total each of the columns from column 2 thru 5 (Column 1 is a text
label).

So in cell ( row = mRow, col = 2) I need to generate a formula that will
total cells (row = 4, col =2) thru cells (row = 4 + streetNum, Col = 2).

I hope I explained this weel enbough to get som ehelp.

Thanks,
Ken Looms

 

[duane]

Would having vba calculate the sum and place it in the right cell work?
if so this would be easy - although I don't know exactly how to do it
off hand without fooling around a little.

 

[Ken Loomis]

Thanks, Duane. Yeah, that would have worked. I don't know why I got so
focused on doing a sum formula.

But I did figure that out.

The code looks like this:

mRow = mRow - 1

.Cells(mRow + 1, 1).Value = "Total"
.Cells(mRow + 1, 1).HorizontalAlignment = xlRight
.Cells(mRow + 1, 1).Font.Bold = True
.Cells(mRow + 1, 2).Formula = "=sum(B4:B" & mRow & ")"
.Cells(mRow + 1, 3).Formula = "=sum(C4:C" & mRow & ")"
.Cells(mRow + 1, 4).Formula = "=sum(D4" & mRow & ")"
.Cells(mRow + 1, 5).Formula = "=sum(E4:E" & mRow & ")"
.Cells(mRow + 1, 6).Formula = "=sum(F4:F" & mRow & ")"



Thanks for the post.

Ken Loomis