Inserting a SUM Function
 

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

Inserting a SUM Function
 

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.


--
duane


------------------------------------------------------------------------
duane's Profile: http://www.excelforum.com/member.php...o&userid=11624
View this thread: http://www.excelforum.com/showthread...hreadid=268385

Inserting a SUM Function
 

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:D" & 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


"duane" wrote in message
...

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.


--
duane


------------------------------------------------------------------------
duane's Profile:
http://www.excelforum.com/member.php...o&userid=11624
View this thread: http://www.excelforum.com/showthread...hreadid=268385