Multiple Conditional Format using VBA

**marc5354** · 02-12-2010, 12:47 PM

Hello Guru's and Moderator's

i need help regarding multiple conditional format for more than 3 condition. I don't know how to write code in VBA.

Please help me

...Marc

**Palmetto** · 02-12-2010, 01:09 PM

See this link: Get Around Excels 3 Criteria Limit in Conditional Formatting

**marc5354** · 02-12-2010, 01:31 PM

Thank you so much sir... i got you and now its working...

**marc5354** · 02-12-2010, 02:46 PM

Hello Guru's and Moderator's

I need help regarding multiple conditional format for more than 3 condition. I don't know how to write code in VBA. How to change font colors. If backround colors is Black in particular cell of in particular columns.

Please help me

...Marc

**Palmetto** · 02-12-2010, 04:07 PM

Per the colors you show in your sample workbook.

Option Explicit
Private Sub Worksheet_Change(ByVal Target As Range)

Dim icolor As Integer

    If Not Intersect(Target, Range("A1:A20000")) Is Nothing Then

        Select Case Target

            Case "Confirmed": icolor = 10

            Case "Declined": icolor = 3

            Case "Dispute": icolor = 6

            Case "Dropped Out": icolor = 1

            Case "Refund": icolor = 37

            Case "To Be Charged": icolor = 35

            Case Else: 'Whatever

        End Select

        Target.Interior.ColorIndex = icolor

    End If

End Sub