Sum totals at last row

  • Thread starter Thread starter Metrazal
  • Start date Start date
M

Metrazal

I am looking to sum several columns (see below) and have the totals listed
on the
last line for each column. I also want to insert the text "TOTAL:" on the
same line in
column A. Following is where I am but I am stuck. Any help would be
appreciated.

Thanks,

Met



CODE, So far:

Application.sum (Range("D2:D"))
Application.sum (Range("E2:E"))
Application.sum (Range("F2:F"))
Application.sum (Range("G2:G"))
Application.sum (Range("H2:H"))
Application.sum (Range("I2:I"))
Application.sum (Range("J2:J"))
Application.sum (Range("K2:K"))
Application.sum (Range("L2:L"))
Application.sum (Range("M2:M"))
Application.sum (Range("N2:N"))
Application.sum (Range("O2:O"))
Application.sum (Range("P2:P"))
Application.sum (Range("Q2:Q"))
Application.sum (Range("R2:R"))
 
Sub AddSums()
Dim lastrow as long, cell as Range
lastrow = cells(rows.count,"D").End(xlup)(2).row
for each cell in Range("D2:R2")
cells(lastrow,cell.column).Value =
application.Sum(cell.Resize(lastrow-2,1))
Next
cells(lastrow,"A").Value = "TOTAL:"
End Sub
 
Met
This macro should do what you want. HTH Otto
Sub SumColumns()
Dim c As Long
Dim LastRow As Long
LastRow = Range("D" & Rows.Count).End(xlUp).Row
Cells(LastRow + 1, 1).Value = "TOTAL"
For c = 4 To 18
Cells(LastRow + 1, c).Value = Application.Sum(Range(Cells(2, c),
Cells(LastRow, c)))
Next c
End Sub
 
Almost... It totals but for some reason it misses the lastrow. It puts the
data on
row 109 instead of row 112, of course the rows will vary depending on when I
run the code. But its almost there. What am I missing?

Thanks,

Met

Tom said:
Sub AddSums()
Dim lastrow as long, cell as Range
lastrow = cells(rows.count,"D").End(xlup)(2).row
for each cell in Range("D2:R2")
cells(lastrow,cell.column).Value =
application.Sum(cell.Resize(lastrow-2,1))
Next
cells(lastrow,"A").Value = "TOTAL:"
End Sub
I am looking to sum several columns (see below) and have the totals listed
on the
Click to expand...
[quoted text clipped - 24 lines]
Application.sum (Range("Q2:Q"))
Application.sum (Range("R2:R"))
Click to expand...
Click to expand...
 
Sub AddSums()
Dim lastrow As Long, cell As Range
With ActiveSheet
.UsedRange
lastrow = .UsedRange.Item(.UsedRange.Count).Row + 1
End With
For Each cell In Range("D2:R2")
Cells(lastrow, cell.Column).Value = _
Application.Sum(cell.Resize(lastrow - 2, 1))
Next
Cells(lastrow, "A").Value = "TOTAL:"
End Sub



--
Regards,
Tom Ogilvy



Metrazal said:
Almost... It totals but for some reason it misses the lastrow. It puts the
data on
row 109 instead of row 112, of course the rows will vary depending on when I
run the code. But its almost there. What am I missing?

Thanks,

Met

Tom said:
Sub AddSums()
Dim lastrow as long, cell as Range
lastrow = cells(rows.count,"D").End(xlup)(2).row
for each cell in Range("D2:R2")
cells(lastrow,cell.column).Value =
application.Sum(cell.Resize(lastrow-2,1))
Next
cells(lastrow,"A").Value = "TOTAL:"
End Sub
I am looking to sum several columns (see below) and have the totals listed
on the
Click to expand...
[quoted text clipped - 24 lines]
Application.sum (Range("Q2:Q"))
Application.sum (Range("R2:R"))
Click to expand...
Click to expand...
Click to expand...
 
Back
Top