I have a code someone on here helped build. Now i need to add to it. Unfortunately I'm still not that good with change events. Add in: if intersecting column B = "City-HE" and column M = "1" then change cell value of M to "1*"
Here is the current code i need to add to for reference
Private Sub Worksheet_Change(ByVal Target As Range)
Dim U As Range
Set U = Union(Range("C:C"), Range("I:L"))
If Intersect(Target, U) Is Nothing Or Target.Row < 4 Then Exit Sub ' add
With Range(Cells(Target.Row, "A"), Cells(Target.Row, "P")).Interior
Select Case True
Case U(Target.Row, 1) = "GC" ' 1st priority
.Color = 5296274
Case U(Target.Row, 7) <> 0 '' 2nd priority
.ColorIndex = 6
Case U(Target.Row, 8) <> 0 And U(Target.Row, 10) <> 0 ' 3rd priority
.ColorIndex = 39
Case Else
.Color = xlNone 'other
End Select
End With
End Sub
Here is the current code i need to add to for reference
Private Sub Worksheet_Change(ByVal Target As Range)
Dim U As Range
Set U = Union(Range("C:C"), Range("I:L"))
If Intersect(Target, U) Is Nothing Or Target.Row < 4 Then Exit Sub ' add
With Range(Cells(Target.Row, "A"), Cells(Target.Row, "P")).Interior
Select Case True
Case U(Target.Row, 1) = "GC" ' 1st priority
.Color = 5296274
Case U(Target.Row, 7) <> 0 '' 2nd priority
.ColorIndex = 6
Case U(Target.Row, 8) <> 0 And U(Target.Row, 10) <> 0 ' 3rd priority
.ColorIndex = 39
Case Else
.Color = xlNone 'other
End Select
End With
End Sub