VBA Validating a Postcode in userform

JanieC

New Member
Joined
Jan 21, 2009
Messages
1
I have created a userform and I would like the first character of my textbox to be a letter. The textbox is to be used for the postcode. I have some code that will only allow letters, numbers and spaces to be entered into this box, but I don't know how to insist that the first entry is a letter. This is my code:


Private Sub Postcode_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
Select Case KeyAscii
'Postcodes can have upto 8 charaters including a space
'32= Space, 97 to 122 = a-z, 65 to 90 = A-Z, 48 to 57 = 0-9
Case 32, 65 To 90, 97 To 122, 48 To 57
Case Else
'character is printed, but we are sending backspace right immediately.

'Key 8 is = Backspace
KeyAscii = 8
Beep
MsgBox "Please enter a valid PostCode", vbOKOnly, "Postcode Entry"

End Select
End Sub

Thank You
JanieC :rolleyes:
 

Excel Facts

Copy a format multiple times
Select a formatted range. Double-click the Format Painter (left side of Home tab). You can paste formatting multiple times. Esc to stop
Try this change to your code

Private Sub Postcode_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
Select Case KeyAscii
'Postcodes can have upto 8 charaters including a space
'32= Space, 97 to 122 = a-z, 65 to 90 = A-Z, 48 to 57 = 0-9
Case 65 To 90, 97 To 122
Case 32, 48 To 57
If Len(Postcode.Text) = 0 Then GoTo 1:
Case Else
'character is printed, but we are sending backspace right immediately.
1:
'Key 8 is = Backspace
KeyAscii = 8
Beep
MsgBox "Please enter a valid PostCode", vbOKOnly, "Postcode Entry"

End Select
End Sub
 
Upvote 0

Forum statistics

Threads
1,213,496
Messages
6,113,993
Members
448,539
Latest member
alex78

We've detected that you are using an adblocker.

We have a great community of people providing Excel help here, but the hosting costs are enormous. You can help keep this site running by allowing ads on MrExcel.com.
Allow Ads at MrExcel

Which adblocker are you using?

Disable AdBlock

Follow these easy steps to disable AdBlock

1)Click on the icon in the browser’s toolbar.
2)Click on the icon in the browser’s toolbar.
2)Click on the "Pause on this site" option.
Go back

Disable AdBlock Plus

Follow these easy steps to disable AdBlock Plus

1)Click on the icon in the browser’s toolbar.
2)Click on the toggle to disable it for "mrexcel.com".
Go back

Disable uBlock Origin

Follow these easy steps to disable uBlock Origin

1)Click on the icon in the browser’s toolbar.
2)Click on the "Power" button.
3)Click on the "Refresh" button.
Go back

Disable uBlock

Follow these easy steps to disable uBlock

1)Click on the icon in the browser’s toolbar.
2)Click on the "Power" button.
3)Click on the "Refresh" button.
Go back
Back
Top