how can I conditionally change font color, or background color?

Thread view:

Enable EMail Alerts

Start New Thread

Thread rating:

MOHA - 21 Aug 2006 18:43 GMT

In a test procedure, I end up with a column where I use CountIf to determine
if there are any F (for Fail) characters in the column [=If((CountIf(M25:M95,
"F")=0
("Pass Msg","Fail Msg")). This works OK.
I would like to be able to print the message in red font if it fails, and
blue font if it passes.
I have created a macro that will change the font color, and I can write VBA
code to do it. I have not figured out how to get the macro or the VBA Code to
run automatically following the pass/fail test.
Can it be done?
Security level set at Mediun, I have created a self signed certificate.

Reply to this Message

Bob Phillips - 21 Aug 2006 18:49 GMT

Just use conditional formatting (Format>Conditional Formatting) and set the
font colour to red if the cell value is Fail Msg, Blue if Pass Msg.

Signature

HTH

Bob Phillips

(replace somewhere in email address with gmail if mailing direct)

> In a test procedure, I end up with a column where I use CountIf to determine
> if there are any F (for Fail) characters in the column [=If((CountIf(M25:M95,
[quoted text clipped - 7 lines]
> Can it be done?
> Security level set at Mediun, I have created a self signed certificate.

Reply to this Message

David Billigmeier - 21 Aug 2006 18:54 GMT

Starting in M25, follow these steps. Then, copy formatting down to M95:

<Format>
<Conditional Formatting..."
Choose "Formula Is"
Enter =M25="F", choose a red font
Click "Add >>"
Choose "Formula Is" again
Enter =M25="P", choose a blue font

Signature

Regards,
Dave

Reply to this Message

Bearacade - 21 Aug 2006 18:57 GMT

Why not just use Conditional Format?

To do the VBA:

Range("").Select
Selection.FormatConditions.Delete
Selection.FormatConditions.Add Type:=xlCellValue
Operator:=xlEqual, Formula1:="=""Pass Msg"""
Selection.FormatConditions(1).Font.ColorIndex =
Selection.FormatConditions(1).Interior.ColorIndex

--
Bearacad

Reply to this Message