Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
Conditional Formatting- Refresh
I have added a VB script to a sheet to change color of the cell based on input
Private Sub Worksheet_Change(ByVal Target As Range) Dim icolor As Integer If Not Intersect(Target, Range("F1:F510")) Is Nothing Then Select Case Target Case "Red" icolor = 3 Case "Green" icolor = 4 Case "Blue" icolor = 5 Case "White" icolor = 2 Case "Gray" icolor = 15 Case "" icolor = 0 Case Else 'Whatever End Select Target.Interior.ColorIndex = icolor Target.Font.ColorIndex = icolor End If End Sub --------------------------------------------------- This works well if the data is entered manually. some cells that have a calculated input using a formula does not get updated. It works if I use "Conditional Formatting" but the limitation there is 3 colours. Any help will be appreciated. |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
How do I refresh a column after changing the formatting? | Excel Worksheet Functions | |||
Conditional formatting in a table is lost on table refresh | Excel Worksheet Functions | |||
Conditional Formatting - Date Refresh | Excel Worksheet Functions | |||
Formatting after Web Query Refresh | Excel Programming | |||
Formatting a column - needs refresh? | Excel Programming |