Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.worksheet.functions
|
|||
|
|||
format cells for color
I want to be able to format a cell to turn a cetain color using 10 different
conditions. For ex. if cell B1=1 then turn the cell red if cell B1=2 then turn the cell blue if cell B1=3 then turn the cell orange if cell B1=4 then turn the cell yellow up to 6 more conditions |
#2
Posted to microsoft.public.excel.worksheet.functions
|
|||
|
|||
format cells for color
'----------------------------------------------------------------- Private Sub Worksheet_Change(ByVal Target As Range) '----------------------------------------------------------------- Const WS_RANGE As String = "B1" 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 = 5 'blue Case 3: .Interior.ColorIndex = 10 'green Case 4: .Interior.ColorIndex = 6 'yellow 'etc. 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 Bob Phillips (remove nothere from email address if mailing direct) "JAaron" wrote in message ... I want to be able to format a cell to turn a cetain color using 10 different conditions. For ex. if cell B1=1 then turn the cell red if cell B1=2 then turn the cell blue if cell B1=3 then turn the cell orange if cell B1=4 then turn the cell yellow up to 6 more conditions |
Reply |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
Why will my cells not format? | New Users to Excel | |||
How can I find and format specific cells automatically in Excel? | Excel Worksheet Functions | |||
Number format exactly the same, displays differently in some cells | Excel Discussion (Misc queries) | |||
Make Alignment options under format cells available as shortcut | Excel Discussion (Misc queries) | |||
format cells dialog box does not come up | Excel Discussion (Misc queries) |