Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
Open Excel from a VB6 application then use "Find and Replace" form
Hi all,
I need to open Excel from an VB6 application and run the "Find and Replace" form using a value that the VB application has it. I like the "Find and Replace" form better that using regular code because it has an window that opens and shows what are the search results. Any suggestion is welcome!!! |
#2
Posted to microsoft.public.excel.programming
|
|||
|
|||
Open Excel from a VB6 application then use "Find and Replace" form
You can use the standard built in dialog like this Sub test() Set FindDialog = Application.Dialogs(xlDialogFormulaFind) Results = FindDialog.Show ' results is a boolean MyResults = ActiveCell.Value End Sub I've never been able to figure out how to get the results from htis dialog. It seems to only bring up a tool that the user can use but not the VBA code. The parameter are : text, in_num, at_num, by_num, dir_num, match_case, match_byte So you can use the following to find the string 123 Results = FindDialog.Show(arg1:="123") -- joel ------------------------------------------------------------------------ joel's Profile: 229 View this thread: http://www.thecodecage.com/forumz/sh...d.php?t=163850 Microsoft Office Help |
#3
Posted to microsoft.public.excel.programming
|
|||
|
|||
Open Excel from a VB6 application then use "Find and Replace"
Thank you so much Joel. Sorry for the delayed "Thank you!", I couldnt find my
thread in the web site..now I learned how to do it... Thank you so much for helping me. It will be a pleasure to show you the final result if you wish to... Happy New Year and all the best! "joel" wrote: You can use the standard built in dialog like this Sub test() Set FindDialog = Application.Dialogs(xlDialogFormulaFind) Results = FindDialog.Show ' results is a boolean MyResults = ActiveCell.Value End Sub I've never been able to figure out how to get the results from htis dialog. It seems to only bring up a tool that the user can use but not the VBA code. The parameter are : text, in_num, at_num, by_num, dir_num, match_case, match_byte So you can use the following to find the string 123 Results = FindDialog.Show(arg1:="123") -- joel ------------------------------------------------------------------------ joel's Profile: 229 View this thread: http://www.thecodecage.com/forumz/sh...d.php?t=163850 Microsoft Office Help . |
Reply |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
"For each w in workbooks "can't find ".dat" open excel sheets, | Excel Programming | |||
"Find" a wildcard as a place marker and "replace" with original va | Excel Discussion (Misc queries) | |||
how to get vba to display excel 2002+ "Find & Replace" dialog | Excel Programming | |||
How to replace "#N/A" w "0"when vlookup couldn't find the match? | Excel Discussion (Misc queries) | |||
Replace dialog should put focus on "Find What" not "Replace With" | Excel Discussion (Misc queries) |