Conditional Formatting

A

Al-Ali

Is there any way to put in more than 3 conditional formattings into a
worksheet?
 
G

Gord Dibben

Into a worksheet.......yes.

You can have 3 CF's per cell(4 counting the default format).

In a cell.........no.

You would need an event procedure.

See David McRitchie's site for info on event code.

http://www.mvps.org/dmcritchie/excel/event.htm

Example code.........

Option Compare Text
Private Sub Worksheet_Change(ByVal Target As Range)
Dim Num As Long
Dim rng As Range
Dim vRngInput As Variant
Set vRngInput = Intersect(Target, Range("D:D"))
If vRngInput Is Nothing Then Exit Sub
On Error GoTo endit
Application.EnableEvents = False
For Each rng In vRngInput
'Determine the color
Select Case rng.Value
Case Is = "A": Num = 10 'green
Case Is = "B": Num = 1 'black
Case Is = "C": Num = 5 'blue
Case Is = "D": Num = 7 'magenta
Case Is = "E": Num = 46 'orange
Case Is = "F": Num = 3 'red
End Select
'Apply the color
rng.Interior.ColorIndex = Num
Next rng
endit:
Application.EnableEvents = True
End Sub

Gord Dibben Excel MVP
 
Top