From Column D to D:G

[Steved]

Hello from Steved

Below will sum Col D How would I get it to sum D:G please

Sub AddSum()
r = Range("D65536").End(xlUp)
MsgBox "SUM:" & _
Application.WorksheetFunction.Sum(Range("D1" & r))

End Sub

Thankyou.

 

[Gary Keramidas]

just change the 2nd D to a G

Application.WorksheetFunction.Sum(Range("D1:G" & r))

 

[Steved]

Hello Gary from Steved

If I sum each Col and the sum the 4 Columns I get 1462003

If I use Application.WorksheetFunction.Sum(Range("D1:G" & r)) I get 1208502.

Is there something I'm doing.

Thankyou.

 

[Gary Keramidas]

you're getting the lastrow number from column D. is that the last row in E.
F and G, too. or is there data below the last row in column D?

use the lastrow variable in the column with the most rows and make sure no
totals are included

 

[Gord Dibben]

Maybe columns E, F or G extend farther down than column D.

As written you will be summing D1:Gr with r being last row in column D


Gord Dibben Excel MVP

 

[Steved]

Thankyou both for your replies

All Columns are the same It's got me stumped.

 

[Dave Peterson]

One more:

MsgBox "SUM:" & Application.WorksheetFunction.Sum(Range("D:G"))

If that doesn't help, maybe your values aren't numbers--they could be text.

You may want to try David McRitchie's routine to clean the data:

http://www.mvps.org/dmcritchie/excel/join.htm#trimall
(look for "Sub Trimall()")

 

[Steved]

Hello from Steved

Thankyou Dave it works as I require.

Cheers