Textbox Alphanumeric format

[p9j123]

I need to restrict my textbox to a certain format.

textbox should only accept 6 numeric value and one alphabet, the format is always like shown below,

Can you assist me with this please? Either through properties or vba code.

012345A
000005B
001212X

 

[dmt32]

Hi,
Place these two codes in your UserForm & see if will do what you want

Private Sub TextBox1_Enter()
    With Me.TextBox1
        .MaxLength = 7
        .ControlTipText = "Enter 6 Numeric And 1 Alpha Value (e.g 123456A) Only"
    End With
End Sub

Private Sub TextBox1_Exit(ByVal Cancel As MSForms.ReturnBoolean)
    With Me.TextBox1
        .Value = UCase(.Value)
        Cancel = CBool(Len(.Value) > 0 And Not .Value Like "######[A-Z]")
        .BackColor = IIf(Cancel, vbRed, vbWhite)
    End With
End Sub

Change TextBox Name as required

Merry Christmas

Dave

 

[p9j123]

thanks @dmt32