Reply
 
LinkBack Thread Tools Search this Thread Display Modes
  #1   Report Post  
Posted to microsoft.public.excel.programming
external usenet poster
 
Posts: 104
Default Application.Dialogs(xlDialogFormulaFind).....HELP! !!!!!

I've got the below code:

Sheets("Data").Activate
Cells.Select
Application.Dialogs(xlDialogFormulaFind).Show "Hello"

So when you go onto the sheet "Data" the find diallog box comes up
with "Hello" in it.
There are loads of instances of "Hello" on the Data sheet - how can I
modify the above code, so that when the macro is run the first
instance of Hello has already been found?

Any help greatly appreciated

Jason
  #2   Report Post  
Posted to microsoft.public.excel.programming
external usenet poster
 
Posts: 27,285
Default Application.Dialogs(xlDialogFormulaFind).....HELP! !!!!!

Dim rng as range
Sheets("Data").Activate
Cells.Select
set rng = Cell.Find("Hello")
if not rng is nothing then
rng.Select
Application.Dialogs(xlDialogFormulaFind).Show "Hello"
end if

--
Regards,
Tom Ogilvy


"jason" wrote in message
om...
I've got the below code:

Sheets("Data").Activate
Cells.Select
Application.Dialogs(xlDialogFormulaFind).Show "Hello"

So when you go onto the sheet "Data" the find diallog box comes up
with "Hello" in it.
There are loads of instances of "Hello" on the Data sheet - how can I
modify the above code, so that when the macro is run the first
instance of Hello has already been found?

Any help greatly appreciated

Jason



  #3   Report Post  
Posted to microsoft.public.excel.programming
external usenet poster
 
Posts: 104
Default Application.Dialogs(xlDialogFormulaFind).....HELP! !!!!!

Nice one Tom!
I ended up using:

Dim rng as range
Sheets("Data").Activate
Cells.Select
Set rng = Cells.Find("Hello")
If Not rng Is Nothing Then
rng.Activate
Application.Dialogs(xlDialogFormulaFind).Show "Hello"
End If

I just changed 'rng.Select' to 'rng.Activate' so that when the user
hits the find button it will go to the next instances of "hello".

Thanks again for the help
Jason


"Tom Ogilvy" wrote in message ...
Dim rng as range
Sheets("Data").Activate
Cells.Select
set rng = Cell.Find("Hello")
if not rng is nothing then
rng.Select
Application.Dialogs(xlDialogFormulaFind).Show "Hello"
end if

--
Regards,
Tom Ogilvy


"jason" wrote in message
om...
I've got the below code:

Sheets("Data").Activate
Cells.Select
Application.Dialogs(xlDialogFormulaFind).Show "Hello"

So when you go onto the sheet "Data" the find diallog box comes up
with "Hello" in it.
There are loads of instances of "Hello" on the Data sheet - how can I
modify the above code, so that when the macro is run the first
instance of Hello has already been found?

Any help greatly appreciated

Jason

Reply
Thread Tools Search this Thread
Search this Thread:

Advanced Search
Display Modes

Posting Rules

Smilies are On
[IMG] code is On
HTML code is Off
Trackbacks are On
Pingbacks are On
Refbacks are On


Similar Threads
Thread Thread Starter Forum Replies Last Post
Application.Dialogs(xlDialogPrint).Show - prints too soon Almagg via OfficeKB.com Excel Discussion (Misc queries) 3 April 27th 07 08:17 PM
Dialogs nc Excel Discussion (Misc queries) 1 March 23rd 05 02:17 PM
Dialogs Command Stratuser Excel Programming 0 February 12th 04 03:43 PM
xlDialogFormulaFind Dialog Box Len Excel Programming 0 January 7th 04 04:45 PM
application.dialogs(xlDialogSaveAs) AND CHDIR Jules[_2_] Excel Programming 1 September 3rd 03 08:27 PM


All times are GMT +1. The time now is 08:07 AM.

Powered by vBulletin® Copyright ©2000 - 2025, Jelsoft Enterprises Ltd.
Copyright ©2004-2025 ExcelBanter.
The comments are property of their posters.
 

About Us

"It's about Microsoft Excel"