Find function

[3d]

is there a way to launch the find function in excel by means of pushing a button and it will launch?

[Anne Troy]

Tools-Customize.
Choose the Commands tab.
On left, choose Edit
On right, choose Find--drag it up onto your toolbar.

[Mudface]

Try right-clicking on your Excel menu bar, select 'Customize' from the menu and then click on the 'Commands' tab of the box. Click on the 'Edit' category and then scroll down until you find the 'Find' command in the right-hand list. Then just click and drag the button to your menu-bar.

[JayKay]

Hi 3d

A couple of options:

1) The keyboard shortcut for find is alt+e, f

2) Tools/Customise, New Toolbar, on the Commands tab select the edit category and drag the find command to your new toolbar.

Cheers

JayKay

[Anne Troy]

JayKay:

Ctrl-F brings up find in most apps too.

[Joe Was]

If you want to code a form button or add this utility to a macro, you can do it with the code below.
Note: The send keys code will also work.

Sub mySearch()
'Pull the "Find" Utility.

Cells.Select
ActiveWindow.ScrollRow = 1
Application.CommandBars.FindControl(ID:=1849).Execute
Application.ActiveCell.Select

End Sub


And this code will throw up an InputBox for the user to add a search string. The code will search all sheets in the workbook for the string inputed by the user. Hope these helps. JSW

Sub myfind()
'Search all sheets for InputBox string.

Dim Message, Title, Default, SearchString
Message = "Enter your search string!" ' Set prompt.
Title = "Find ? On all sheets!" ' Set title.
Default = "" ' Set default.
' Display message, title, and default value.
SearchString = InputBox(Message, Title, Default)
Set S = Sheets.Application
For Each S In Application.Sheets
With S.Range("A1:IV65536")
Set F = .Find(SearchString, MatchCase:=True, LookAt:=xlWhole, LookIn:=xlValues)
If F Is Nothing Then
Else
Location = F.Address
S.Select
Range(Location).Select
Exit For
End If
End With
Next S
End Sub

[3d]

Thankyou soooooo much for the help it works great