I want to sum the values in a range and have the following code:

Dim Total As Integer



For Each c In Worksheets("Error Codes").Range("T10:T45").Cells

Total = Total + c.Value

Next

ErrorCount = Total

I added a watch to c and the looping works or at least appears to ye
it wont extract a value despite the column t10 onwards having values.


Regards in advance for assistance.

Pete

--
Pb2
-----------------------------------------------------------------------
Pb21's Profile: http://www.excelforum.com/member.php...fo&userid=1539
View this thread: http://www.excelforum.com/showthread.php?threadid=27011

Pb21 wrote:

I want to sum the values in a range and have the following code:

Dim Total As Integer



For Each c In Worksheets("Error Codes").Range("T10:T45").Cells

Total = Total + c.Value

Next

ErrorCount = Total

I added a watch to c and the looping works or at least appears to yet
it wont extract a value despite the column t10 onwards having values.


Regards in advance for assistance.

Peter


"extract a value"???

Alan Beban

Maybe you can just...

total = application.sum(Worksheets("Error Codes").Range("T10:T45"))



Pb21 wrote:

I want to sum the values in a range and have the following code:

Dim Total As Integer

For Each c In Worksheets("Error Codes").Range("T10:T45").Cells

Total = Total + c.Value

Next

ErrorCount = Total

I added a watch to c and the looping works or at least appears to yet
it wont extract a value despite the column t10 onwards having values.

Regards in advance for assistance.

Peter

--
Pb21
------------------------------------------------------------------------
Pb21's Profile: http://www.excelforum.com/member.php...o&userid=15398
View this thread: http://www.excelforum.com/showthread...hreadid=270110

--

Dave Peterson

Your code works fine here, but it's an inefficient way of summing a
range.
Try something like this,
errorcount = Application.WorksheetFunction.Sum(Worksheets("Erro r
Codes").Range("T10:T45"))


Regards,
Vic Eldridge


Pb21 wrote in message ...
I want to sum the values in a range and have the following code:

Dim Total As Integer



For Each c In Worksheets("Error Codes").Range("T10:T45").Cells

Total = Total + c.Value

Next

ErrorCount = Total

I added a watch to c and the looping works or at least appears to yet
it wont extract a value despite the column t10 onwards having values.


Regards in advance for assistance.

Peter