Private Sub Worksheet_Change(ByVal Target As Range) Dim lRow As Long lRow = Range("A2").End(xlDown).Row If Not Intersect(Range("B3:B" & lRow), Target) Is Nothing Then If Target.Value <> vbNullString Then Range("D" & Target.Row).Value = vbNullString Range("D" & Target.Row).Interior.ColorIndex = 15 Else Range("D" & Target.Row).Interior.ColorIndex = xlNone End If ElseIf Not Intersect(Range("D3:D" & lRow), Target) Is Nothing Then If Target.Value <> vbNullString Then Range("B" & Target.Row).Value = vbNullString Range("B" & Target.Row).Interior.ColorIndex = 15 Else Range("B" & Target.Row).Interior.ColorIndex = xlNone End If End If End Sub
If Target.Cells.Count > 1 Then Exit Sub
Private Sub Worksheet_Change(ByVal Target As Range) Dim lRow As Long lRow = Range("I9").End(xlDown).Row If Not Intersect(Target, Range("k3")) Is Nothing Then Range("D9:G210").ClearContents 'Range("J9:K210").ClearContents ' comment code Range("M9:AR210").ClearContents End If If Not Intersect(Range("J9:J" & lRow), Target) Is Nothing Then If Target.Value <> vbNullString Then Range("K" & Target.Row).Value = vbNullString End If ElseIf Not Intersect(Range("K9:K" & lRow), Target) Is Nothing Then If Target.Value <> vbNullString Then Range("J" & Target.Row).Value = vbNullString End If End If End Sub