Mulitple conditional formatting

[Conditional Formatting]

Conditional formatting in excel limits to three. Is there a way can create
more than three condions. please help

thanks in advance

[E.Q.]

I don't know of any functions that will help (though I imagine one could be
coded - I've never tried). But in general, if you want only four conditions,
you may be able to use a default as one condition and then use the three
conditional formats for the others.
However if you need multiple formats you may need to use code.

The general format for this code would look like:
PRIVATE SUB WORKSHEET_CHANGE(BYVAL TARGET AS RANGE)
'declarations and initializations here

IF NOT INTERSECT (TARGET, RANGE(rangereference)) IS NOTHING THEN

'code for desired formats here

END IF

END SUB

where what I capitalized is usually in Proper case (initial letter cap) and
represents required code. What I used lower case unique to your application.

Hope that gives you a starting point.
E.Q.



"Conditional Formatting" wrote:

> Conditional formatting in excel limits to three. Is there a way can create
> more than three condions. please help
>
> thanks in advance

[Bob Phillips]

Few options.

1. If you only want 4, colour all the cells then add 3 alternate CFs.

2. There is a free beta add-in for multiple conditions (and more formats) at
http://xldynamic.com/source/xld.CFPlus.Download.html

3. You could use worksheet event code. Here is an example

Private Sub Worksheet_Change(ByVal Target As Range)
Const WS_RANGE As String = "H1:H10"

On Error GoTo ws_exit:
Application.EnableEvents = False
If Not Intersect(Target, Me.Range(WS_RANGE)) Is Nothing Then
With Target
Select Case .Value
Case 1: .Interior.ColorIndex = 3 'red
Case 2: .Interior.ColorIndex = 6 'yellow
Case 3: .Interior.ColorIndex = 5 'blue
Case 4: .Interior.ColorIndex = 10 'green
End Select
End With
End If

ws_exit:
Application.EnableEvents = True
End Sub

'This is worksheet event code, which means that it needs to be
'placed in the appropriate worksheet code module, not a standard
'code module. To do this, right-click on the sheet tab, select
'the View Code option from the menu, and paste the code in.


--

HTH

RP

"Conditional Formatting" <[email protected]>
wrote in message news:[email protected]...
> Conditional formatting in excel limits to three. Is there a way can create
> more than three condions. please help
>
> thanks in advance