Formatconditions color

[HWL]

Excel 2007,
I'm doing a simple loop and trying to see what the formationconditions property will return but it is failing.
The error is object doesn't support this prop.

MsgBox ActiveSheet.Cells(x, y).FormatConditions.interior.color

Where x = a dynamic row number and y = a dynamic col number

I also tried MsgBox ActiveSheet.Cells(X, y).FormatConditions.FormatCondition.Interior.Color with same error.

All I'm trying to do is get the interior color of the conditional formatted cell. Any ideas? Thanks

see: FormatConditions Object [Excel 2007 Developer Reference]

 

[venkat1926]

 msgbox range("A1").Font.ColorIndex

 

[HWL]

Thanks venkat, but that is only going to give me the font color. I'm trying to access the conditional cell color

 

[HWL]

I've figured out how to make this work but only if the first condition is a match. How do I know which condition is active? Currently I am just matching the first condition whether it is active or not.

SAMPLE

'conditional colors
If ActiveSheet.Cells(X, y).FormatConditions.Count > 0 Then
rnger = ConvertToLetter(Val) & X & ":" & ConvertToLetter(Val) & X
If ActiveSheet.Range(rnger).FormatConditions(1).Interior.Color = Label8.BackColor Then
condhit = 1
End If
End If

That code is within a loop of X and y and refers to a function helper to convert the column numbers into letters.

 

[HWL]

ANSWERING my own questions
Using Evaluate (ActiveSheet.Range(rnger).FormatConditions(1).Formula1) I can check if the underlying formulas are true or not. See modified code:

'conditional colors
If ActiveSheet.Cells(X, y).FormatConditions.Count > 0 Then
rnger = ConvertToLetter(Val) & X & ":" & ConvertToLetter(Val) & X
If ActiveSheet.Range(rnger).FormatConditions(1).Interior.Color = Label8.BackColor And Evaluate(ActiveSheet.Range(rnger).FormatConditions(1).Formula1) = True Then
condhit = 1
End If
End If