Macro for conditional formating more than 3

[fede1845]

Hi,

I need help on setting colors to rows depending on a cell value from
those rows.


I have a sales spreadsheet with 8 sales reps information on it.
Each row has a single invoice.


I want to assign a color to the row cell range depending on the sales
rep code.


For Example.
If on the first in column A I list the sales rep codes like "EM",
"EV", "RP" , etc


If A2 says "EM" I want the cell range A2:H2 to be pink
If A3 says "EV" I want the cell range A3:H3 to be orange


I want to set it up so when I type the sales rep code it will
automatically asign the color to the row range


Thanks in advance

 

[Guest]

Try a worksheet_change function

Sub worksheet_change(ByVal target As Range)

Const YELLOW = 6
Const PINK = 7
Const GOLD = 44
Const RED = 3
Const GREEN = 10
Const BLUE = 5
Const BROWN = 53
Const ORANGE = 46

If target.Column = 1 Then
MyTarget = UCase(target)
Select Case MyTarget

Case "EM"
MyColor = PINK
Case "EV"
MyColor = ORANGE
Case Else
MyColor = xlNone

End Select

Range(Cells(target.Row, "A"), _
Cells(target.Row, "H")). _
Interior.ColorIndex = MyColor

End If

End Sub