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.

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

"tracktor" wrote:

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.

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" wrote in message
...
I need to further add that cell B1 is a cell that the user can enter data
into

"tracktor" wrote:

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.

Rick,

Thanks, that did it.

"Rick Rothstein (MVP - VB)" wrote:

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" wrote in message
...
I need to further add that cell B1 is a cell that the user can enter data
into

"tracktor" wrote:

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.