VBA IF THEN with 2 conditions

[dannyh]

Hi All

I have this piece of code that is giving me a Runtime error 424

I need it to check every cell in V and every green cell with value 0 it need it to remove its colour, can anyone tell me why I am getting the error.

    Dim b As Long
    Dim i as Long
    Dim D As Range
    
    b = 2
    For Each D In Range("V2:V" & i - 1)
    If D.Value = Value.Interior.Color = vbGreen And D.Value = "0" Then 'error occurs here
       D.Interior.Color = xlNone
       b = b + 1
    End If
    Next D

Thanks Dan

 

[Peter_SSs]

Is this what you are trying to do?

If D.Interior.Color = vbGreen And D.Value = "0" Then

Also, your code shown does not set a value for i
That will also cause an error if you haven't done that.

What is 'b' supposed to be doing in that loop. It is increasing, but not used anywhere.
Should it be

For Each D In Range("V2:V" & [COLOR="#0000FF"][B]b[/B][/COLOR] - 1)

 

[JoeMo]

Bad syntax. Change this bit:

If D.Value = Value.Interior.Color = vbGreen

to this:

If D.Interior.Color = vbGreen

 

[dannyh]

Perfect guys thanks.

Peter it is some dirty code I nicked from somewhere else, b isn't needed and I have removed it, thanks.

 

[Peter_SSs]

Perfect guys thanks.

Peter it is some dirty code I nicked from somewhere else, b isn't needed and I have removed it, thanks.

You're welcome.
Hopefully you did something about setting 'i' then.

 

[dannyh]

You're welcome.
Hopefully you did something about setting 'i' then.

Yes i is set earlier in the code, last row is also set.

i = 2 to lastrow

Thanks again.