Code:

Application.Sum(Range("C:C"))
Application.Sum(Range("D:D"))


What do I need to do to put the results of the above into the last row
of column "C" and column "D" respectfully.

Thanks,

Met


--
Metrazal
------------------------------------------------------------------------
Metrazal's Profile: http://www.excelforum.com/member.php...o&userid=31648
View this thread: http://www.excelforum.com/showthread...hreadid=519383

Range("C65536") = Application.Sum(Range("C:C"))Range("D65536") =
Application.Sum(Range("D:D"))

Hi Metrazal,


Following macro should do the job ..
Sub Macro1()
Dim i As Long
Worksheets("Sheet1").Range("C1").Select
Selection.End(xlDown).Select
ActiveCell.Offset(1, 0).Range("A1").Select
i = ActiveCell.Row
ActiveCell.Formula = "=SUM(C1:C" & i - 1 & ")"
End Sub

HTH
Cheers
Carim

I could not get either of those to work. Following are the actual
columns that I want to total on the last line. Also, I would like to
put the text "TOTAL:" in column A.

Any ideas?

Thanks,

Met


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"))


--
Metrazal
------------------------------------------------------------------------
Metrazal's Profile: http://www.excelforum.com/member.php...o&userid=31648
View this thread: http://www.excelforum.com/showthread...hreadid=519383

I could not get either of those to work. Following are the actual
columns that I want to total on the last line. Also, I would like to
put the text "TOTAL:" in column A.

Any ideas?

Thanks,

Met


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"))


--
Metrazal
------------------------------------------------------------------------
Metrazal's Profile: http://www.excelforum.com/member.php...o&userid=31648
View this thread: http://www.excelforum.com/showthread...hreadid=519383

I could not get either of those to work. Following are the actual
columns that I want to total on the last line. Also, I would like to
put the text "TOTAL:" in column A.

Any ideas?

Thanks,

Met


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"))


--
Metrazal
------------------------------------------------------------------------
Metrazal's Profile: http://www.excelforum.com/member.php...o&userid=31648
View this thread: http://www.excelforum.com/showthread...hreadid=519383

I could not get either of those to work. Following are the actual
columns that I want to total on the last line. Also, I would like to
put the text "TOTAL:" in column A.

Any ideas?

Thanks,

Met


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"))


--
Metrazal
------------------------------------------------------------------------
Metrazal's Profile: http://www.excelforum.com/member.php...o&userid=31648
View this thread: http://www.excelforum.com/showthread...hreadid=519383

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

--
Regards,
Tom Ogilvy




"Metrazal" wrote in
message ...

I could not get either of those to work. Following are the actual
columns that I want to total on the last line. Also, I would like to
put the text "TOTAL:" in column A.

Any ideas?

Thanks,

Met


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"))


--
Metrazal
------------------------------------------------------------------------
Metrazal's Profile:
http://www.excelforum.com/member.php...o&userid=31648
View this thread: http://www.excelforum.com/showthread...hreadid=519383