error message if nothing is found

[gb123]

I found this very simple code find method but I need to have it give an error message when it cannot find what was entered into the input box. The message box should have an OK button that will return back to the input box so the user can try again.

Sub FindMe()
Cells.Find(What:=InputBox("Please enter SKU", "Search"), _
After:=ActiveCell, LookIn:=xlFormulas, LookAt:=xlPart, _
SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:= _
False).Activate
End Sub

 

[Firefly2012]

Try:

Sub FindMe()
Dim rFound As Range

find_cell:
Set rFound = 
Cells.Find(What:=InputBox("Please enter SKU", "Search"), _
After:=ActiveCell, LookIn:=xlFormulas, LookAt:=xlPart, _
SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:= _
False)

If Not rFound Is Nothing Then
  MsgBox "Value not found!"
  Goto find_cell
End If

rFound.Activate
End Sub

 

[gb123]

thanks for the suggestion. I tried and it did not work. the error mssg pops up no matter what I put in. And if a place some gibberish like "asdfasd" it gives me a runtime error. the original version did find a value and anything that was similar.

Also, when you hit cancel on the input box it takes you back to the error mssg box instead of closing.

 

[Firefly2012]

Whoops - that If statement should have been:

If rFound Is Nothing Then   'note no Not

 

[gb123]

Perfect! Thanks.