Compare font colors

[gary]

How can I write a formula to compare the contents of two cells and do
one thing if the font colors are the same and do a different thing if
the font colors are different?

 

[Don Guillett]

How can I write a formula to compare the contents of two cells and do
one thing if the font colors are the same and do a different thing if
the font colors are different?

How did the fonts become colored, manually, or by conditional
formatting?
Also, which version of excel ________?

 

[gary]

How did the fonts become colored, manually, or by conditional
formatting?
Also, which version of excel ________?

Manually.

 

[gary]

Manually.

Microsoft Office Excel 2007.

 

[Don Guillett]

Microsoft Office Excel 2007.

Sub ifManualColor()For Each c In Range("R1:R6")'MsgBox
c.Interior.ColorIndexIf c.Interior.ColorIndex = 36 ThenMsgBox
cElse'whatEnd IfNext cEnd Sub

 

[Don Guillett]

Sub ifManualColor()For Each c In Range("R1:R6")'MsgBox
c.Interior.ColorIndexIf c.Interior.ColorIndex = 36 ThenMsgBox
cElse'whatEnd IfNext cEnd Sub

OK you did ask for font color and a formula. How about a UDF?
Put this in a REGULAR module and then simply use =ic(a2) to check for
blue font

Function ic(x As Range)
If x.Font.ColorIndex = 5 Then
ic = "blue"
Else
ic = "notblue"
End If
End Function

 

[Don Guillett]

Sub ifManualColor()For Each c In Range("R1:R6")'MsgBox
c.Interior.ColorIndexIf c.Interior.ColorIndex = 36 ThenMsgBox
cElse'whatEnd IfNext cEnd Sub

I thought I had posted this. Put in regular module and then =ic(a2) to
check for blue

Function ic(x As Range)If x.Font.ColorIndex = 5 Thenic = "blue"Elseic
= "notblue"End IfEnd Function