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.

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

--
HTH

Bob Phillips

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

"MOHA" wrote in message
...
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.

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

--
Regards,
Dave


"MOHA" wrote:

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.

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 =


--
Bearacade


------------------------------------------------------------------------
Bearacade's Profile: http://www.excelforum.com/member.php...o&userid=35016
View this thread: http://www.excelforum.com/showthread...hreadid=573849