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

 

[Maher_Zeetawi]

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

it is not giving any action or message as I entered HCnumber with fewer numbers means 3 digits not 8 digits after the HC

 

[igold]

Ok then, how about this...

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

 

[Maher_Zeetawi]

Ok then, how about this...

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

Great dear
actually, I want to erase the previous comment because i discovered the mistake
now only working if there is an entry inside the textbox
and if I close the form or transfer to another form thru the buttons will not give any msg

thank you
God bless you

 

[igold]

At this point I don't know what you want. If you want to list all your requirements in one post, then perhaps we can get this done. Please consider all your requirements and possible outcomes.

 

[Maher_Zeetawi]

At this point I don't know what you want. If you want to list all your requirements in one post, then perhaps we can get this done. Please consider all your requirements and possible outcomes.

thank you, dear
it is working perfectly
just I have given you the feedback
my warm regrads

 

[igold]

Ok, I am glad it is working.