Formatting a textbox to accept specific characters

[Maher_Zeetawi]

hello good day
can i get your help if can get code for Textbox need to accept this format of character For Example
HC00123456
HC05213141
Etc
only these two letters then followed by 8 numbers & if wrong to give massage upon pressing on the add button
hopefully can get the answer
my regards

 

[igold]

Assuming that this is for a UserForm, then how about this Sub placed in the UserForm Module. The first line of code will enable you to leave the field blank. Delete that line, if you do not want that option.
This code is for a TextBox named TextBox1

Private Sub TextBox1_Exit(ByVal Cancel As MSForms.ReturnBoolean)
    Dim resp As String
    If TextBox1 = "" Then Exit Sub      'Delete this line if an entry is mandatory
    resp = TextBox1.Text
    If Not resp Like "HC" & "########" Then
        TextBox1.Text = ""
        TextBox1.SetFocus
        Cancel = True
        MsgBox "Invalid Entry"
    End If
End Sub

 

[Maher_Zeetawi]

Assuming that this is for a UserForm, then how about this Sub placed in the UserForm Module. The first line of code will enable you to leave the field blank. Delete that line, if you do not want that option.
This code is for a TextBox named TextBox1

Private Sub TextBox1_Exit(ByVal Cancel As MSForms.ReturnBoolean)
    Dim resp As String
    If TextBox1 = "" Then Exit Sub      'Delete this line if an entry is mandatory
    resp = TextBox1.Text
    If Not resp Like "HC" & "########" Then
        TextBox1.Text = ""
        TextBox1.SetFocus
        Cancel = True
        MsgBox "Invalid Entry"
    End If
End Sub

I applied it & worked but faced 2 issues
1. once I run the form give the msg box Invalid Entry
2. the hc lower case not working
and I have a question about the note you wrote 'Delete this line if an entry is mandatory?
actually, this HC number is mandatory entry and connected with the command button once empty it will not document and transfer the data into the sheets

 

[igold]

can i get your help if can get code for Textbox need to accept this format of character For Example
HC00123456
HC05213141
Etc
only these two letters then followed by 8 numbers & if wrong to give massage upon pressing on the add button

You were pretty specific in the wording and it would appear as if you wanted "HC" only. Try this. Additionally, now there must be the correct text format to exit the TextBox.

Private Sub TextBox4_Exit(ByVal Cancel As MSForms.ReturnBoolean)
    Dim resp As String
    resp = UCase(TextBox4.Text)
    If Not resp Like "HC" & "########" Then
        TextBox4.Text = ""
        TextBox4.SetFocus
        Cancel = True
        MsgBox "Invalid Entry"
    End If
End Sub

 

[Maher_Zeetawi]

Great
I forgot to tell you thank you, dear
it is working
warm regards

 

[igold]

You're welcome. I was happy to help. Thanks for the feedback.

Please mark the post that answered your question as the solution to help future readers. Little check mark icon right side of the post.

 

[Maher_Zeetawi]

hello
excuse me can I update
I faced problems
if I changed my mind and I don't want to fill the text box & want to transfer to another form or close the form without entry, it will show me the msgbox "invalid entry"
kindly see the attached screen shot

 

[igold]

Do you face the same problem if you use the solution in Post #2...
You must also change this line:

resp = TextBox1.Text

to this

resp = UCase(TextBox4.Text)

 

[Maher_Zeetawi]

Do you face the same problem if you use the solution in Post #2...
You must also change this line:

resp = TextBox1.Text

to this

resp = UCase(TextBox4.Text)

I did not get you
kindly which line to change because it is that same line you want me to change " resp = UCase(txtHc.Text)"
but I'm using this code and facing that problem I mentioned


Private Sub txtHc_Exit(ByVal Cancel As MSForms.ReturnBoolean)
Dim resp As String
resp = UCase(txtHc.Text)
If Not resp Like "HC" & "########" Then
txtHc.Text = ""
txtHc.SetFocus
Cancel = True
MsgBox "Invalid Entry"
End If
End Sub

 

[igold]

Try this:

Private Sub TextBox4_Exit(ByVal Cancel As MSForms.ReturnBoolean)
    Dim resp As String
    If TextBox4 = "" Then Exit Sub
    resp = UCase(TextBox4.Text)
    If Not resp Like "HC" & "########" Then
        TextBox4.Text = ""
        TextBox4.SetFocus
        Cancel = True
        MsgBox "Invalid Entry"
    End If
End Sub