Using IsNumeric with If and For functions

[DarkF1ame]

Hello All,

I'm sure this is very simple but i'm writing to try and further my knowledge. I've found a way to do this with a sumif() formula in the actual worksheet but i like to keep everything in VBA.

Anyway, I'm trying to sum a column of values, but some of the cells in that column have words and sentences instead of numbers, so i need to sum only the numerical values in the column.

What i've come up with so far is

Please Login or Register  to view this content.

Any help would be greatly appreciated.

Thank you all,

DarkF1ame

[vandan_tanna]

replace two lines:

Please Login or Register  to view this content.

[DarkF1ame]

Thank you,

I'm still getting a "runtime-error '13' Type Mismatch.

I don't know why

[vandan_tanna]

I apologize. I didn't check my code before sending.
change

Please Login or Register  to view this content.

to

Please Login or Register  to view this content.

[InvisibleMan]

For simplicity, you could use the SUMIF that you have already established.

Use Application.Worksheetfunction.Sumif(Range("...."),...

For example:

Please Login or Register  to view this content.

This is equivalent to: =SUMIF(B19:B23,B19,C19:C23)


TIM

[DarkF1ame]

^Tim^ I'm trying to make sure the values that return are only numbers, so i don't know how to do that in VBA.

Ok here is the whole thing and I still am not getting it to work.



Jobs.xls

[vandan_tanna]

try this...

Please Login or Register  to view this content.

[InvisibleMan]

You said you had managed to put together a SUMIF formula in the worksheet. I have given you an example of translating that into VBA. I'm sure that would be better than looping through a long list.

What is the SUMIF formula that you are currently using?

TIM

[shg]

The formula in E367 could be replaced with just =SUM(E2:E361)

Sum ignores text and numbers stored as text.