emptying the contets of a cell base on the value of another cell

[tracktor]

I am trying to empty a cells content based on the value of another cell.
Example: if cell A1 is "X" and cell B1 is "X" , and the contents in cell A1
is changed to "Y" then I want cell B1 to be emptied.

 

[tracktor]

I need to further add that cell B1 is a cell that the user can enter data into

 

[Rick Rothstein \(MVP - VB\)]

Then you will need to use VBA event code. Right-click the tab for worksheet
where you want this functionality to occur on and select View Code from the
popup menu that appears; then copy/paste the following into the code window
that appeared...

'********************** START OF CODE **********************
Dim PreviousValue As String

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$A$1" Then
If Range("A1").Value = "Y" And Range("B1").Value = "X" And _
PreviousValue = "X" Then Range("B1").Value = ""
End If
End Sub

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Address = "$A$1" Then PreviousValue = Target.Value
End Sub
'*********************** END OF CODE ***********************

This code will react in **exactly** the way you asked for it to react. My
gut feeling is you really want something slightly different than this, but
if that is the case, you will have to provide a more detailed description.

Rick

 

[tracktor]

Rick,

Thanks, that did it.

Then you will need to use VBA event code. Right-click the tab for worksheet
where you want this functionality to occur on and select View Code from the
popup menu that appears; then copy/paste the following into the code window
that appeared...

'********************** START OF CODE **********************
Dim PreviousValue As String

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$A$1" Then
If Range("A1").Value = "Y" And Range("B1").Value = "X" And _
PreviousValue = "X" Then Range("B1").Value = ""
End If
End Sub

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Address = "$A$1" Then PreviousValue = Target.Value
End Sub
'*********************** END OF CODE ***********************

This code will react in **exactly** the way you asked for it to react. My
gut feeling is you really want something slightly different than this, but
if that is the case, you will have to provide a more detailed description.

Rick