Excel Macro

sf49nks · May 7th, 2002, 04:39 PM

I'd like to write a macro that uses a button on the worksheet that does an Edit/Find.

Thank you.

Qroozn · May 7th, 2002, 04:43 PM

sub findnow
finderword = inputbox ("Please enter the VALUE to find")
Cells.Find(What:=finderword, After:=ActiveCell, LookIn:=xlFormulas, LookAt _
:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:= _
False).Activate
End Sub

brettvba · May 7th, 2002, 05:08 PM

what are you trying to find numbers or letters?

brettvba · May 7th, 2002, 05:20 PM

try this

Sub findnow()
Dim finderword
On Error GoTo errorman
finderword = (CVar(InputBox("Please enter the VALUE to find")))
If finderword = Empty Then Exit Sub
Cells.Find(What:=(finderword), After:=ActiveCell, LookIn:=xlValues, LookAt:= _
xlWhole, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:=False _
, SearchFormat:=False).Activate
Exit Sub
errorman:
msg = MsgBox("Requested Value Not Found, Try Again?", vbYesNo + vbCritical, "VALUE NOT FOUND")
If msg = vbYes Then findnow
End Sub

if file is not found it will ask to try again
that help

_________________

also if you want to edit the cell when you find it post back

[ This Message was edited by: brettvba on 2002-05-07 16:31 ]

Thread Tools
Show Printable Version Email this Page
Display Modes
Linear Mode Switch to Hybrid Mode Switch to Threaded Mode

May 7th, 2002, 04:39 PM	#1
sf49nks New Member Join Date: May 2002 Posts: 1	I'd like to write a macro that uses a button on the worksheet that does an Edit/Find. Thank you.

May 7th, 2002, 04:43 PM	#2
Qroozn Board Regular Join Date: Mar 2002 Location: Sydney/Brisbane , Australia Posts: 539	sub findnow finderword = inputbox ("Please enter the VALUE to find") Cells.Find(What:=finderword, After:=ActiveCell, LookIn:=xlFormulas, LookAt _ :=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:= _ False).Activate End Sub

May 7th, 2002, 05:08 PM	#3
brettvba MrExcel MVP Join Date: Feb 2002 Location: Christchurch New Zealand Posts: 1,030	what are you trying to find numbers or letters?

May 7th, 2002, 05:20 PM	#4
brettvba MrExcel MVP Join Date: Feb 2002 Location: Christchurch New Zealand Posts: 1,030	try this Sub findnow() Dim finderword On Error GoTo errorman finderword = (CVar(InputBox("Please enter the VALUE to find"))) If finderword = Empty Then Exit Sub Cells.Find(What:=(finderword), After:=ActiveCell, LookIn:=xlValues, LookAt:= _ xlWhole, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:=False _ , SearchFormat:=False).Activate Exit Sub errorman: msg = MsgBox("Requested Value Not Found, Try Again?", vbYesNo + vbCritical, "VALUE NOT FOUND") If msg = vbYes Then findnow End Sub if file is not found it will ask to try again that help _________________ also if you want to edit the cell when you find it post back [ This Message was edited by: brettvba on 2002-05-07 16:31 ]