Thread: Colour rows
View Single Post
  #2   Report Post  
Posted to microsoft.public.excel.misc
excelent excelent is offline
external usenet poster
 
Posts: 695
Default Colour rows

Rightclick on sheet-tab and select show programcode
insert code below in window to the right
Code test in column B change if u like

Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, Range("B:B")) Is Nothing Then Exit Sub
If Target = "FU" Then Target.Interior.ColorIndex = 3
If Target = "FR" Then Target.Interior.ColorIndex = 4
If Target = "SU" Then Target.Interior.ColorIndex = 5
If Target = "PE" Then Target.Interior.ColorIndex = 6
If Target = "??" Then Target.Interior.ColorIndex = 7
If Target = "??" Then Target.Interior.ColorIndex = 8
If Target = "??" Then Target.Interior.ColorIndex = 9
If Target = "??" Then Target.Interior.ColorIndex = 10

End Sub


"John D" skrev:

I have never used VBA so this might be very basic. I have an excel
spreadsheet and on it is a column that the user can place different initials
to indicate status of client e.g. FU; FR; SU; PE and so on. I am wanting if
its possible to have excel colour the row with a different colour for each
variation.
Can anyone suggest anything please?