help with looping range and extracting value

[Pb21]

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

 

[Alan Beban]

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

 

[Dave Peterson]

Maybe you can just...

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

 

[Vic Eldridge]

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


Regards,
Vic Eldridge