Home |
Search |
Today's Posts |
#1
![]()
Posted to microsoft.public.excel.programming
|
|||
|
|||
![]()
I've found this macro and I wonder what might need to be changed to do what I
want to do: http://www.ozgrid.com/VBA/excel-cond...ting-limit.htm Private Sub Worksheet_Change(ByVal Target As Range) Dim icolor As Integer If Not Intersect(Target, Range("A1:A10")) is Nothing Then Select Case Target Case 1 To 5 icolor = 6 Case 6 To 10 icolor = 12 Case 11 To 15 icolor = 7 Case 16 To 20 icolor = 53 Case 21 To 25 icolor = 15 Case 26 To 30 icolor = 42 Case Else 'Whatever End Select Target.Interior.ColorIndex = icolor End If End Sub The range I want to format is B1:T14 and the formulas I want to use a To color cell B2: Formula currently in place is If AB2 =6, Highlight color = 3 If AB2 = 5, Highlight color = 45 IF AB2 =4, Highlight color = 6 If AB2 =3, Highlight color = 5 IF AB2=2, Highlight color = 13 If AB2 = 1, Highlight color = 39 For C2, I'm checking against AC2. Can someone assist? Thanks in advance, Barb Reinhardt |
Thread Tools | Search this Thread |
Display Modes | |
|
|
![]() |
||||
Thread | Forum | |||
Conditional Formating with Icon set - How to change the color | Excel Discussion (Misc queries) | |||
Change color without conditional formating | Excel Discussion (Misc queries) | |||
Conditional formating-change color of cells over than one with for | Excel Discussion (Misc queries) | |||
Conditional Formating - Change Color | Excel Programming | |||
How to change an entire row using conditional formating | Excel Discussion (Misc queries) |