Conditional Format Result - Get Fill Colour

[mikeymay]

Is there a way of establishing the colour of a cell after conditional formatting has been applied?

The following returns the default or non CF set fill color

cell.Interior.Color

The cells have no fill but the CF applied will return Red, Amber or Green but I can't find the correct way to establish this.


Thanks

 

[Georgiboy]

Maybe:

cell.DisplayFormat.Interior.Color

 

[mikeymay]

I've already tried this and returns #VALUE!

 

[Fluff]

What is the rest of your code?

 

[mikeymay]

What is the rest of your code?

Function RAGCheck(cell As Range)

RAGCheck = ???
    
End Function

The cell contains the following formula

=RAGCheck(B6)

 

[Fluff]

Is that all your code?

 

[Georgiboy]

The below line does not seem to be supported inside a function:

cell.DisplayFormat.Interior.Color

A possible workaround could be to have a variable set outside of the function to then call back:

Dim rCol As Long
Function RAGCheck(cell As Range)
    rCol = cell.Interior.Color
    RAGCheck = rCol
End Function

 

[RoryA]

You cannot use DisplayFormat in a UDF called from a cell.

 

[Jaafar Tribak]

Using DisplayFormat in a UDF

Hi, I came accross this topic Excel VBA User Defined Function that counts cells with conditional formatting for counting cells with CF and there was an answer offering a neat workaround which uses the handy Evaluate function to make the DisplayFormat work inside a UDF. Here is an adaption...

www.mrexcel.com