Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.worksheet.functions
|
|||
|
|||
Conditional Format
Hi,
Is there any way to extend a conditional format to greater than three conditions? I need five. Thanks |
#2
Posted to microsoft.public.excel.worksheet.functions
|
|||
|
|||
Conditional Format
Hi,
One way is to tilise the worksheet change event and select case. Right click your sheet tab, view code and paste this in which currently works on A1 change the vauluse and colours to suit Private Sub Worksheet_Change(ByVal Target As Range) Select Case Range("A1").Value Case Is = 1 icolor = 6 Case Is = 2 icolor = 9 Case Is = 3 icolor = 12 Case Is = 5 icolor = 15 Case Is = 6 icolor = 22 Case Else icolor = xlNone End Select Range("A1").Interior.ColorIndex = icolor End Sub Mike "LiAD" wrote: Hi, Is there any way to extend a conditional format to greater than three conditions? I need five. Thanks |
#3
Posted to microsoft.public.excel.worksheet.functions
|
|||
|
|||
Conditional Format
Excel 2007, or VBA.
-- David Biddulph "LiAD" wrote in message ... Hi, Is there any way to extend a conditional format to greater than three conditions? I need five. Thanks |
#4
Posted to microsoft.public.excel.worksheet.functions
|
|||
|
|||
Conditional Format
Thanks,
Works fine for A1 but how do i extend the range? Sorry I know zero on VB. Thanks "Mike H" wrote: Hi, One way is to tilise the worksheet change event and select case. Right click your sheet tab, view code and paste this in which currently works on A1 change the vauluse and colours to suit Private Sub Worksheet_Change(ByVal Target As Range) Select Case Range("A1").Value Case Is = 1 icolor = 6 Case Is = 2 icolor = 9 Case Is = 3 icolor = 12 Case Is = 5 icolor = 15 Case Is = 6 icolor = 22 Case Else icolor = xlNone End Select Range("A1").Interior.ColorIndex = icolor End Sub Mike "LiAD" wrote: Hi, Is there any way to extend a conditional format to greater than three conditions? I need five. Thanks |
#5
Posted to microsoft.public.excel.worksheet.functions
|
|||
|
|||
Conditional Format
Sorry should have said its 2003 and I need the range to go horizontal not
vertical. Thanks "LiAD" wrote: Thanks, Works fine for A1 but how do i extend the range? Sorry I know zero on VB. Thanks "Mike H" wrote: Hi, One way is to tilise the worksheet change event and select case. Right click your sheet tab, view code and paste this in which currently works on A1 change the vauluse and colours to suit Private Sub Worksheet_Change(ByVal Target As Range) Select Case Range("A1").Value Case Is = 1 icolor = 6 Case Is = 2 icolor = 9 Case Is = 3 icolor = 12 Case Is = 5 icolor = 15 Case Is = 6 icolor = 22 Case Else icolor = xlNone End Select Range("A1").Interior.ColorIndex = icolor End Sub Mike "LiAD" wrote: Hi, Is there any way to extend a conditional format to greater than three conditions? I need five. Thanks |
#6
Posted to microsoft.public.excel.worksheet.functions
|
|||
|
|||
Conditional Format
Using 2003.
Solution wise I dont mind if it has to be VBA, just means I won't understand a sausage. I can sort of understand the programs that others write but can't even get close to doing one myself. Thanks "David Biddulph" wro Excel 2007, or VBA. -- David Biddulph "LiAD" wrote in message ... Hi, Is there any way to extend a conditional format to greater than three conditions? I need five. Thanks |
#7
Posted to microsoft.public.excel.worksheet.functions
|
|||
|
|||
Conditional Format
Hi,
This now works for row 1 Private Sub Worksheet_Change(ByVal Target As Range) If Target.Cells.Count 1 Then Exit Sub If Not Intersect(Target, Rows(1)) Is Nothing Then Select Case Target.Value Case Is = 1 icolor = 6 Case Is = 2 icolor = 9 Case Is = 3 icolor = 12 Case Is = 4 icolor = 15 Case Is = 5 icolor = 22 Case Else icolor = xlNone End Select Target.Interior.ColorIndex = icolor End If End Sub "LiAD" wrote: Sorry should have said its 2003 and I need the range to go horizontal not vertical. Thanks "LiAD" wrote: Thanks, Works fine for A1 but how do i extend the range? Sorry I know zero on VB. Thanks "Mike H" wrote: Hi, One way is to tilise the worksheet change event and select case. Right click your sheet tab, view code and paste this in which currently works on A1 change the vauluse and colours to suit Private Sub Worksheet_Change(ByVal Target As Range) Select Case Range("A1").Value Case Is = 1 icolor = 6 Case Is = 2 icolor = 9 Case Is = 3 icolor = 12 Case Is = 5 icolor = 15 Case Is = 6 icolor = 22 Case Else icolor = xlNone End Select Range("A1").Interior.ColorIndex = icolor End Sub Mike "LiAD" wrote: Hi, Is there any way to extend a conditional format to greater than three conditions? I need five. Thanks |
#8
Posted to microsoft.public.excel.worksheet.functions
|
|||
|
|||
Conditional Format
Seems to work perfectly
thankyou "Mike H" wrote: Hi, This now works for row 1 Private Sub Worksheet_Change(ByVal Target As Range) If Target.Cells.Count 1 Then Exit Sub If Not Intersect(Target, Rows(1)) Is Nothing Then Select Case Target.Value Case Is = 1 icolor = 6 Case Is = 2 icolor = 9 Case Is = 3 icolor = 12 Case Is = 4 icolor = 15 Case Is = 5 icolor = 22 Case Else icolor = xlNone End Select Target.Interior.ColorIndex = icolor End If End Sub "LiAD" wrote: Sorry should have said its 2003 and I need the range to go horizontal not vertical. Thanks "LiAD" wrote: Thanks, Works fine for A1 but how do i extend the range? Sorry I know zero on VB. Thanks "Mike H" wrote: Hi, One way is to tilise the worksheet change event and select case. Right click your sheet tab, view code and paste this in which currently works on A1 change the vauluse and colours to suit Private Sub Worksheet_Change(ByVal Target As Range) Select Case Range("A1").Value Case Is = 1 icolor = 6 Case Is = 2 icolor = 9 Case Is = 3 icolor = 12 Case Is = 5 icolor = 15 Case Is = 6 icolor = 22 Case Else icolor = xlNone End Select Range("A1").Interior.ColorIndex = icolor End Sub Mike "LiAD" wrote: Hi, Is there any way to extend a conditional format to greater than three conditions? I need five. Thanks |
#9
Posted to microsoft.public.excel.worksheet.functions
|
|||
|
|||
Conditional Format
glad i could help
"LiAD" wrote: Seems to work perfectly thankyou "Mike H" wrote: Hi, This now works for row 1 Private Sub Worksheet_Change(ByVal Target As Range) If Target.Cells.Count 1 Then Exit Sub If Not Intersect(Target, Rows(1)) Is Nothing Then Select Case Target.Value Case Is = 1 icolor = 6 Case Is = 2 icolor = 9 Case Is = 3 icolor = 12 Case Is = 4 icolor = 15 Case Is = 5 icolor = 22 Case Else icolor = xlNone End Select Target.Interior.ColorIndex = icolor End If End Sub "LiAD" wrote: Sorry should have said its 2003 and I need the range to go horizontal not vertical. Thanks "LiAD" wrote: Thanks, Works fine for A1 but how do i extend the range? Sorry I know zero on VB. Thanks "Mike H" wrote: Hi, One way is to tilise the worksheet change event and select case. Right click your sheet tab, view code and paste this in which currently works on A1 change the vauluse and colours to suit Private Sub Worksheet_Change(ByVal Target As Range) Select Case Range("A1").Value Case Is = 1 icolor = 6 Case Is = 2 icolor = 9 Case Is = 3 icolor = 12 Case Is = 5 icolor = 15 Case Is = 6 icolor = 22 Case Else icolor = xlNone End Select Range("A1").Interior.ColorIndex = icolor End Sub Mike "LiAD" wrote: Hi, Is there any way to extend a conditional format to greater than three conditions? I need five. Thanks |
Reply |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
New Conditional Format Overriding Previous Conditional Format | Excel Discussion (Misc queries) | |||
How to create a conditional format that changes the number format | Excel Discussion (Misc queries) | |||
Conditional Format - Format Transfer To Chart | Excel Discussion (Misc queries) | |||
copy conditional format to regular format | Setting up and Configuration of Excel | |||
copy conditional format as ACTUAL format | Excel Discussion (Misc queries) |