Userform Textbox - prevent special characters

[sharky12345]

Can someone assist me with some code that will only allow numerics and letters in a userform textbox?

I don't want people to be able to enter anything other than those and perhaps a space and I'd like the restriction as they type please.

 

[dmt32]

Hi,
have look here & see if any help to you:MS Excel: Test a string for an alphanumeric value

Dave

 

[sharky12345]

Hi, thanks for the reply - that doesn't seem to do what I need though.

 

[Rick Rothstein]

Can someone assist me with some code that will only allow numerics and letters in a userform textbox?

I don't want people to be able to enter anything other than those and perhaps a space and I'd like the restriction as they type please.

Put the following code in the UserForm's code module...

[COLOR="#008000"][B]' Note: This Dim statement must be located
        above any other code procedures[/B][/COLOR]
Dim LastPosition As Long

Private Sub TextBox1_Change()
  Static LastText As String
  Static SecondTime As Boolean
  If Not SecondTime Then
    With TextBox1
     If .Text Like "*[!0-9A-Za-z ]*" Then
        Beep
        SecondTime = True
        .Text = LastText
        .SelStart = LastPosition
      Else
        LastText = .Text
      End If
    End With
  End If
  SecondTime = False
End Sub

Private Sub TextBox1_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
  LastPosition = TextBox1.SelStart
End Sub

Private Sub TextBox1_MouseDown(ByVal Button As Integer, _
            ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
  LastPosition = TextBox1.SelStart
End Sub

 

[sharky12345]

Rick, you're a legend - thank you!