Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
Check cell value exactly
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. |
#2
Posted to microsoft.public.excel.programming
|
|||
|
|||
Check cell value exactly
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. |
#3
Posted to microsoft.public.excel.programming
|
|||
|
|||
Check cell value exactly
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. |
#4
Posted to microsoft.public.excel.programming
|
|||
|
|||
Check cell value exactly
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 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. |
Reply |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
check or uncheck a check box based on a cell value | Excel Discussion (Misc queries) | |||
Copy and move check box (check boxes) with new cell link? | Excel Worksheet Functions | |||
Cannot check the check mark box in cell | Excel Worksheet Functions | |||
check to see if a cell is blank if not populate adjacent cell wit. | Excel Discussion (Misc queries) | |||
Check if Conditional Format is True or False / Check cell Color | Excel Worksheet Functions |