Hi all,

I would like to make a simple menu / macro? that will help do the
following...

When a sheet is opened, I want it to be showing a simple menu and
asking / waiting for an input -
like ...

FOR THE MAIN TASK GROUP PRESS "A"
FOR ITEMS LIST PRESS "B"
FOR ASSIGNED TIMES PRESS "C"

Excel would then wait for that input and jump to that named range

then I think when I am done with that particular area I could press
CNTRL+ HOME to go to A1 - where the "Main Menu" is ... and enter
another choice - to go to a different spot if I choose.

If someone could direct me in the right direction I would appreciate
it.

TIA

Mike

On Oct 14, 10:23 am, wrote:
Hi all,

I would like to make a simple menu / macro? that will help do the
following...

When a sheet is opened, I want it to be showing a simple menu and
asking / waiting for an input -
like ...

FOR THE MAIN TASK GROUP PRESS "A"
FOR ITEMS LIST PRESS "B"
FOR ASSIGNED TIMES PRESS "C"

Excel would then wait for that input and jump to that named range

then I think when I am done with that particular area I could press
CNTRL+ HOME to go to A1 - where the "Main Menu" is ... and enter
another choice - to go to a different spot if I choose.

If someone could direct me in the right direction I would appreciate
it.

TIA

Mike

Could an input box work? In the Open event of the workbook, place
something like below (modify to suite):
Private Sub Workbook_Open()
Dim varAnswer As String
starter:
varAnswer = InputBox("Enter A, B, or C", _
"Required Input")
If varAnswer = "" Then Exit Sub
varAnswer = UCase(varAnswer)
If Not varAnswer = "A" And Not varAnswer = "B" _
And Not varAnswer = "C" Then
MsgBox "Has to be A, B, or C", , "Error"
GoTo starter
Else
Cells(1, varAnswer).Select
End If
End Sub

Thanks so much for the quick reply. I am new to this stuff, but will
be playing with your suggestion to see what I can do!


Mike


On Sun, 14 Oct 2007 09:41:20 -0700, JW wrote:

On Oct 14, 10:23 am, wrote:
Hi all,

I would like to make a simple menu / macro? that will help do the
following...

When a sheet is opened, I want it to be showing a simple menu and
asking / waiting for an input -
like ...

FOR THE MAIN TASK GROUP PRESS "A"
FOR ITEMS LIST PRESS "B"
FOR ASSIGNED TIMES PRESS "C"

Excel would then wait for that input and jump to that named range

then I think when I am done with that particular area I could press
CNTRL+ HOME to go to A1 - where the "Main Menu" is ... and enter
another choice - to go to a different spot if I choose.

If someone could direct me in the right direction I would appreciate
it.

TIA

Mike

Could an input box work? In the Open event of the workbook, place
something like below (modify to suite):
Private Sub Workbook_Open()
Dim varAnswer As String
starter:
varAnswer = InputBox("Enter A, B, or C", _
"Required Input")
If varAnswer = "" Then Exit Sub
varAnswer = UCase(varAnswer)
If Not varAnswer = "A" And Not varAnswer = "B" _
And Not varAnswer = "C" Then
MsgBox "Has to be A, B, or C", , "Error"
GoTo starter
Else
Cells(1, varAnswer).Select
End If
End Sub

I definately spoke too soon. I am most certainly lost and confused
here.

got the macro in the sheet but I cant seem to make anything happen
when the sheeet is opened. Not even an error... so I am lost here. Are
there any other suggestions .. or perhaps a basic site I could go to
and learn what I am doing wrong.

Thanks again to all


On Sun, 14 Oct 2007 16:57:40 GMT, wrote:

Thanks so much for the quick reply. I am new to this stuff, but will
be playing with your suggestion to see what I can do!


Mike


On Sun, 14 Oct 2007 09:41:20 -0700, JW wrote:

On Oct 14, 10:23 am, wrote:
Hi all,

I would like to make a simple menu / macro? that will help do the
following...

When a sheet is opened, I want it to be showing a simple menu and
asking / waiting for an input -
like ...

FOR THE MAIN TASK GROUP PRESS "A"
FOR ITEMS LIST PRESS "B"
FOR ASSIGNED TIMES PRESS "C"

Excel would then wait for that input and jump to that named range

then I think when I am done with that particular area I could press
CNTRL+ HOME to go to A1 - where the "Main Menu" is ... and enter
another choice - to go to a different spot if I choose.

If someone could direct me in the right direction I would appreciate
it.

TIA

Mike

Could an input box work? In the Open event of the workbook, place
something like below (modify to suite):
Private Sub Workbook_Open()
Dim varAnswer As String
starter:
varAnswer = InputBox("Enter A, B, or C", _
"Required Input")
If varAnswer = "" Then Exit Sub
varAnswer = UCase(varAnswer)
If Not varAnswer = "A" And Not varAnswer = "B" _
And Not varAnswer = "C" Then
MsgBox "Has to be A, B, or C", , "Error"
GoTo starter
Else
Cells(1, varAnswer).Select
End If
End Sub

On Oct 14, 2:35 pm, wrote:
I definately spoke too soon. I am most certainly lost and confused
here.

got the macro in the sheet but I cant seem to make anything happen
when the sheeet is opened. Not even an error... so I am lost here. Are
there any other suggestions .. or perhaps a basic site I could go to
and learn what I am doing wrong.

Thanks again to all

On Sun, 14 Oct 2007 16:57:40 GMT, wrote:
Thanks so much for the quick reply. I am new to this stuff, but will
be playing with your suggestion to see what I can do!

Mike

On Sun, 14 Oct 2007 09:41:20 -0700, JW wrote:

On Oct 14, 10:23 am, wrote:
Hi all,

I would like to make a simple menu / macro? that will help do the
following...

When a sheet is opened, I want it to be showing a simple menu and
asking / waiting for an input -
like ...

FOR THE MAIN TASK GROUP PRESS "A"
FOR ITEMS LIST PRESS "B"
FOR ASSIGNED TIMES PRESS "C"

Excel would then wait for that input and jump to that named range

then I think when I am done with that particular area I could press
CNTRL+ HOME to go to A1 - where the "Main Menu" is ... and enter
another choice - to go to a different spot if I choose.

If someone could direct me in the right direction I would appreciate
it.

TIA

Mike

Could an input box work? In the Open event of the workbook, place
something like below (modify to suite):
Private Sub Workbook_Open()
Dim varAnswer As String
starter:
varAnswer = InputBox("Enter A, B, or C", _
"Required Input")
If varAnswer = "" Then Exit Sub
varAnswer = UCase(varAnswer)
If Not varAnswer = "A" And Not varAnswer = "B" _
And Not varAnswer = "C" Then
MsgBox "Has to be A, B, or C", , "Error"
GoTo starter
Else
Cells(1, varAnswer).Select
End If
End Sub

Right click the Excel logo located right beside the File menu on the
menubar. Select View Code. Paste this exact code below.
Private Sub Workbook_Open()
Dim varAnswer As String
starter:
varAnswer = InputBox("Enter A, B, or C", _
"Required Input")
If varAnswer = "" Then Exit Sub
varAnswer = UCase(varAnswer)
If Not varAnswer = "A" And Not varAnswer = "B" _
And Not varAnswer = "C" Then
MsgBox "Has to be A, B, or C", , "Error"
GoTo starter
Else
Cells(1, varAnswer).Select
End If
End Sub

Save and close the workbook. ReOpen the workbook and the code above
should run, baring that you have macros enabled.

The code is to be placed into Thisworkbook module, not a sheet module.

For instructions on placement of various types of code see Ron de Bruin's site.

http://www.rondebruin.nl/code.htm




On Sun, 14 Oct 2007 18:35:07 GMT, wrote:

I definately spoke too soon. I am most certainly lost and confused
here.

got the macro in the sheet but I cant seem to make anything happen
when the sheeet is opened. Not even an error... so I am lost here. Are
there any other suggestions .. or perhaps a basic site I could go to
and learn what I am doing wrong.

Thanks again to all


On Sun, 14 Oct 2007 16:57:40 GMT, wrote:

Thanks so much for the quick reply. I am new to this stuff, but will
be playing with your suggestion to see what I can do!


Mike


On Sun, 14 Oct 2007 09:41:20 -0700, JW wrote:

On Oct 14, 10:23 am, wrote:
Hi all,

I would like to make a simple menu / macro? that will help do the
following...

When a sheet is opened, I want it to be showing a simple menu and
asking / waiting for an input -
like ...

FOR THE MAIN TASK GROUP PRESS "A"
FOR ITEMS LIST PRESS "B"
FOR ASSIGNED TIMES PRESS "C"

Excel would then wait for that input and jump to that named range

then I think when I am done with that particular area I could press
CNTRL+ HOME to go to A1 - where the "Main Menu" is ... and enter
another choice - to go to a different spot if I choose.

If someone could direct me in the right direction I would appreciate
it.

TIA

Mike

Could an input box work? In the Open event of the workbook, place
something like below (modify to suite):
Private Sub Workbook_Open()
Dim varAnswer As String
starter:
varAnswer = InputBox("Enter A, B, or C", _
"Required Input")
If varAnswer = "" Then Exit Sub
varAnswer = UCase(varAnswer)
If Not varAnswer = "A" And Not varAnswer = "B" _
And Not varAnswer = "C" Then
MsgBox "Has to be A, B, or C", , "Error"
GoTo starter
Else
Cells(1, varAnswer).Select
End If
End Sub

Excel would then wait for that input and jump to that named range
I don't think your example works to select the named range.
Instead of
Cells(1, varAnswer).Select
I think you want
Range(varAnswer).select
D-C

On Oct 14, 10:23 am, wrote:
Hi all,
I would like to make a simple menu / macro? that will help do the
following...
When a sheet is opened, I want it to be showing a simple menu and
asking / waiting for an input -
like ...
FOR THE MAIN TASK GROUP PRESS "A"
FOR ITEMS LIST PRESS "B"
FOR ASSIGNED TIMES PRESS "C"
Excel would then wait for that input and jump to that named range
then I think when I am done with that particular area I could press
CNTRL+ HOME to go to A1 - where the "Main Menu" is ... and enter
another choice - to go to a different spot if I choose.
If someone could direct me in the right direction I would appreciate
it.
TIA Mike

On Sun, 14 Oct 2007 09:41:20 -0700, JW wrote:
Could an input box work? In the Open event of the workbook, place
something like below (modify to suite):
Private Sub Workbook_Open()
Dim varAnswer As String
starter:
varAnswer = InputBox("Enter A, B, or C", _
"Required Input")
If varAnswer = "" Then Exit Sub
varAnswer = UCase(varAnswer)
If Not varAnswer = "A" And Not varAnswer = "B" _
And Not varAnswer = "C" Then
MsgBox "Has to be A, B, or C", , "Error"
GoTo starter
Else
Cells(1, varAnswer).Select
End If
End Sub

Gord Dibben wrote:
The code is to be placed into Thisworkbook module, not a sheet module.
For instructions on placement of various types of code see Ron de Bruin's site.
http://www.rondebruin.nl/code.htm



----== Posted via Newsfeeds.Com - Unlimited-Unrestricted-Secure Usenet News==----
http://www.newsfeeds.com The #1 Newsgroup Service in the World! 120,000+ Newsgroups
----= East and West-Coast Server Farms - Total Privacy via Encryption =----

Dave, you are correct. I looked right over the fact that the OP
wanted to go to a named range. Thanks for setting me straight.

Regards
-Jeff-

Dave D-C wrote:
Excel would then wait for that input and jump to that named range
I don't think your example works to select the named range.
Instead of
Cells(1, varAnswer).Select
I think you want
Range(varAnswer).select
D-C

On Oct 14, 10:23 am, wrote:
Hi all,
I would like to make a simple menu / macro? that will help do the
following...
When a sheet is opened, I want it to be showing a simple menu and
asking / waiting for an input -
like ...
FOR THE MAIN TASK GROUP PRESS "A"
FOR ITEMS LIST PRESS "B"
FOR ASSIGNED TIMES PRESS "C"
Excel would then wait for that input and jump to that named range
then I think when I am done with that particular area I could press
CNTRL+ HOME to go to A1 - where the "Main Menu" is ... and enter
another choice - to go to a different spot if I choose.
If someone could direct me in the right direction I would appreciate
it.
TIA Mike

On Sun, 14 Oct 2007 09:41:20 -0700, JW wrote:
Could an input box work? In the Open event of the workbook, place
something like below (modify to suite):
Private Sub Workbook_Open()
Dim varAnswer As String
starter:
varAnswer = InputBox("Enter A, B, or C", _
"Required Input")
If varAnswer = "" Then Exit Sub
varAnswer = UCase(varAnswer)
If Not varAnswer = "A" And Not varAnswer = "B" _
And Not varAnswer = "C" Then
MsgBox "Has to be A, B, or C", , "Error"
GoTo starter
Else
Cells(1, varAnswer).Select
End If
End Sub

Gord Dibben wrote:
The code is to be placed into Thisworkbook module, not a sheet module.
For instructions on placement of various types of code see Ron de Bruin's site.
http://www.rondebruin.nl/code.htm



----== Posted via Newsfeeds.Com - Unlimited-Unrestricted-Secure Usenet News==----
http://www.newsfeeds.com The #1 Newsgroup Service in the World! 120,000+ Newsgroups
----= East and West-Coast Server Farms - Total Privacy via Encryption =----