VBA - Search engine help
Closed
ITAnalyst
-
Jun 14, 2012 at 02:22 AM
TrowaD
TrowaD
- Posts
- 2886
- Registration date
- Sunday September 12, 2010
- Status
- Moderator
- Last seen
- June 27, 2022
Related:
- VBA - Search engine help
- Opera search engine - Guide
- Vba search - Guide
- Autograph search engine - Guide
- How to disable search engine in chrome - Guide
- Install duckduckgo search engine - Guide
1 reply
TrowaD
Jun 25, 2012 at 08:59 AM
- Posts
- 2886
- Registration date
- Sunday September 12, 2010
- Status
- Moderator
- Last seen
- June 27, 2022
Jun 25, 2012 at 08:59 AM
Hi ITAnalyst,
You mean something like this:
Sub Find_Data()
Best regards,
Trowa
You mean something like this:
Sub Find_Data()
Dim datatoFind Dim sheetCount As Integer Dim counter As Integer Dim aCell As Range On Error Resume Next Set aCell = ActiveCell datatoFind = InputBox("Please enter one or more words of the users issue") If datatoFind = vbNullString 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:=xlByRows, SearchDirection:=xlNext, MatchCase:= _ False).Activate If aCell <> ActiveCell Then Exit Sub Next counter If aCell = ActiveCell Then MsgBox ("We could not seem to see that fix, please check our spelling and try to refine your search with fewer words") End Sub
Best regards,
Trowa