VBA to Remove Cell Content If another Cell is null

[808excel]

Hi,

I'm trying to have cell A2 clear it's contents only IF cell A1 is null. So the user will make a selection in cell A1 and then they can make a selection in A2, but I want it to remove their selection in A2 if they remove their selection in A1. I tried using the following, but it will always remove A2 whenever A1 is updated.

If Not Intersect(Target, Range("A1")) Is Nothing Then

Application.EnableEvents = False
Range("A2").ClearContents = Target <> "Yes"

Thanks

 

[Rick Rothstein]

I am not 100% clear on what you are trying to do (especially your test against the text "Yes" given your first sentence), but let me take a guess (if I am correct, then this code would replace what you posted)...

If Target.Address(0, 0) = "A1" Then
  If Target.Value = "" Then Target.Offset(1).ClearContents
End If

 

[808excel]

I am not 100% clear on what you are trying to do (especially your test against the text "Yes" given your first sentence), but let me take a guess (if I am correct, then this code would replace what you posted)...

If Target.Address(0, 0) = "A1" Then
  If Target.Value = "" Then Target.Offset(1).ClearContents
End If

Thanks! I got this to work. I think the issue I had was with how I nested the If statements.