Not enough conditional formats

[xyzabc198]

I recently tried to create conditional formatting for the following

If cell = CB turn Yellow Black text bold and itallic
If cell = S/Lit turn Bright Green Black text bold and itallic
If cell = NI turn Gray 40% Black text bold and itallic
If cell = email turn Aqua Black text bold and itallic
If cell = MR turn Lime Black text bold and itallic
If cell = Cleansed turn Rose Black text bold and itallic
If cell = Dup turn Tan Black text bold and itallic
If cell = DNC turn Red Black text bold and itallic
If cell = KW turn Light Orange Black text bold and itallic
If cell = Lead turn Lavander Black text bold and itallic
If cell = LTC turn Plum with white text Bold & Itallic
If cell = Appt turn Pink Black text bold and itallic
If cell = Quote turn Light Blue white text Bold & Itallic
If cell = XAPPT turn Sea Green Black text bold and itallic
If cell = XC turn Dark Yellow Black text bold and itallic

Obviously there is only 3 conditionals available, not 15...
Any other way to do this? maybe a macro? thanks!

 

[Gunswick]

did you include the words "code" at the top and the bottom?

because you shouldnt

this is all you should have in the module:

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Select Case Target.Value
Case "CB"
With Target
.Font.Bold = True
.Font.Italic = True
.Font.ColorIndex = 1
.Interior.Color = vbYellow
End With
Case "S/Lit"
With Target
.Font.Bold = True
.Font.Italic = True
.Font.ColorIndex = 1
.Interior.Color = vbGreen
End With
End Select
End Sub

 

[Jonmo1]

Doh! Can't believe I missed that. Here I am straining to point out to OP to post EVERYTHING in the module, And the OP was posting Everything....but My mind is trained to ignore Code Tags...LOL...

 

[xyzabc198]

did you include the words "code" at the top and the bottom?

because you shouldnt

this is all you should have in the module:

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Select Case Target.Value
Case "CB"
With Target
.Font.Bold = True
.Font.Italic = True
.Font.ColorIndex = 1
.Interior.Color = vbYellow
End With
Case "S/Lit"
With Target
.Font.Bold = True
.Font.Italic = True
.Font.ColorIndex = 1
.Interior.Color = vbGreen
End With
End Select
End Sub

OK, I did that, which stopped the error...but now urm...yeah, nothings happening

 

[xyzabc198]

It's only in column AD that I want this to happen, does that have anything to do with it?

 

[Gunswick]

type CB (in capitals) into a cell, press enter and then click on it again and it will change to yellow.

S/Lit wil go green

so go to the top of the column, and scroll down with the down arrow to change them all

it currently does all cells, not just column AD

 

[xyzabc198]

Tried that, still doesn't work, just stays blank, no colour

 

[xyzabc198]

No Itallics or Bold either...is it just me being stupid and missing a tiny little thing? because I am pretty dull when it comes to Databases :P

 

[xyzabc198]

None of you Excel masters got any other oppinions?

 

[Gunswick]

it DOES work. I made a workbook and had it working in 10 seconds!

you must be doing something wrong...

make a new workbook, open it and go to sheet 1.

at the bottom, where it has the tab "sheet 1", right click the words sheet 1 on the tab, and select view code.

then paste in the code there:

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Select Case Target.Value
Case "CB"
With Target
.Font.Bold = True
.Font.Italic = True
.Font.ColorIndex = 1
.Interior.Color = vbYellow
End With
Case "S/Lit"
With Target
.Font.Bold = True
.Font.Italic = True
.Font.ColorIndex = 1
.Interior.Color = vbGreen
End With
End Select
End Sub


then go back to normal excel and type CB in any cell, press enter.

then press the up arrow or click on the cell where you typed CB.

It will become yellow, italic and bold.

you can do the same for S/Lit

The macro is case sensitive, so you must write CB and not cb or S/LIT etc

 

[xyzabc198]

AHA, I got it to work, I can get all the others to work, my only question is how to get the Gray 40% one to work, what would be the code for that?