Home Menu

Menu


ExcelBanter » Excel Newsgroups » Excel Programming > Auto_Open - Prompt to Continue?
Reply
 
LinkBack Thread Tools Search this Thread Display Modes
  #1   Report Post  
Posted to microsoft.public.excel.programming
external usenet poster
  
Posts: 4
Default Auto_Open - Prompt to Continue?
I have a Auto_Open macro that opens multiple workbooks. However, while I do
need it to run MOST of the time, I want an option to NOT run it.
Can I add code that will prompt "Would you like to Open Workbooks?", Yes
continues and No stops the macro...
Don't think you need it, but here's the macro now...
(Yes it's bloated, but each workbook is in a different child directory, and
I already had hyperlinks, so I just did a macro record)(I'm macro ignorant
too, can you tell?:-D)
Sub Auto_Open()
'
' Auto_Open Macro
' Macro recorded 10/13/2004 by Peter Kley
'

'
Range("O1").Select
Selection.Hyperlinks(1).Follow NewWindow:=False, AddHistory:=True
Windows("Payroll_Master_Entry_Concord_New.xls").Ac tivate
Sheets("GGD").Select
Range("O1").Select
Selection.Hyperlinks(1).Follow NewWindow:=False, AddHistory:=True
Windows("Payroll_Master_Entry_Concord_New.xls").Ac tivate
Sheets("JCF").Select
Range("O1").Select
Selection.Hyperlinks(1).Follow NewWindow:=False, AddHistory:=True
Windows("Payroll_Master_Entry_Concord_New.xls").Ac tivate
Sheets("MAK").Select
Range("O1").Select
Selection.Hyperlinks(1).Follow NewWindow:=False, AddHistory:=True
ActiveWindow.ActivateNext
Sheets("PSB").Select
Range("O1").Select
Selection.Hyperlinks(1).Follow NewWindow:=False, AddHistory:=True
ActiveWindow.ActivateNext
Sheets("RXA").Select
Range("N1").Select
Selection.Hyperlinks(1).Follow NewWindow:=False, AddHistory:=True
ActiveWindow.ActivateNext
ActiveWindow.ScrollWorkbookTabs Position:=xlLast
Sheets("TRA").Select
Range("N1").Select
Selection.Hyperlinks(1).Follow NewWindow:=False, AddHistory:=True
ActiveWindow.ActivateNext
Sheets("TTT").Select
Range("N1").Select
Selection.Hyperlinks(1).Follow NewWindow:=False, AddHistory:=True
ActiveWindow.ActivateNext
ActiveWindow.ScrollWorkbookTabs Position:=xlFirst
Sheets("CEC").Select
Range("O1").Select
Selection.Hyperlinks(1).Follow NewWindow:=False, AddHistory:=True
ActiveWindow.ActivateNext
Range("B277").Select
End Sub

Reply With QuoteReply With Quote
  #2   Report Post  
Posted to microsoft.public.excel.programming
external usenet poster
  
Posts: 3,885
Default Auto_Open - Prompt to Continue?
Hi
use the following type of code:

dim res
res=msgbox ("Continue",vbyesno)
if res<vbyes then exit sub
'your code


--
Regards
Frank Kabel
Frankfurt, Germany


pkley wrote:
I have a Auto_Open macro that opens multiple workbooks. However,
while I do need it to run MOST of the time, I want an option to NOT
run it.
Can I add code that will prompt "Would you like to Open Workbooks?",
Yes continues and No stops the macro...
Don't think you need it, but here's the macro now...
(Yes it's bloated, but each workbook is in a different child
directory, and I already had hyperlinks, so I just did a macro
record)(I'm macro ignorant too, can you tell?:-D)
Sub Auto_Open()
'
' Auto_Open Macro
' Macro recorded 10/13/2004 by Peter Kley
'

'
Range("O1").Select
Selection.Hyperlinks(1).Follow NewWindow:=False, AddHistory:=True
Windows("Payroll_Master_Entry_Concord_New.xls").Ac tivate
Sheets("GGD").Select
Range("O1").Select
Selection.Hyperlinks(1).Follow NewWindow:=False, AddHistory:=True
Windows("Payroll_Master_Entry_Concord_New.xls").Ac tivate
Sheets("JCF").Select
Range("O1").Select
Selection.Hyperlinks(1).Follow NewWindow:=False, AddHistory:=True
Windows("Payroll_Master_Entry_Concord_New.xls").Ac tivate
Sheets("MAK").Select
Range("O1").Select
Selection.Hyperlinks(1).Follow NewWindow:=False, AddHistory:=True
ActiveWindow.ActivateNext
Sheets("PSB").Select
Range("O1").Select
Selection.Hyperlinks(1).Follow NewWindow:=False, AddHistory:=True
ActiveWindow.ActivateNext
Sheets("RXA").Select
Range("N1").Select
Selection.Hyperlinks(1).Follow NewWindow:=False, AddHistory:=True
ActiveWindow.ActivateNext
ActiveWindow.ScrollWorkbookTabs Position:=xlLast
Sheets("TRA").Select
Range("N1").Select
Selection.Hyperlinks(1).Follow NewWindow:=False, AddHistory:=True
ActiveWindow.ActivateNext
Sheets("TTT").Select
Range("N1").Select
Selection.Hyperlinks(1).Follow NewWindow:=False, AddHistory:=True
ActiveWindow.ActivateNext
ActiveWindow.ScrollWorkbookTabs Position:=xlFirst
Sheets("CEC").Select
Range("O1").Select
Selection.Hyperlinks(1).Follow NewWindow:=False, AddHistory:=True
ActiveWindow.ActivateNext
Range("B277").Select
End Sub

Reply With QuoteReply With Quote
  #3   Report Post  
Posted to microsoft.public.excel.programming
external usenet poster
  
Posts: 4
Default Auto_Open - Prompt to Continue?
Cool! It's even cleaner than what I found on the web...
Thanks!

"Frank Kabel" wrote:

Hi
use the following type of code:

dim res
res=msgbox ("Continue",vbyesno)
if res<vbyes then exit sub
'your code


--
Regards
Frank Kabel
Frankfurt, Germany


pkley wrote:
I have a Auto_Open macro that opens multiple workbooks. However,
while I do need it to run MOST of the time, I want an option to NOT
run it.
Can I add code that will prompt "Would you like to Open Workbooks?",
Yes continues and No stops the macro...
Don't think you need it, but here's the macro now...
(Yes it's bloated, but each workbook is in a different child
directory, and I already had hyperlinks, so I just did a macro
record)(I'm macro ignorant too, can you tell?:-D)
Sub Auto_Open()
'
' Auto_Open Macro
' Macro recorded 10/13/2004 by Peter Kley
'

'
Range("O1").Select
Selection.Hyperlinks(1).Follow NewWindow:=False, AddHistory:=True
Windows("Payroll_Master_Entry_Concord_New.xls").Ac tivate
Sheets("GGD").Select
Range("O1").Select
Selection.Hyperlinks(1).Follow NewWindow:=False, AddHistory:=True
Windows("Payroll_Master_Entry_Concord_New.xls").Ac tivate
Sheets("JCF").Select
Range("O1").Select
Selection.Hyperlinks(1).Follow NewWindow:=False, AddHistory:=True
Windows("Payroll_Master_Entry_Concord_New.xls").Ac tivate
Sheets("MAK").Select
Range("O1").Select
Selection.Hyperlinks(1).Follow NewWindow:=False, AddHistory:=True
ActiveWindow.ActivateNext
Sheets("PSB").Select
Range("O1").Select
Selection.Hyperlinks(1).Follow NewWindow:=False, AddHistory:=True
ActiveWindow.ActivateNext
Sheets("RXA").Select
Range("N1").Select
Selection.Hyperlinks(1).Follow NewWindow:=False, AddHistory:=True
ActiveWindow.ActivateNext
ActiveWindow.ScrollWorkbookTabs Position:=xlLast
Sheets("TRA").Select
Range("N1").Select
Selection.Hyperlinks(1).Follow NewWindow:=False, AddHistory:=True
ActiveWindow.ActivateNext
Sheets("TTT").Select
Range("N1").Select
Selection.Hyperlinks(1).Follow NewWindow:=False, AddHistory:=True
ActiveWindow.ActivateNext
ActiveWindow.ScrollWorkbookTabs Position:=xlFirst
Sheets("CEC").Select
Range("O1").Select
Selection.Hyperlinks(1).Follow NewWindow:=False, AddHistory:=True
ActiveWindow.ActivateNext
Range("B277").Select
End Sub


Reply With QuoteReply With Quote
Reply
Thread Tools Search this Thread
Search this Thread:

Advanced Search
Display Modes
Linear Mode Linear Mode

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
Problem with Update Link prompt to Continue Tasha Excel Discussion (Misc queries) 0 January 30th 08 07:19 PM
Auto_open and more.... pcor New Users to Excel 2 December 1st 06 02:07 AM
Auto_open and more.... Mike New Users to Excel 0 November 30th 06 07:13 PM
save prompt for user exit, but no save prompt for batch import? lpj Excel Discussion (Misc queries) 1 February 25th 06 02:08 AM
auto_open? Jack Sons Excel Discussion (Misc queries) 0 February 22nd 05 09:16 PM


All times are GMT +1. The time now is 08:47 PM.

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

About Us

"It's about Microsoft Excel"

 

Contact Us ExcelBanter forum home Privacy Statement