More than 3 conditional formats

[Ice223]

Is there a way to get more than 3 conditional formats without using VB?

I've done a search, but could only find a few macro scripts and I am kind of clueless about VB.

-Ice

 

[Ice223]

Just guessing here...try changing Range("G8") to either Range("8") or Row("8")

-Ice

 

[Yogi Anand]

Hi hedgie:

Please provide some sample data with a little background on what this is about and what you are trying to accomplish. Please provide the requested information and then let us take it from there!

 

[parry]

Hi Hedgie, as Yogi said you really need this type of code to be tailor made to your situation, but based on what you say I think this should be a good start. As you have drop down boxes then this is someone physically typing something in the cell (or choosing selection) as opposed to a formula so this code uses the Change event.

Private Sub Worksheet_Change(ByVal Target As Range)
Dim c As Range, Rng As Range

Set Rng = Intersect(Target, [A:A])
If Rng Is Nothing Then Exit Sub
For Each c In Rng
    If IsError(c) Then
        c.EntireRow.Interior.ColorIndex = xlNone
    Else
        Select Case c
        Case "Open": c.EntireRow.Interior.Color = vbBlue
        Case "In Progress": c.EntireRow.Interior.Color = vbYellow
        Case "More info needed": c.EntireRow.Interior.Color = vbGreen
        Case "Complete": c.EntireRow.Interior.Color = vbRed
        Case Else: c.EntireRow.Interior.ColorIndex = xlNone
        End Select
    End If
Next c
Set Rng = Nothing
End Sub