Remove fill color when update cell

[noelmus]

I have a cell with drop down list which has a yellow fill color. Is there a way that the yellow fill color will be removed when I update this cell?

Thanks in advance

 

[DanteAmor]

Put the following in the events of your sheet

Private Sub Worksheet_Change(ByVal Target As Range)
    If Not Intersect(Target, Range("E3")) Is Nothing Then
        If Target.Count > 1 Then Exit Sub
        If Target.Value = "" Then
            Target.Interior.ColorIndex = 6
        Else
            Target.Interior.ColorIndex = xlNone
        End If
    End If
End Sub

 

[noelmus]

Hi
I have already the code below and when I add yours, it gave this;
Compile error:
Ambiguous name detected: Worksheet_Change

Even the first line of your code became highlighted: Private Sub Worksheet_Change(ByVal Target As Range)


Present code:
Private Sub Worksheet_Change(ByVal Target As Range)
Application.EnableEvents = False
If Not Intersect(Target, Range("E20,H20")) Is Nothing Then
If Target.Value = "" Then
Range("C11").ClearContents
Else
Range("C11").Value = Application.UserName
End If
End If
Application.EnableEvents = True
End Sub

Thanks

 

[DanteAmor]

The unified code would be like this

Private Sub Worksheet_Change(ByVal Target As Range)
    Application.EnableEvents = False
    If Not Intersect(Target, Range("E20,H20")) Is Nothing Then
        If Target.Value = "" Then
            Range("C11").ClearContents
        Else
            Range("C11").Value = Application.UserName
        End If
    End If
    Application.EnableEvents = True
'
    If Not Intersect(Target, Range("E3")) Is Nothing Then
        If Target.Count > 1 Then Exit Sub
        If Target.Value = "" Then
            Target.Interior.ColorIndex = 6
        Else
            Target.Interior.ColorIndex = xlNone
        End If
    End If
End Sub

 

[noelmus]

Thanks a lot
Worked perfect

 

[DanteAmor]

I'm glad to help you