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!

 

[davesweep]

Hi,

The essence of what you need is here:

http://www.ozgrid.com/VBA/excel-conditional-formatting-limit.htm

HTH

Dave

 

[hsk]

Probably a vba code on Worksheet.Change event ..... something like

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

[\Code]

 

[xyzabc198]

Probably a vba code on Worksheet.Change event ..... something like

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
 
[\Code][/quote]
 
And where would I enter this?

 

[xyzabc198]

Probably a vba code on Worksheet.Change event ..... something like

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
 
[\Code][/quote]
 
OK I worked out where to enter it but it keep coming up with 
Compile Error:
Invalid outside procedure???

 

[Jonmo1]

That's probably a problem with how you pasted it.

Can you post ALL the code that is in that module ?

 

[xyzabc198]

That's probably a problem with how you pasted it.

Can you post ALL the code that is in that 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
[\Code]

 

[Jonmo1]

That code as you posted it works fine for me.

Are you sure that is ALL the code in the Sheet's Module (not just the code you think is relevant, but EVERYTHING in that module) ?

Also, are you putting it in the Sheet Module (right click the sheet's tab, view code)?

 

[xyzabc198]

that's everything im sure

 

[xyzabc198]

Anyone got anymore ideas#'