VBA to create a searchbox to search for a key word then an option to find next.

Good morning all, I am having some problems with some code.


Hello all,

I want to be able to search for keywords in a spread sheet with the option to find next. I understand that I can press CTRL-f but I would like to have a cell with a search box. I have done all I can to get this to work but so far all It will do is find one of many keywords and not find the next in the spreadsheet. Code is below. Can anyone help me with this?

Sub Search_Click()

'Opens box and ask what do they want to search
searchthis = InputBox("Go get it Benny.", "Property Search")
'Tells where to search
Columns("A:P").Select
'and then search in them whatever the user entered:
Selection.Find(What:=searchthis, After:=ActiveCell, LookIn:= _
xlFormulas, LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:= _
xlNext).Activate

End Sub

Hi,

Look at this code :

Sub Search_Click()
  Dim rng As Range, c As Range, i As Long
  'Tells where to search
  Set rng = Columns("A:P")
  'Opens box and ask what do they want to search
  searchthis = InputBox("Go get it Benny.", "Property Search")
  'Find and activate
  Set c = rng.Find(What:=searchthis, After:=ActiveCell, LookIn:= _
          xlFormulas, LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:= _
          xlNext)
  If Not c Is Nothing Then c.Activate Else Exit Sub
  'Loop for FindNext
  Do
    i = MsgBox("Find Next ?", vbYesNo)
    If i = vbYes Then
       Set c = rng.FindNext(c)
       c.Activate
    End If
  Loop While Not c Is Nothing And i = vbYes
End Sub

Originally Posted by benosmond

KareDog, Thanks you so much for the help! This works perfect, Thanks.

Bosmond

You're welcome Bosmond.