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?

On Nov 7, 5:56*pm, gary wrote:
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 ________?

On Nov 7, 4:07*pm, Don Guillett wrote:
On Nov 7, 5:56*pm, gary wrote:

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 ________?

Manually.

On Nov 7, 4:15*pm, gary wrote:
On Nov 7, 4:07*pm, Don Guillett wrote:

On Nov 7, 5:56*pm, gary wrote:

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 ________?

Manually.

Microsoft Office Excel 2007.

On Nov 7, 6:19*pm, gary wrote:
On Nov 7, 4:15*pm, gary wrote:

On Nov 7, 4:07*pm, Don Guillett wrote:

On Nov 7, 5:56*pm, gary wrote:

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 ________?

Manually.

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

On Nov 8, 7:05*am, Don Guillett wrote:
On Nov 7, 6:19*pm, gary wrote:









On Nov 7, 4:15*pm, gary wrote:

On Nov 7, 4:07*pm, Don Guillett wrote:

On Nov 7, 5:56*pm, gary wrote:

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 ________?

Manually.

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

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

On Nov 8, 7:05*am, Don Guillett wrote:
On Nov 7, 6:19*pm, gary wrote:









On Nov 7, 4:15*pm, gary wrote:

On Nov 7, 4:07*pm, Don Guillett wrote:

On Nov 7, 5:56*pm, gary wrote:

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 ________?

Manually.

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

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