Launch Find and Replace with VBA

[Dina01]

Hello,

I was wondering if I can launch the Find & Replace command from VBA code.

I need to be able to create it in a module and then it opens up the same Find and Replace command.

Thnaks

 

[dyarwood]

Cells.Replace What:="Whatever", Replacement:="Replacetext", LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
ReplaceFormat:=False

This will search the whole document and replace Whatever by Replacetext

dyarwood

 

[Dina01]

Hello,

Thanks for your reply but that's not what I am looking for, I only need the code to make the Find & Replace pop screen to appear, since I don't always know what I am searching for....

 

[dyarwood]

You can do a similar thing using an input box

findtext = InputBox(Prompt:="What do you want to replace&quot
replacetext = InputBox(Prompt:="Enter replacement text&quot

Cells.Replace What:=findtext, Replacement:=replacetext, LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
ReplaceFormat:=False

This will allow you to enter what to find and replace.

dyarwood

 

[Dina01]

I am going to try this...Thansk again

 

[TonyJollans]

Hi Dina01,

This should do it for you ..

Application.Dialogs(xlDialogFormulaReplace).Show

Enjoy,
Tony

 

[Dina01]

Hey Tony Thank you so much that's exactly what I was looking for....