Yesterday, Tom Morales and Mudface were kind enough (and smart enough) to help me develop a toggling set of three cells, where entry into one cell automatically blanked the other two. Here's the code...
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$AD$133" Then [AD134,AD135].ClearContents
If Target.Address = "$AD$134" Then [AD133,AD135].ClearContents
If Target.Address = "$AD$135" Then [AD133,AD134].ClearContents
End Sub
HERE'S MY PROBLEM...
The above works perfectly. I now have two other cells that I would like to have do the same thing, just with eachother...(not with the three above.) I tried this:
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$AD$133" Then [AD134,AD135].ClearContents
If Target.Address = "$AD$134" Then [AD133,AD135].ClearContents
If Target.Address = "$AD$135" Then [AD133,AD134].ClearContents
If Target.Address = "$AD$63" Then [AD64].ClearContents
If Target.Address = "$AD$64" Then [AD63].ClearContents
End Sub
Basically I just used the same code for cells AD63 & AD64. The problem lies in that when I try to enter data into either of these cells, it immediately disappears, with both cells remaining empty.
Any ideas on this?
Thanks.
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$AD$133" Then [AD134,AD135].ClearContents
If Target.Address = "$AD$134" Then [AD133,AD135].ClearContents
If Target.Address = "$AD$135" Then [AD133,AD134].ClearContents
End Sub
HERE'S MY PROBLEM...
The above works perfectly. I now have two other cells that I would like to have do the same thing, just with eachother...(not with the three above.) I tried this:
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$AD$133" Then [AD134,AD135].ClearContents
If Target.Address = "$AD$134" Then [AD133,AD135].ClearContents
If Target.Address = "$AD$135" Then [AD133,AD134].ClearContents
If Target.Address = "$AD$63" Then [AD64].ClearContents
If Target.Address = "$AD$64" Then [AD63].ClearContents
End Sub
Basically I just used the same code for cells AD63 & AD64. The problem lies in that when I try to enter data into either of these cells, it immediately disappears, with both cells remaining empty.
Any ideas on this?
Thanks.