VBA to give the ctrl-F (find) function

[markharris2004]

I am looking for help is there is a vba function to do exactly what the ctrl-f (find function)

I am looking for a macro that will bring up the find box and default to search the entire workbook. I want to then type in the string and find all for it to display all locations in the workbook where the string exists

any help would be appreciated

[ragulduy]

You can use .find to do the ctrl-f (this is what you will get if you use the macro recorder but I don't think you can use the find all part of it from vba). You would probably need to loop through to find all occurences. How would you want it to be displayed?

To start you off:

Please Login or Register  to view this content.

[markharris2004]

Thanks for the quick reply. I would like to display the results in a box showing all locations in every worksheet within the workbook. ideally I would like to click then to goto all of these but could be dreaming. Basically I would like to launch the excel find window with the search defaulted to search the entire workbook if possible . hence drive the ctrl F function request

many thanks
mark

[ragulduy]

Normally I wouldn't recommend using sendkeys but in this instance it might be an option:

Please Login or Register  to view this content.

Alternatively, have a look here: www.cpearson.com/excel/findall.aspx

[markharris2004]

Finally solved using keystrokes as suggested

here is the code
Sub Find()
'
' Keystrokes to Open Find Windows & Select to Search Entire Workbook
SendKeys "^f", Wait ' CTRL & F (Find)
SendKeys "%t", Wait ' Alt & T (Options)
SendKeys "%h", Wait ' Alt & H (Within)
SendKeys "w", Wait ' W (Select Workbook from Drop Down)
SendKeys "{enter}", Wait ' ENTER (To Select Workbook)
SendKeys "%N", Wait ' Alt & N (Select Find What Field)
SendKeys "{delete}" ' Delete (To Clear the Field ready for Input)
'
End Sub

[iconic_everything]

Hey guys! Year 2020 here.
This is my amateur VBA for an auto-column search:


Sub Column_Search()
' Column Search
' Keyboard Shortcut: Ctrl+Shift+F
'
ActiveCell.Columns("A:A").EntireColumn.Select
SendKeys "^f", Wait ' CTRL & F (Find)

End Sub

[AliGW]

Did you come here in a De Lorean?