Interior.Color not working

[londonwalsall]

I have the following bit of code for changing the fill color of a shape to match that of a cell color. I thought it was working but when I revisited and modified the cell color to a dark red, I find the shape goes to light blue instead. The conditional formatting and cell references are all correct.

Selection.ShapeRange.Fill.ForeColor.RGB = Data.Cells(25,10).FormatConditions(cfValue).Interior.Color

 

[obiron]

Can you use ColorIndex instead (Not Tested)

Selection.ShapeRange.Fill.ForeColor.ColorIndex= Data.Cells(25,10).Interior.ColorIndex

 

[londonwalsall]

No the colorIndex is not a member of the Colorformat object. Futhermore even if it was, my understanding (and I may be wrong here) is that colorIndex only lets me grab a color that is part of the 56 color palette; but what if the user modfiies the color of the cell and defines their own rgb fill color for it?

 

[RoryA]

Is light blue the correct colour for a different conditional format on the cell in question?

 

[londonwalsall]

Very good question - and one that's helped me solve it.

The answer was yes it was. Which led me to realize that I needed to order my conditional formats in a partciular order.

So I had a cell which would have a number between 1 and 5.
Then the conditional format for the cell in question would read this number and assign a color based on the value (If x=1 then ...)

I was also using this number is my formula above (cfValue).

However; what I neede to do was make sure my x=1 conditional format was the very first one in the list; x=2 being the second and so on.

Thanks very much for your prompt help!