Conditional Formatting 2

[longhair]

dear all,
trying to do something that i thought would be simple.
i have a spreadsheet that has some conditional formatting. =AND(C2>0,C2>H2,(H2/C2 < 0.5)) to be exact. this changes the color of the cell to colorindex 35 if true. what i'm trying to do is to capture in vba when it evaluates to true and then do a lot of other processing / manipulation.
something along the lines of:

Dim a
a = ActiveCell.FormatConditions(1).Formula1
If (a) Then
...
End If
End Sub

i have not been able to find the correct property of .formatconditions to just return true or false.
any suggestions?
tia
regards,
longhair

 

[Enkay62]

Why not:
[If Range.(yourcelladdress).Interior.Colorindex=35 Then
'code for TRUE
End If]
Hope this helps
Nick

 

[longhair]

Enkay62,
thanks, but when using .formatconditions activecell.interior.colorindex is not affected, it's actually ActiveCell.FormatConditions(1).Interior.ColorIndex that gets changed.

regards,
longhair

 

[rmikesmith]

longhair,

Try this

Dim Formula As String
Dim Result As Boolean

   Formula = ActiveCell.FormatConditions(1).Formula1
   Result = ActiveSheet.Evaluate(Formula)

HTH
Mike

 

[longhair]

rmikesmith,

that did the trick. thanks much!!!!
regards,
longhair