Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.misc
|
|||
|
|||
Conditional Formats
How can I increase the number of conditional formats which is now limited to 3?
|
#2
Posted to microsoft.public.excel.misc
|
|||
|
|||
Conditional Formats
Get Excel 2007, otherwise you need VBA code
http://www.xldynamic.com/source/xld.....Download.html -- Regards, Peo Sjoblom "rob" wrote in message ... How can I increase the number of conditional formats which is now limited to 3? |
#3
Posted to microsoft.public.excel.misc
|
|||
|
|||
Conditional Formats
Use Excel 2007 ?
-- David Biddulph "rob" wrote in message ... How can I increase the number of conditional formats which is now limited to 3? |
#4
Posted to microsoft.public.excel.misc
|
|||
|
|||
Conditional Formats
There are a couple of things you can try...
http://www.mcgimpsey.com/excel/conditional6.html or http://www.xldynamic.com/source/xld.....Download.html -- HTH... Jim Thomlinson "rob" wrote: How can I increase the number of conditional formats which is now limited to 3? |
#5
Posted to microsoft.public.excel.misc
|
|||
|
|||
Conditional Formats
You will need to use VBA - sample below (courtesy of Bob Phillips).
Right-click on sheet, tab "View code" and copy / paste code below '----------------------------------------------------------------- Private Sub Worksheet_Change(ByVal Target As Range) '----------------------------------------------------------------- Const WS_RANGE As String = "H1:H10" '<=== change to your requirements 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 'etc. End Select End With End If ws_exit: Application.EnableEvents = True End Sub "rob" wrote: How can I increase the number of conditional formats which is now limited to 3? |
#6
Posted to microsoft.public.excel.misc
|
|||
|
|||
Conditional Formats
Rob,
Right click the sheet tab, view code and paste this in. Change the ranges, conditions and colours to suit Private Sub Worksheet_Change(ByVal Target As Range) If Not Intersect(Target, Range("A1:A1000")) Is Nothing Then Select Case Target Case 1 icolor = 6 Case 2 icolor = 12 Case 3 icolor = 7 Case 4 icolor = 53 Case 5 icolor = 15 Case 6 icolor = 42 End Select Target.Interior.ColorIndex = icolor End If End Sub Mike "rob" wrote: How can I increase the number of conditional formats which is now limited to 3? |
Reply |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
paste conditional formats as formats | Excel Discussion (Misc queries) | |||
More than 3 Conditional Formats | Excel Discussion (Misc queries) | |||
Conditional Formats | New Users to Excel | |||
more than 3 conditional formats | Excel Discussion (Misc queries) | |||
Using Conditional Formats | Excel Discussion (Misc queries) |