Compare the value of an inputbox against data in 1 column

[Grod]

How would one go about validating user input against data in one 1 column?

I have gathered the input and stored it to a defined string variable which is used as criteria for an autofilter. As the autofilter triggers another process I would like to qualify the users input before running the autofilter. My intent is to complete this section of code with an If statement to advise the user if the input is incorrect and direct them to retry their input.

 

[sbendbuckeye]

Can you post some sample data to show what you are trying to do (eg what is the input box returning and what does the data in your comparison column look like). Good Luck!

 

[Grod]

Re: Compare the value of an inputbox against data in 1 colum

The inputbox assigns a value to a variable.

dim FCT as String
FCT = InputBox("Whats the value")
Selection.AutoFilter Field:=3, Criteria1:=FCT, Operator:=xlAnd

At this stage I had the idea that if the value entered is not in the table, the autofilter will not return any value and I can use this fact to check against a blank range. If the range is blank then an if statement will direct my code to one outcome advising the user to try again.
If the range contains the data then the code will continue to complete the activity.

Here is what I tried and it seems to work.

Retry:
dim FCT as String
ThisWorkbook.Sheets("Report").Cells(2, 1).Value = ""

FCT = InputBox("Whats the value")
Selection.AutoFilter Field:=3, Criteria1:=FCT, Operator:=xlAnd

If Len(ThisWorkbook.Sheets("Sheet1").Cells(5, 1).Value) = 0 Then
MsgBox "Value Not Found in your Data! Try again or cancel."
GoTo Retry
End If

 

[NateO]

Re: Compare the value of an inputbox against data in 1 colum

Use the Match Function with an error handler, or the Find Method.

Here's an example of the former:

http://www.mrexcel.com/board2/viewtopic.php?t=74280&start=11