From Column D to D:G
 

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

End Sub

Thankyou.

From Column D to D:G
 

just change the 2nd D to a G

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


--


Gary


"Steved" wrote in message
...
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:D" & r))

End Sub

Thankyou.

From Column D to D:G
 

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" wrote:

just change the 2nd D to a G

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


--


Gary


"Steved" wrote in message
...
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:D" & r))

End Sub

Thankyou.

From Column D to D:G
 

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


Gary


"Steved" wrote in message
...
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" wrote:

just change the 2nd D to a G

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


--


Gary


"Steved" wrote in message
...
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:D" & r))

End Sub

Thankyou.

From Column D to D:G
 

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

On Thu, 24 Nov 2005 16:00:02 -0800, Steved
wrote:

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" wrote:

just change the 2nd D to a G

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


--


Gary


"Steved" wrote in message
...
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:D" & r))

End Sub

Thankyou.

From Column D to D:G
 

Thankyou both for your replies

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

"Gord Dibben" wrote:

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

On Thu, 24 Nov 2005 16:00:02 -0800, Steved
wrote:

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" wrote:

just change the 2nd D to a G

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


--


Gary


"Steved" wrote in message
...
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:D" & r))

End Sub

Thankyou.

From Column D to D:G
 

One mo

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 wrote:

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

End Sub

Thankyou.

--

Dave Peterson

From Column D to D:G
 

Hello from Steved

Thankyou Dave it works as I require.

Cheers

"Dave Peterson" wrote:

One mo

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 wrote:

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

End Sub

Thankyou.

--

Dave Peterson