Userform/TextBox Issues

M

mastermind

I have mutlitple boxes on a userform that run the exact same code as
can be seen below. For the sake of efficiencey I would like all these
textboxes to reference the same section of code, but I can't seem to
get it to work. Can anyone help me with this problem?

Private Sub TextBox1_Change()
If IsNumeric(TextBox1.Text) Then
If TextBox1.Value < 1 Or TextBox1.Value > 12 Then
TextBox1.Value = Month(Date)
MsgBox "This box is intended to indicate the month and" &
_
vbCrLf & "will only accept values between 1 and 12"
End If
Else
TextBox1.Value = ""
End If
End Sub
 

Ask a Question

Want to reply to this thread or ask your own question?

You'll need to choose a username for the site, which only take a couple of moments. After that, you can post your question and our members will help you out.

Ask a Question

Similar Threads

Userform/Textbox Issues 2
Userform textbox string to header causes unwanted double spacing 4
TextBox_Change() problem 3
Adding a Leter to a Numerical Value on Exit 5
TextBox Change/Exit problem 3
Return to UserForm 2
Add a new row in Named Table (Table1) and add data from txtboxes into last empty cells based on header named of the Table1 0
Add the values of TextBoxes 2

Top