buttons on a page (excel 2000)

Topic

New Reply

I know I keep asking simple quests, and I am sorry but hopefully others can learn from my stupidity also.

I would like to put the Find Button on a page the same feature that you would get from the ctrl F command so you could click that instead of going thru the edit column or typing the shortcut . I expect it is easy to u loungers would appreciate any help

thanx

Reply | Quote

Replies

Not on a sheet, but on the Tool Bar for access to all sheets.

Go to Tools > Customize > Commands (tab). On the left select Edit, then on the right side of the screen, scroll down to the Find command (should look like binoculars). Drag that to the Tool Bar – any where you want – and release. The binoculars should appear. Close the Customize box. And you are set.

Reply | Quote

shades has the answer if you want to add the Find button to your menu. If you wanted to add such a button to a worksheet, here are -very- basic instructions.

If none exists, create a VBA Module in the target WorkBook, and insert the following code:

Sub Find_Button_Click()
Application.Dialogs(xlDialogFormulaFind).Show
End Sub

Open the WorkSheet of this WB, select View, Toolbars, Forms. Click the Button form on the Forms TB and insert a button on the sheet where you want. Right click the button, ignore the suggested macro for the button, scroll through the macros until you see ‘Find_Button_Click’, select it and OK out. Rename the button and format it as you wish by right clicking it and using Format Control and Edit Text as needed.

HTH.

Reply | Quote

Thanx John that worked perfect !!

Reply | Quote

Despite my confusing you with shades, perpetrating several typos, and using a diffferent name for the macro in different places, you were able to get it to work?

Reply | Quote

well I thaught I got it to work I made the button clicked it up came the box everything working fine methinks until u do a search with it and it says it cant find any data on the sheet have I done something wrong? I have attached the file to show u what I mean if you close the macro search and then do the standard box it will work but not the macro one : (

Reply | Quote

Sorry, I should have remembered this: when you run this code, it doesn’t work quite the same as the usual Find. You have to -select- the area you want to search -before- you click the button (i.e., select a bunch of columns or rows), -or- you can have the Macro search the entire WS for you by changing the code as follows:

Sub Find_Button_Click()
Cells.Select
Application.Dialogs(xlDialogFormulaFind).Show
End Sub

… or you can narrow the area to be searched, so that if for example you only want to search Column C, it would be:

Sub ColC_Find_Button_Click()
Columns(“C:C”).Select
Application.Dialogs(xlDialogFormulaFind).Show
End Sub

etc.

Reply | Quote

Thanx John that worked a treat. Something else to add to my little book of helpful hints!…….thanx again for your time its appreciated : )

Reply | Quote