I have seen this question in reverse on the forum. Usually the question is
to change the font color when criteria is met.

I need to test the font color in order to determine value. I can do it in
code with a for..next loop but I was wondering if it could be done in an if
statement?

Example: If(fontcolor (A2) = "Red", then "Next Day", "Standard")

What would be the syntax?

Thanks for the help.

Chip has lots on colours; www.cpearson.com
best wishes
--
Bernard V Liengme
www.stfx.ca/people/bliengme
remove caps from email

"Gary" wrote in message
...
I have seen this question in reverse on the forum. Usually the question is
to change the font color when criteria is met.

I need to test the font color in order to determine value. I can do it in
code with a for..next loop but I was wondering if it could be done in an
if
statement?

Example: If(fontcolor (A2) = "Red", then "Next Day", "Standard")

What would be the syntax?

Thanks for the help.

Try this:

Sub FontColor()
MsgBox "The Font Color Index is " & ActiveCell.Font.ColorIndex
End Sub

If Cell.Font.ColorIndex = 3 Then xxxx

Peter





"Gary" wrote:

I have seen this question in reverse on the forum. Usually the question is
to change the font color when criteria is met.

I need to test the font color in order to determine value. I can do it in
code with a for..next loop but I was wondering if it could be done in an if
statement?

Example: If(fontcolor (A2) = "Red", then "Next Day", "Standard")

What would be the syntax?

Thanks for the help.

Peter,

Thanks for the quick response.

I may not have been clear. I was looking for a way to enter that same idea
into a cell. Is that possible?

"PDUK1" wrote:

Try this:

Sub FontColor()
MsgBox "The Font Color Index is " & ActiveCell.Font.ColorIndex
End Sub

If Cell.Font.ColorIndex = 3 Then xxxx

Peter





"Gary" wrote:

I have seen this question in reverse on the forum. Usually the question is
to change the font color when criteria is met.

I need to test the font color in order to determine value. I can do it in
code with a for..next loop but I was wondering if it could be done in an if
statement?

Example: If(fontcolor (A2) = "Red", then "Next Day", "Standard")

What would be the syntax?

Thanks for the help.

There is no way within a formula to determine a cell's color,
either background or foreground. You need a VBA function. See the
"Returning The ColorIndex Of A Cell" on
www.cpearson.com/excel/colors.htm .


--
Cordially,
Chip Pearson
Microsoft MVP - Excel
Pearson Software Consulting, LLC
www.cpearson.com


"Gary" wrote in message
...
I have seen this question in reverse on the forum. Usually the
question is
to change the font color when criteria is met.

I need to test the font color in order to determine value. I
can do it in
code with a for..next loop but I was wondering if it could be
done in an if
statement?

Example: If(fontcolor (A2) = "Red", then "Next Day",
"Standard")

What would be the syntax?

Thanks for the help.

Chip,

Thanks for the confirmation. I thought that might be the answer but was
hoping.

"Chip Pearson" wrote:

There is no way within a formula to determine a cell's color,
either background or foreground. You need a VBA function. See the
"Returning The ColorIndex Of A Cell" on
www.cpearson.com/excel/colors.htm .


--
Cordially,
Chip Pearson
Microsoft MVP - Excel
Pearson Software Consulting, LLC
www.cpearson.com


"Gary" wrote in message
...
I have seen this question in reverse on the forum. Usually the
question is
to change the font color when criteria is met.

I need to test the font color in order to determine value. I
can do it in
code with a for..next loop but I was wondering if it could be
done in an if
statement?

Example: If(fontcolor (A2) = "Red", then "Next Day",
"Standard")

What would be the syntax?

Thanks for the help.