[mso] Re: Excel Conditional Formatting

John,

I don't remember where I got this, but here is some VBA that you should =
be
able to modify to what you need. This code changes the color of a cell =
based
on the contents of the cell. I know this is based on the contents of the
actual cell, but you should be able to modify to change a cell based on =
the
value of another cell.  HTH, Good luck

Jim

You need to put this in the Worksheet area of the VBA editor
=A0=A0=A0 If (Target.Row =3D 1) Then
=A0=A0=A0=A0=A0=A0=A0 Select Case Target
=A0=A0=A0=A0=A0=A0=A0=A0=A0=A0=A0 Case "A"
=A0=A0=A0=A0=A0=A0=A0=A0=A0=A0=A0=A0=A0=A0=A0 Target.Interior.ColorIndex =
=3D 3
=A0=A0=A0=A0=A0=A0=A0=A0=A0=A0=A0=A0=A0=A0=A0 Target.Font.ColorIndex =3D =
2
=A0=A0=A0=A0=A0=A0=A0=A0=A0=A0=A0 Case "P"
=A0=A0=A0=A0=A0=A0=A0=A0=A0=A0=A0=A0=A0=A0=A0 Target.Interior.ColorIndex =
=3D 4
=A0=A0=A0=A0=A0=A0=A0=A0=A0=A0=A0=A0=A0=A0=A0 Target.Font.ColorIndex =3D =
2
=A0=A0=A0=A0=A0=A0=A0=A0=A0=A0=A0 Case "WO"
=A0=A0=A0=A0=A0=A0=A0=A0=A0=A0=A0=A0=A0=A0=A0 Target.Interior.ColorIndex =
=3D 5
=A0=A0=A0=A0=A0=A0=A0=A0=A0=A0=A0=A0=A0=A0=A0 Target.Font.ColorIndex =3D =
2
=A0=A0=A0=A0=A0=A0=A0=A0=A0=A0=A0 Case "ML"
=A0=A0=A0=A0=A0=A0=A0=A0=A0=A0=A0=A0=A0=A0=A0 Target.Interior.ColorIndex =
=3D 6
=A0=A0=A0=A0=A0=A0=A0=A0=A0=A0=A0=A0=A0=A0=A0 Target.Font.ColorIndex =3D =
2
=A0=A0=A0=A0=A0=A0=A0=A0=A0=A0=A0 Case "LWOP"
=A0=A0=A0=A0=A0=A0=A0=A0=A0=A0=A0=A0=A0=A0=A0 Target.Interior.ColorIndex =
=3D 7
=A0=A0=A0=A0=A0=A0=A0=A0=A0=A0=A0=A0=A0=A0=A0 Target.Font.ColorIndex =3D =
2
=A0=A0=A0=A0=A0=A0=A0=A0=A0=A0=A0 Case "HP"
=A0=A0=A0=A0=A0=A0=A0=A0=A0=A0=A0=A0=A0=A0=A0 Target.Interior.ColorIndex =
=3D 8
=A0=A0=A0=A0=A0=A0=A0=A0=A0=A0=A0=A0=A0=A0=A0 Target.Font.ColorIndex =3D =
2
=A0=A0=A0=A0=A0=A0=A0 End Select
=A0=A0=A0 End If
End Sub

-----Original Message-----
From: mso-bounce@xxxxxxxxxxxxx [mailto:mso-bounce@xxxxxxxxxxxxx] On =
Behalf
Of John Clarke
Sent: Wednesday, September 19, 2007 9:51 AM
To: mso@xxxxxxxxxxxxx
Subject: [mso] Excel Conditional Formatting


Hi All
Is it possible to have more than 3 conditional formatting functions?  I
would like to have 5.

If it isn't, what I want to do is hi-light a cell with a particular =
colour
depending on its content.

Lets say:


In cell A6 I want to enter the letter "C" and have it colour red In cell =
A7
I want to enter the letters "AA" and have it blue
In cell A8 I want to enter the letter "I" and leave it with no-fill      =
etc
etc with about 5 or 6 different sets.

I hope someone can help me.  (In fact, I *Know* someone will)

Kindest regards

John


*************************************************************
You are receiving this mail because you subscribed to mso@xxxxxxxxxxxxx =
or
MicrosoftOffice@xxxxxxxxxxxxxxxx

To send mail to the group, simply address it to mso@xxxxxxxxxxxxx

To Unsubscribe from this group, visit the group's homepage and use the
dropdown menu at the top.  This will allow you to unsubscribe your email
address or change your email settings to digest or vacation (no mail).
http://www.freelists.org/webpage/mso

To be able to share files with the group, you must join our Yahoo sister
group.  This group will not allow for posting of emails, but will allow =
you
to join and share problem files, templates, etc.:
http://tech.groups.yahoo.com/group/MicrosoftOffice . This group is for =
FILE
SHARING ONLY.

If you are using Outlook and you see a lot of unnecessary code in your =
email
messages, read these instructions that explain why and how to fix it:
http://personal-computer-tutor.com/abc3/v28/greg28.htm
*************************************************************
No virus found in this incoming message.
Checked by AVG Free Edition.=20
Version: 7.5.487 / Virus Database: 269.13.22/1015 - Release Date: =
9/18/2007
11:53 AM

No virus found in this outgoing message.
Checked by AVG Free Edition.=20
Version: 7.5.487 / Virus Database: 269.13.22/1015 - Release Date: =
9/18/2007
11:53 AM
=20

*************************************************************
You are receiving this mail because you subscribed to mso@xxxxxxxxxxxxx or 
MicrosoftOffice@xxxxxxxxxxxxxxxx

To send mail to the group, simply address it to mso@xxxxxxxxxxxxx

To Unsubscribe from this group, visit the group's homepage and use the dropdown 
menu at the top.  This will allow you to unsubscribe your email address or 
change your email settings to digest or vacation (no mail).
http://www.freelists.org/webpage/mso

To be able to share files with the group, you must join our Yahoo sister group. 
 This group will not allow for posting of emails, but will allow you to join 
and share problem files, templates, etc.:  
http://tech.groups.yahoo.com/group/MicrosoftOffice . This group is for FILE 
SHARING ONLY.

If you are using Outlook and you see a lot of unnecessary code in your email 
messages, read these instructions that explain why and how to fix it:
http://personal-computer-tutor.com/abc3/v28/greg28.htm
*************************************************************

Other related posts: