LinkBack Thread Tools Search this Thread Display Modes
Prev Previous Post   Next Post Next
  #13   Report Post  
Posted to microsoft.public.excel.programming
external usenet poster
 
Posts: 127
Default "Switchboard" in Excel

Thank you Gocush. Will try your suggestions. God bless.

"gocush" wrote:

I have a Sheet with the Name (in the TAB at the bottom) MainMenu
In the Visual Basic Editor I select the module for ThisWorkbook
which is just below the Sheets objects
In ThisWorkbook module I have the following code:

Private Sub Workbook_Open()
Sheets("MainMenu").Activate
End Sub

Will immediately activate my MainMenu sheet when the workbook is opened.
On this sheet is where I have the setup previously described:

Range A1:AA100 are one solid color.
I have a Title for my workbook
and a cell or drawing object with the words: "Main Menu"
Below this I have Macro Buttons
Each macro button is assgned to a macro
Some of these macros simply activate another sheet.
Others will activate a sheet then perform various tasks.
You said you already have macro with buttons, so just place these buttons
(or make new buttons) on the MainMenu sheet. You likely will have to add a
line at the start of your macros to activate a certain sheet, then continue
with your remianing code.

To get back to the MainMenu sheet you have a couple of options:
1. If a macro just performs an operation like copying/pasting something and
then you want to immediately return the use to the MainMenu, you can enter a
line of code at the end of the macro: Sheets("MainMenu").Activate before
End Sub

2. If you want the user to continue viewing/interacting with another sheet
when your macro ends, then don't reactivate the MainMenu sheet. The user can
get back to the MainMenu by clicking on that TAB at the bottom of the screen,
OR you can have a Button on each sheet that says "Return to Main Menu" The
macro behind each of these buttons would be

Sub GoToMainMenu()
Sheets("MainMenu").Activate
End Sub
Hope this helps




"Chaplain Doug" wrote:

Dear Gocush:

Sheets("MainMenu").ScrollArea="A1"

Does this mean that the main sheet needs to be named "MainMenu"? Would I
then have my sub menus on other sheets and have the Main Menu activate those
sheets when selected from the main menu? Thanks for more information.

"gocush" wrote:

I do this quit often with the following manner:

Select Cells A1 to AA100 ( the 2nd cell needs to be "off screen" when
viewed by the largest monitor available and depends on the column width and
row height you are using)
Then select a Background Color for these cells. This should also hide the
grid lines.

I then arrange my macro buttons as desired and use the drawing tool to make
a large rectangle with the title of my application
and another smaller rectangle with the Words: Main Menu
I center these rectangles and place them near the top of the screen.

I then add vba code

Sheets("MainMenu").ScrollArea="A1"

which prevents a user from scrolling to unformatted cells

"Chaplain Doug" wrote:

Office Pro XP and 2003. I have written some VBA code in Outlook, Excel, etc.
that perform various functions. Is there a way to set up a "switchboard"
type interface like that of Access that would call these various macros and
routines. At present I have some command buttons in an Excel workbook that
do these things, but honestly it looks dorky. Any help would be appreciated.
Thanks and God bless.
--
Dr. Doug Pruiett
Good News Jail & Prison Ministry
www.goodnewsjail.org

 
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
Excel - Golf - how to display "-2" as "2 Under" or "4"as "+4" or "4 Over" in a calculation cell Steve Kay Excel Discussion (Misc queries) 2 August 8th 08 01:54 AM
change "true" and "false" to "availble" and "out of stock" inthestands Excel Worksheet Functions 2 July 19th 07 07:05 PM
Help!!! Enter "7" in a cell and Excel changes the "7" to "11" immediately!!! [email protected] Excel Discussion (Misc queries) 3 January 5th 07 02:18 PM
HELP on "left","right","find","len","substitute" functions serene83 Excel Discussion (Misc queries) 5 June 27th 06 02:23 AM
Count occurences of "1"/"0" (or"TRUE"/"FALSE") in a row w. conditions in the next BCB New Users to Excel 7 May 13th 06 10:02 PM


All times are GMT +1. The time now is 11:33 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"