Create conditional IF to format cells using 6 different colours
I have a spreadsheet that I need to colour code specific cells if they meet a
certain condition. I know I can use conditional formatting but only 3 conditions can be met that way. I need to put in conditional formatting to accept 6 different colours. How can I do this???? |
See Bob Phillips' VBA solution in a thread earlier today
http://tinyurl.com/exryx "NZJen" wrote: I have a spreadsheet that I need to colour code specific cells if they meet a certain condition. I know I can use conditional formatting but only 3 conditions can be met that way. I need to put in conditional formatting to accept 6 different colours. How can I do this???? |
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 (remove nothere from the email address if mailing direct) "NZJen" wrote in message ... I have a spreadsheet that I need to colour code specific cells if they meet a certain condition. I know I can use conditional formatting but only 3 conditions can be met that way. I need to put in conditional formatting to accept 6 different colours. How can I do this???? |
All times are GMT +1. The time now is 12:31 AM. |
Powered by vBulletin® Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
ExcelBanter.com