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.

If you are looking for a whole cell match...

Set rngValidate = rngToCheck.Find(id, LookIn:=xlValues,
LookAt:=xlWhole,SearchDirection:=xlPrevious)

If this post helps click Yes
---------------
Jacob Skaria


"learner" wrote:

> 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.

Thank you Jacob... so simple, but nevertheless very helpful for an amateur
like me. Very appreciated.

"Jacob Skaria" wrote:

> If you are looking for a whole cell match...
>
> Set rngValidate = rngToCheck.Find(id, LookIn:=xlValues,
> LookAt:=xlWhole,SearchDirection:=xlPrevious)
>
> If this post helps click Yes
> ---------------
> Jacob Skaria
>
>
> "learner" wrote:
>
> > 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.

Hi

I am not quite sure what you want, but if user should always enter a
four digit number, then try comething like this:

id = TextBox1.Value
If Len(Textbox1.Value)<>4 Or Not IsNumeric(TextBox1.value) then
'Invalud entry
Exit sub
End If
Worksheets("Eq'tDetails").Activate
' Rest of code


Regards,
Per

On 24 Okt., 04:18, learner <lear...@discussions.microsoft.com> wrote:
> 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.