Looking to modify a code I have that put an "X" into a particular cell no
matter what the user types. Code work great! However, I need to modify the
code so that If an "X" is types into cell "B7", cell "F7" returns a null
value (or deletes any value in the cell)....but wait, that's not all...I also
need it to do the reverse....If user types an "X" into "F7" it should delete
any value in cell "B7"....kind of tricky I know...here is the code I have so
far:

Private Sub Worksheet_Change(ByVal Target As Excel.Range)
Const sINPUTS As String = "B8,B10,B12,B15,F8,F10,F12,F15"
With Target
If .Count 1 Then Exit Sub
If Not Intersect(Range(sINPUTS), .Cells) Is Nothing Then
If Not IsEmpty(.Value) Then
On Error Resume Next
Application.EnableEvents = False
.Value = "X"
Application.EnableEvents = True
On Error GoTo 0
End If
End If
End With
End Sub

If anyone knows how or can assist in any way I would be forever grateful!
Thanks in advance for any assistance!
--
Randy Street
Rancho Cucamonga, CA

I did not test this, so you probably should before you install it permanently.

Private Sub Worksheet_Change(ByVal Target As Excel.Range)
Const sINPUTS As String = "B8,B10,B12,B15,F8,F10,F12,F15"
With Target
If .Count 1 Then Exit Sub
If Not Intersect(Range(sINPUTS), .Cells) Is Nothing Then
If Not IsEmpty(.Value) Then
On Error Resume Next
Application.EnableEvents = False
.Value = "X"
If .Address = "$B$7" Then
Range("$F$7") = ""
ElseIf .Address = "$F$7" Then
Range("$B$7") = ""
End If
Application.EnableEvents = True
On Error GoTo 0
End If
End If
End With
End Sub


"Randy" wrote:

Looking to modify a code I have that put an "X" into a particular cell no
matter what the user types. Code work great! However, I need to modify the
code so that If an "X" is types into cell "B7", cell "F7" returns a null
value (or deletes any value in the cell)....but wait, that's not all...I also
need it to do the reverse....If user types an "X" into "F7" it should delete
any value in cell "B7"....kind of tricky I know...here is the code I have so
far:

Private Sub Worksheet_Change(ByVal Target As Excel.Range)
Const sINPUTS As String = "B8,B10,B12,B15,F8,F10,F12,F15"
With Target
If .Count 1 Then Exit Sub
If Not Intersect(Range(sINPUTS), .Cells) Is Nothing Then
If Not IsEmpty(.Value) Then
On Error Resume Next
Application.EnableEvents = False
.Value = "X"
Application.EnableEvents = True
On Error GoTo 0
End If
End If
End With
End Sub

If anyone knows how or can assist in any way I would be forever grateful!
Thanks in advance for any assistance!
--
Randy Street
Rancho Cucamonga, CA