Conditional Format Restriction

[blatham]

Is there a way to add more than the 3 conditions that the conditional format allows?

[Bob Phillips]

VBA


'-----------------------------------------------------------------
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.


or maybe try http://www.xldynamic.com/source/xld.....Download.html

--
HTH

Bob Phillips

(remove nothere from email address if mailing direct)

"blatham" <[email protected]> wrote in
message news:[email protected]...
>
> Is there a way to add more than the 3 conditions that the conditional
> format allows?
>
>
> --
> blatham
> ------------------------------------------------------------------------
> blatham's Profile:
http://www.excelforum.com/member.php...o&userid=19441
> View this thread: http://www.excelforum.com/showthread...hreadid=529565
>

[gjcase]

Depends on your data. You can also specify a format for negative numbers separately via the Format cells command. If this is one of your conditions, then this is an easy way to get what you want without using VBA.

---GJC