Button to allow a search

I would like to be able to click on a command button and have it pop up a
search window to type into to locate text or numbers??? I have been told that
it is impossible, but I think it can be done. Please help. Thanks

Private Sub Commandbutton1_Click()
application.Dialogs(xlDialogFormulaFind).show
End Sub


may be what you want.

--
Regards,
Tom Ogilvy

"Fred" <Fred@discussions.microsoft.com> wrote in message
news:FF6ACB82-196E-481E-90A4-75A2689EAC0B@microsoft.com...
> I would like to be able to click on a command button and have it pop up a
> search window to type into to locate text or numbers??? I have been told
that
> it is impossible, but I think it can be done. Please help. Thanks

Thank you!! Works great!!

"Tom Ogilvy" wrote:

> Private Sub Commandbutton1_Click()
> application.Dialogs(xlDialogFormulaFind).show
> End Sub
>
>
> may be what you want.
>
> --
> Regards,
> Tom Ogilvy
>
> "Fred" <Fred@discussions.microsoft.com> wrote in message
> news:FF6ACB82-196E-481E-90A4-75A2689EAC0B@microsoft.com...
> > I would like to be able to click on a command button and have it pop up a
> > search window to type into to locate text or numbers??? I have been told
> that
> > it is impossible, but I think it can be done. Please help. Thanks
>
>
>

Tom Ogilvy wrote

> Private Sub Commandbutton1_Click()
> application.Dialogs(xlDialogFormulaFind).show
> End Sub

Questions:
1. Is the button from the Forms or Control Toolbox?
2. How to assign a Private Sub()?
3. Will it actually find anything without a range selected?

--
David

1)
in the example, it is the click event for a commandbutton from the control
toolbox toolbar. The commandbutton's name is Commandbutton1.

2) this question is meaningless in this context. Since it is an event of
the commandbutton, it is already linked to that button. For buttons from
the forms toolbar, you would just type in the macro name in the assignment
box, even though it can't be selected from the list. Such code should be in
a general module in that case.

3) It will search within the area selected when the button is pressed. This
behavior is different from what is expected if only one cell is selected.

If a specific area is to be searched, it could be set as part of the code.

Private Sub Commandbutton1_Click()
Cells.Select
Application.Dialogs(xlDialogFormulaFind).Show
End Sub

--
Regards,
Tom Ogilvy


"David" <dturner4_1999@yahoo.com> wrote in message
news:uJxeoFwDFHA.3256@tk2msftngp13.phx.gbl...
> Tom Ogilvy wrote
>
> > Private Sub Commandbutton1_Click()
> > application.Dialogs(xlDialogFormulaFind).show
> > End Sub
>
> Questions:
> 1. Is the button from the Forms or Control Toolbox?
> 2. How to assign a Private Sub()?
> 3. Will it actually find anything without a range selected?
>
> --
> David

Tom Ogilvy wrote

> 3) It will search within the area selected when the button is pressed.
> This behavior is different from what is expected if only one cell is
> selected.

Thanks. That wasn't indicated in your reply & suggested code to the OP and
when the OP replied, in so many words, "It works!!", I wondered if I was
missing something when it wouldn't work for me. Sure, the dialog appeared,
but without selecting something first, resulted in '...unable to find...'.
That said, I don't like the results of doing it the "right" way
(range/cells selected), since the cells remain selected/shaded and only the
found value is highlighted--unlike the results of Ctrl+F. I've opted to
drag the Find command button (binoculars) to a standard toolbar.

--
David