VBA Multiplication Problem

[Stephen_IV]

I want to thank everyone for all the help in the past. I am trying to get this to work but am having a problem this is the problem area If cells(i,2)*cells(i,9). Could someone please straighten me out.

Thanks in advance Stephen.

Sub doesitequal()
Dim i as Long
For i = 1 to 100
If cells(i,2)*cells(i,9)<>cells(i,10) then cells(i,13).interior.colorindex = 3
Next i
End Sub

 

[Norie]

Stephen

What's the actual problem?

Does this work?

Sub doesitequal()
Dim i as Long
For i = 1 to 100
If cells(i,2).Value*cells(i,9).Value<>cells(i,10).Value then cells(i,13).interior.colorindex = 3
Next i
End Sub

By the way could you not just use conditional formatting?

 

[Stephen_IV]

I keep getting a Run time error'13':
Type mismatch
I could use conditional formatting but you cannot count conditional formatting so I need to use code.

 

[Norie]

Stephen

What do you mean you can't count conditional formatting?

All you need to do is use the condition with a sumif/countif/sumproduct etc formula.

Did you try the code I posted?

 

[Stephen_IV]

Norie,

Thanks for getting back to me. What I meant is to count the actual color not the condition. Even with your code I am still getting a Run time error'13':
Type mismatch

 

[tusharm]

I keep getting a Run time error'13':
Type mismatch
I could use conditional formatting but you cannot count conditional formatting so I need to use code.

The type mismatch is probably because you don't have numbers in some of the cells.

And, I don't see anything in your code that cannot be done with C.F.