[mso] Re: Using IF to select Macro command to carry out? Possible?

Wilson, that looks very reasonable. The example in my book (which does not
work!) uses this format:
Select Case WhichMacro
         Case 1
             Do RunMacro(FirstTrip)
         Case 2
             Do RunMacro(SecondTrip)
Etc........

I will implement your suggestion tomorrow morning! I like it and it looks a
<cuss> better sample than my book gives!

Thank you again.

Robert



-----Original Message-----
From: mso-bounce@xxxxxxxxxxxxx [mailto:mso-bounce@xxxxxxxxxxxxx]On Behalf Of
Wilson Baptista Junior
Sent: Tuesday, May 17, 2005 8:01 PM
To: mso@xxxxxxxxxxxxx
Subject: [mso] Re: Using IF to select Macro command to carry out? Possible?

Hi Robert,
IMHO you will have to call the macros from VBA (inside another
macro). One command you could use would be the Select Case command;
you set a variable (for example, WhichMacro) to the value of cell A6,
then the macro to run is chosen by code like this:

Sub ChooseMacroToRun ()
WhichMacro.value = Range("A6").value

Select Case WhichMacro
         Case 1
             Run(FirstTrip)
         Case 2
             Run(SecondTrip)
         Case 3
             Run(ThirdTrip)
         Case 4
             Run(FourthTrip)
         Case 5
             Run(FifthTrip)
         Case 6
             Run(SixthTrip)
         Case 7
             Run(SeventhTrip)
         Case Else
             Do whatever you must do when the value is not from 1 to 7
     End Select
End Sub

Now, to trigger the macro, you can assign it to a button for the user
to click, or have it run automatically whenever the value of cell A6
changes (for this, take a look at the Worksheet_SelectionChange event
in Excel Help).
Wilson



At 17:11 17/5/2005,Robert Carneal wrote:
>In Excel 2000, say I have five macro commands. I will call them Firsttrip,
>Secondtrip, Thirdtrip, Fourthtrip, Fifthtrip, SixthTrip, SeventhTrip,
>WrongTrip
>
>This is illegal in Excel, but please bear with me:
>
>A6=4
>=Choose(A6, Firsttrip, Secondtrip, Thirdtrip, Fourthtrip, Fifthtrip,
>SixthTrip, SeventhTrip)
>
>So whenever A6 is 4, run the macro FourthTrip. Possible? I can use Choose
>with values and formulas, but what about macros?


*************************************************************
You are receiving this mail because you subscribed to mso@xxxxxxxxxxxxx or
MicrosoftOffice@xxxxxxxxxxxxxxxx

To send mail to the group, simply address it to mso@xxxxxxxxxxxxx

To Unsubscribe from this group, send an email to
mso-request@xxxxxxxxxxxxx with the word "unsubscribe" (without the quotes)
in the subject line.

Or, visit the group's homepage and use the dropdown menu.  This will also
allow you to change your email settings to digest or vacation (no mail).
http://www.freelists.org/webpage/mso

To be able to use the files section for sharing files with the group, send a
request to mso-moderators@xxxxxxxxxxxxx and you will be sent an invitation
with instructions.  Once you are a member of the files group, you can go
here to upload/download files:
http://www.smartgroups.com/vault/msofiles
*************************************************************

*************************************************************
You are receiving this mail because you subscribed to mso@xxxxxxxxxxxxx or 
MicrosoftOffice@xxxxxxxxxxxxxxxx

To send mail to the group, simply address it to mso@xxxxxxxxxxxxx

To Unsubscribe from this group, send an email to 
mso-request@xxxxxxxxxxxxx with the word "unsubscribe" (without the quotes) in 
the subject line.

Or, visit the group's homepage and use the dropdown menu.  This will also allow 
you to change your email settings to digest or vacation (no mail).
http://www.freelists.org/webpage/mso

To be able to use the files section for sharing files with the group, send a 
request to mso-moderators@xxxxxxxxxxxxx and you will be sent an invitation with 
instructions.  Once you are a member of the files group, you can go here to 
upload/download files:
http://www.smartgroups.com/vault/msofiles
*************************************************************

Other related posts: