software

Is there a way to add more than the 3 conditions that the conditional
format allows?--
blatham
------------------------------------------------------------------------
blatham's Profile: www.excelforum.com/member.php...oamp;userid=19441
View this thread: www.excelforum.com/showthread...hreadid=529565VBA'-----------------------------------------------------------------
Private Sub Worksheet_Change(ByVal Target As Range)
'-----------------------------------------------------------------
Const WS_RANGE As String = quot;H1:H10quot;

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 www.xldynamic.com/source/xld.....Download.html

--
HTH

Bob Phillips

(remove nothere from email address if mailing direct)

quot;blathamquot; gt; wrote in
message ...
gt;
gt; Is there a way to add more than the 3 conditions that the conditional
gt; format allows?
gt;
gt;
gt; --
gt; blatham
gt; ------------------------------------------------------------------------
gt; blatham's Profile:
www.excelforum.com/member.php...oamp;userid=19441
gt; View this thread: www.excelforum.com/showthread...hreadid=529565
gt;

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--
gjcase
------------------------------------------------------------------------
gjcase's Profile: www.excelforum.com/member.php...oamp;userid=26061
View this thread: www.excelforum.com/showthread...hreadid=529565