Keyword Search for Multiple Sheets

[edhogan1224]

hello, i need a macro that i can click a "search" button, an input box pops up asking what id like to search, then searches through all the sheets in the workbook. Id like it to operate almost exactly like the (ctrl+f) search function, with the "find next" option. If there is a way i can bring this up when i click the button that'd be great too. I have tried recording a macro and using (ctrl+f), but it never actually records that action. I have used { Application.Dialogs(xlDialogFormulaFind).Show } in other instances, but this does not have the drop-down box allowing you to search across all the sheets. Any help would be appreciated. Thanks!

 

[ZAX]

You'll Need To Make A Userform.
If You Made One,Tell Us So We Give You Some Codes!
ZAX

 

[chuckchuckit]

Welcome to the MrExcel board!
As ZAX is perhaps suggesting, try breaking your request up into smaller project pieces to resolve one at a time. It seems a useful project but I likely would try tackling the "Userform" or the "Sheet Searching" code first.

Try one or the other and show us what code you do have and then likely many here will give improvement suggestions.
Thanks -Chuck

 

[edhogan1224]

okay, i made a userform. Its simple, just a text box and two buttons "Find Next" and "Close". Is there anything else I can do to make it easier for you guys? sorry, im kinda new to this

 

[edhogan1224]

chuckchuckit, i have a code that i found online and tweaked a bit to fit what i was doing but it is neither a keyword search, nor does it have the option to "Find Next." Here it is:


Sub Find_Data()
Dim datatoFind
Dim sheetCount As Integer
Dim counter As Integer
Dim currentSheet As Integer
On Error Resume Next
currentSheet = ActiveSheet.Index
datatoFind = InputBox("Please enter the value to search for")
If datatoFind = "" Then Exit Sub
sheetCount = ActiveWorkbook.Sheets.Count
For counter = 1 To sheetCount
Sheets(counter).Activate
Cells.Find(What:=datatoFind, After:=ActiveCell, LookIn:=xlFormulas, LookAt _
:=xlPart, SearchOrder:=xlByColumns, SearchDirection:=xlNext).Activate
If ActiveCell.Value = datatoFind Then Exit Sub
Next counter
If ActiveCell.Value <> datatoFind Then
MsgBox ("Value not found")
Sheets(currentSheet).Activate
End If
End Sub