"delete" key activates Sub Worksheet_Change

  • Thread starter Thread starter Dave
  • Start date Start date
D

Dave

I have a form that does not allow users to input a "#"
symbol in three cells. The code below accomplishes this.
Trouble is using the "delete" key in any cell anywhere in
my form pulls up the MsgBox from my "Private Sub
Worksheet" below.

Any help would be appreciated.



Private Sub Worksheet_Change(ByVal Target As Excel.Range)

On Error Resume Next

Application.EnableEvents = False

If Union(Target, Me.Range("AH3,I11,T11")).Address =
Me.Range("AH3,I11,T11").Address _
And InStr(1, Target, "#") > 0 Then
Target.Select
MsgBox "The following symbols are not allowed in this
field! # "
Target = ""

End If
 
I pasted your code into a sheet module and couldn't reproduce the problem.

I did add a line to turn events back on at the end.
 
Thanks Tom, I only posted part of the code and after
further testing I realize that the entire code is creating
the trouble. Still don't know what it is but here is the
entire code.

Private Sub Worksheet_Change(ByVal Target As Excel.Range)

On Error Resume Next

Application.EnableEvents = False

If Union(Target, Me.Range("AH3,I11,T11")).Address =
Me.Range("AH3,I11,T11").Address _
And InStr(1, Target, "#") > 0 Then
Target.Select
MsgBox "The following symbols are not allowed in this
field! # < > ? [ ] : * \ and / "
Target = ""

End If

If Union(Target, Me.Range("AH3,I11,T11")).Address =
Me.Range("AH3,I11,T11").Address _
And InStr(1, Target, "<") > 0 Then
Target.Select
MsgBox "The following symbols are not allowed in this
field! ""# < > ? [ ] : * \ and /"" "
Target = ""
End If

If Union(Target, Me.Range("AH3,I11,T11")).Address =
Me.Range("AH3,I11,T11").Address _
And InStr(1, Target, ">") > 0 Then
Target.Select
MsgBox "The following symbols are not allowed in this
field! ""# < > ? [ ] : * \ and /"" "
Target = ""
End If

If Union(Target, Me.Range("AH3,I11,T11")).Address =
Me.Range("AH3,I11,T11").Address _
And InStr(1, Target, "?") > 0 Then
Target.Select
MsgBox "The following symbols are not allowed in this
field! ""# < > ? [ ] : * \ and /"" "
Target = ""
End If

If Union(Target, Me.Range("AH3,I11,T11")).Address =
Me.Range("AH3,I11,T11").Address _
And InStr(1, Target, "[") > 0 Then
Target.Select
MsgBox "The following symbols are not allowed in this
field! ""# < > ? [ ] : * \ and /"" "
Target = ""
End If


If Union(Target, Me.Range("AH3,I11,T11")).Address =
Me.Range("AH3,I11,T11").Address _
And InStr(1, Target, "]") > 0 Then
Target.Select
MsgBox "The following symbols are not allowed in this
field! ""# < > ? [ ] : * \ and /"" "
Target = ""
End If

If Union(Target, Me.Range("AH3,I11,T11")).Address =
Me.Range("AH3,I11,T11").Address _
And InStr(1, Target, ":") > 0 Then
Target.Select
MsgBox "The following symbols are not allowed in this
field! ""# < > ? [ ] : * \ and /"" "
Target = ""
End If

If Union(Target, Me.Range("AH3,I11,T11")).Address =
Me.Range("AH3,I11,T11").Address _
And InStr(1, Target, "*") > 0 Then
Target.Select
MsgBox "The following symbols are not allowed in this
field! ""# < > ? [ ] : * \ and /"" "
Target = ""
End If

If Union(Target, Me.Range("AH3,I11,T11")).Address =
Me.Range("AH3,I11,T11").Address _
And InStr(1, Target, "\") > 0 Then
Target.Select
MsgBox "The following symbols are not allowed in this
field! ""# < > ? [ ] : * \ and /"" "
Target = ""
End If

If Union(Target, Me.Range("AH3,I11,T11")).Address =
Me.Range("AH3,I11,T11").Address _
And InStr(1, Target, "/") > 0 Then
Target.Select
MsgBox "The following symbols are not allowed in this
field! ""# < > ? [ ] : * \ and /"" "
Target = ""
End If


Application.EnableEvents = True
End Sub
 
There is nothing in your complete code that would cause that and it works
fine for me. I can't reproduce the behavior.

--
Regards,
Tom Ogilvy

Thanks Tom, I only posted part of the code and after
further testing I realize that the entire code is creating
the trouble. Still don't know what it is but here is the
entire code.

Private Sub Worksheet_Change(ByVal Target As Excel.Range)

On Error Resume Next

Application.EnableEvents = False

If Union(Target, Me.Range("AH3,I11,T11")).Address =
Me.Range("AH3,I11,T11").Address _
And InStr(1, Target, "#") > 0 Then
Target.Select
MsgBox "The following symbols are not allowed in this
field! # < > ? [ ] : * \ and / "
Target = ""

End If

If Union(Target, Me.Range("AH3,I11,T11")).Address =
Me.Range("AH3,I11,T11").Address _
And InStr(1, Target, "<") > 0 Then
Target.Select
MsgBox "The following symbols are not allowed in this
field! ""# < > ? [ ] : * \ and /"" "
Target = ""
End If

If Union(Target, Me.Range("AH3,I11,T11")).Address =
Me.Range("AH3,I11,T11").Address _
And InStr(1, Target, ">") > 0 Then
Target.Select
MsgBox "The following symbols are not allowed in this
field! ""# < > ? [ ] : * \ and /"" "
Target = ""
End If

If Union(Target, Me.Range("AH3,I11,T11")).Address =
Me.Range("AH3,I11,T11").Address _
And InStr(1, Target, "?") > 0 Then
Target.Select
MsgBox "The following symbols are not allowed in this
field! ""# < > ? [ ] : * \ and /"" "
Target = ""
End If

If Union(Target, Me.Range("AH3,I11,T11")).Address =
Me.Range("AH3,I11,T11").Address _
And InStr(1, Target, "[") > 0 Then
Target.Select
MsgBox "The following symbols are not allowed in this
field! ""# < > ? [ ] : * \ and /"" "
Target = ""
End If


If Union(Target, Me.Range("AH3,I11,T11")).Address =
Me.Range("AH3,I11,T11").Address _
And InStr(1, Target, "]") > 0 Then
Target.Select
MsgBox "The following symbols are not allowed in this
field! ""# < > ? [ ] : * \ and /"" "
Target = ""
End If

If Union(Target, Me.Range("AH3,I11,T11")).Address =
Me.Range("AH3,I11,T11").Address _
And InStr(1, Target, ":") > 0 Then
Target.Select
MsgBox "The following symbols are not allowed in this
field! ""# < > ? [ ] : * \ and /"" "
Target = ""
End If

If Union(Target, Me.Range("AH3,I11,T11")).Address =
Me.Range("AH3,I11,T11").Address _
And InStr(1, Target, "*") > 0 Then
Target.Select
MsgBox "The following symbols are not allowed in this
field! ""# < > ? [ ] : * \ and /"" "
Target = ""
End If

If Union(Target, Me.Range("AH3,I11,T11")).Address =
Me.Range("AH3,I11,T11").Address _
And InStr(1, Target, "\") > 0 Then
Target.Select
MsgBox "The following symbols are not allowed in this
field! ""# < > ? [ ] : * \ and /"" "
Target = ""
End If

If Union(Target, Me.Range("AH3,I11,T11")).Address =
Me.Range("AH3,I11,T11").Address _
And InStr(1, Target, "/") > 0 Then
Target.Select
MsgBox "The following symbols are not allowed in this
field! ""# < > ? [ ] : * \ and /"" "
Target = ""
End If


Application.EnableEvents = True
End Sub

-----Original Message-----
I pasted your code into a sheet module and couldn't reproduce the problem.

I did add a line to turn events back on at the end.

--
Regards,
Tom Ogilvy




.
Click to expand...
Click to expand...
 
Back
Top