Textbox restrict to alphanumeric

[nparsons75]

Hi,

I have a userform that has a number of textboxes that I need to restrict to allow only alphanumeric characters. Letters / numbers only.

No / * . characters etc.

Is this to be done using vba code, if so, can anyone help with what the code would be and where to put it.

I have 4 boxes,

boxpart1
boxpart2
boxpart3
boxpart4

Thanks in advance.

 

[gallen]

In the KeyPress event of the texbox you want to restrict:
This will stop all characters except A-Z (upper and lower) 0-9 and full stop. If you don't want the full stop amend accordingly:

Private Sub TextBox1_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)

    Select Case KeyAscii
        '97-122 = a-z, 65 to 90 = A-Z, 48 to 57 = 0-9, 46 = 0
        Case 97 To 122, 65 To 90, 48 To 57, 46
            'MsgBox "stop"
        Case Else
            KeyAscii = 0
    End Select
End Sub

 

[steve the fish]

Heres another possible:

Private Sub TextBox1_Change()

For i = 1 To Len(TextBox1.Value)
    If Mid(TextBox1.Value, i, 1) Like "*[!0-9A-Za-z]*" Then
        myStr = myStr
    Else
        myStr = myStr & Mid(TextBox1.Value, i, 1)
    End If
Next
    
TextBox1.Value = myStr

End Sub

 

[nparsons75]

Hi, thank you both for the help, I imagine I will need to insert these in a module which I am ok with, how would I though set this to cover the four boxes and not just the one. Again thank you very much.

 

[paran]

Heres another possible:

Private Sub TextBox1_Change()

For i = 1 To Len(TextBox1.Value)
    If Mid(TextBox1.Value, i, 1) Like "*[!0-9A-Za-z]*" Then
        myStr = myStr
    Else
        myStr = myStr & Mid(TextBox1.Value, i, 1)
    End If
Next
   
TextBox1.Value = myStr

End Sub

hi

pls request the same code for 4text and 7 numbers only like TEXU1234567 ,Thanks in advance

 

[Peter_SSs]

@paran

In future, please do not post the same question multiple times. Per Forum Rules (#12), posts of a duplicate nature will be locked or deleted.

Since you have started your own thread, I have closed this thread so please continue in the linked thread.