Hi,
So I am attempting to secure my sheet with some error capture on a certain cell A10, as this is where users are inputting search terms to filter out data to match their term.
I had a previous error return that would check their entry against every entry in the data sheet to see if there was any match, if not then return an error.
I am looking to do the same for if there is NO/NULL ENTRY in cell A10. Below is what I have tried but I cant seem to get it working.
Code
''///Make 'x' the value of A10 (search parameter)
x = Worksheets("search").Range("A10").Value
''///Use 'x' to then filter through data sheet
Set chk = Worksheets("data").Range("A10").CurrentRegion.Columns(1).Cells.Find(x)
''///If no matches then return ERROR
If chk Is Nothing Then
MsgBox x & " is not in the database", vbCritical, "Try Again"
Worksheets("search").Activate
Exit Sub
End If
If IsEmpty(Range("A10")) Then
MsgBox "Plesae enter a value.", vbCritical, "Null Entry"
Exit Sub
End If