Posted to microsoft.public.excel.programming
|
|
Changing a row colour automatically based on a cell input.
Rob,
Many thanks for that, it works a treat!
Mant thanks!
Steve
"Rob van Gelder" wrote:
Yet another way would be to catch events as the Worksheet Changes
Private Sub Worksheet_Change(ByVal Target As Range)
Select Case Target.Column
Case 3, 4, 5
If Not (IsEmpty(Cells(Target.Row, 5).Value)) Then
Rows(Target.Row).Interior.ColorIndex = 4
ElseIf Not (IsEmpty(Cells(Target.Row, 4).Value)) Then
Rows(Target.Row).Interior.ColorIndex = 6
ElseIf Not (IsEmpty(Cells(Target.Row, 3).Value)) Then
Rows(Target.Row).Interior.ColorIndex = 8
Else
Rows(Target.Row).Interior.ColorIndex = xlColorIndexNone
End If
End Select
End Sub
--
Rob van Gelder - http://www.vangelder.co.nz/excel
"Andos" wrote in message
...
Is there a method whereby I can have a input a date in a cell and it will
automatically change the row colour? I am tracking a workflow process.
For example,
if I input a date into cell C7, then row 7 would change all cells to be
colour 'LIGHT BLUE'.
if I then, input a date into cell D7, then row 7 would change all cells to
be colour 'YELLOW'.
if I then, input a date into cell E7, then row 7 would change all cells to
be colour 'GREEN'.
etc, etc...
Any ideas on the best way to do this?
|