'for txt2
If txt2.Value <> "" And Not IsNumeric(txt2) Then
MsgBox "Please enter Numbers only"
Exit Sub
ElseIf txt2.Value > 100 Or txt2.Value < 1 Then
MsgBox "Number Outside limits ""1-100"""
Exit Sub
End If
'for txt3
If txt3.Value <> "" And Not IsNumeric(txt3) Then
MsgBox "Please enter Numbers only"
Exit Sub
ElseIf txt3.Value > 100 Or txt3.Value < 1 Then
MsgBox "Number Outside limits ""1-100"""
Exit Sub
End If
'for txt4
If txt4.Value <> "" And Not IsNumeric(txt4) Then
MsgBox "Please enter Numbers only"
Exit Sub
ElseIf txt4.Value > 100 Or txt4.Value < 1 Then
MsgBox "Number Outside limits ""1-100"""
Exit Sub
End If
I am using this code for multiple textboxes in one user form. When i fill in all text boxes with numbers within my range it works. But when leave some empty or "" my msgbox pops up "Number outside the limits..."
What do you suggest for multiple textboxes on one userform? Can we modify this code?
If txt2.Value <> "" And Not IsNumeric(txt2) Then
MsgBox "Please enter Numbers only"
Exit Sub
ElseIf txt2.Value > 100 Or txt2.Value < 1 Then
MsgBox "Number Outside limits ""1-100"""
Exit Sub
End If
'for txt3
If txt3.Value <> "" And Not IsNumeric(txt3) Then
MsgBox "Please enter Numbers only"
Exit Sub
ElseIf txt3.Value > 100 Or txt3.Value < 1 Then
MsgBox "Number Outside limits ""1-100"""
Exit Sub
End If
'for txt4
If txt4.Value <> "" And Not IsNumeric(txt4) Then
MsgBox "Please enter Numbers only"
Exit Sub
ElseIf txt4.Value > 100 Or txt4.Value < 1 Then
MsgBox "Number Outside limits ""1-100"""
Exit Sub
End If
I am using this code for multiple textboxes in one user form. When i fill in all text boxes with numbers within my range it works. But when leave some empty or "" my msgbox pops up "Number outside the limits..."
What do you suggest for multiple textboxes on one userform? Can we modify this code?