L
learner
I'm trying to prevent typos entered through Userform:
id = TextBox1.Value
Worksheets("Eq'tDetails").Activate
Set rngToCheck = Columns("A:A")
Set rngValidate = rngToCheck.Find(id, LookIn:=xlValues,
SearchDirection:=xlPrevious)
If rngValidate Is Nothing Then
Unload Me
Worksheets("EntrySheet").Activate
MsgBox ("ID " & id & " Not Found")
GoTo LastLine 'Exits the code
End If
Else
' Rest of the code
I thought I got it but if, for example I accidentally enter "328" or "28" or
"8". etc. in TextBox1 instead of the true number"1328" I'm trying to
validate, Excell still accepts it and proceeds with the rest of the code. It
works fine otherwise.
Thank you for help.
id = TextBox1.Value
Worksheets("Eq'tDetails").Activate
Set rngToCheck = Columns("A:A")
Set rngValidate = rngToCheck.Find(id, LookIn:=xlValues,
SearchDirection:=xlPrevious)
If rngValidate Is Nothing Then
Unload Me
Worksheets("EntrySheet").Activate
MsgBox ("ID " & id & " Not Found")
GoTo LastLine 'Exits the code
End If
Else
' Rest of the code
I thought I got it but if, for example I accidentally enter "328" or "28" or
"8". etc. in TextBox1 instead of the true number"1328" I'm trying to
validate, Excell still accepts it and proceeds with the rest of the code. It
works fine otherwise.
Thank you for help.