Simple IF statement not working

Hi,

This should probably be easy for me to work out but I haven't managed to.

WB has background image to color entire WB so cell interior color = none

Using the following code I want to leave cell color as none if it is none otherwise alternate between the colors in the ElseIf & Else statements.

Please Login or Register  to view this content.

Currently the ElseIf & Else statements work fine but they also work if cell color is none so the IF statement isn't working as it should

Please Login or Register  to view this content.

selects first 7 columns of selected row which I want to keep

Please Login or Register  to view this content.

selects first cell of selected row which I also want to keep

Anyone know where this code is going wrong?

Thanks

If you insert the following statement before the If-statement for debugging purposes, you should see your mistake:

MsgBox xlNone & vbNewLine & Selection.Interior.Color & RGB(255,255,255)

Alternatively, if you know how to use the Immediate Window at a breakpoint on the If-statement, enter:

? xlNone
? Selection.Interior.Color
? RGB(255,255,255)

Thanks for your reply, I am somewhat of a novice so do not know about the Immediate Window or breakpoint and I don't understand the information in the message box that pops up... Sorry

Still learning and trying to work things out

Sample attached with background image used

Clicking highlight in the white area should highlight white/yellow alternately which it does

Outside of white area should do nothing but it also highlights white/yellow

the IF statement isn't working as it should

When something isn't working the way you expect, describe 1) What you expect 2) What is happening instead. I think you may have multiple issues tangled up here and I suspect that something you think is working is not actually working.

xlNone is for ColorIndex, not Color. ColorIndex is an index into the color palette, and has a value of 1-56. If it's value is xlNone, it means no color is assigned to that item. The value of xlNone is -4142.

Color is a Long number that represents the RGB value of the color from 0 - 16,777,215.

Therefore this condition

Please Login or Register  to view this content.

will always be False.

If you refer to the Interior.Color of a Range, and the cells in the range different colors, the value of Color will be 0. I don't know what your cells look like so I can't say if this is an issue with your worksheet.

In the second condition, you are not setting the color to "no color," you are setting it to solid fill with RGB(255, 255, 255) which is white. They are not the same thing. If you want to clear the color to "no color" use

Please Login or Register  to view this content.

The Color property will still be RGB(255,255,255) but the fill is cleared.

Also I strongly advise you to program without GoTo statements to the greatest extent possible. As it happens, in the code you showed here that GoTo has no effect anyway. If you deleted that line of code, the logic would still flow the same way.

Seeing your file helps. I believe this code does what you want. Give it a try.

Please Login or Register  to view this content.

Originally Posted by 6StringJazzer

Seeing your file helps. I believe this code does what you want. Give it a try.

Please Login or Register  to view this content.

Perfect result thank you.

I've spent days trying to work it out and now its written can see where I was going wrong.
It looks somewhat simple as I knew it would be.

Its frustrating as a novice trying to explain what I want and thinking I am explaining it right but it not coming across to you guys quite right.

I do try to work things out before coming here but my knowledge is limited

Works as intended, Thank you for the lesson