if condition on a hot button
It wasn't easy to get the first one to work but i finally got it.
--
Thanks
"Peter T" wrote:
With Shapes from the Drawing toolbar, eg a Textbox, and controls from the
Forms Toolbar you can do this, (also refer to my previous example)
sCaller = Application.Caller
this returns the name of the Shape, eg "Text Box 1"
Regards,
Peter T
"jaclh2o" wrote in message
...
This is an object (Box with Text) with an assigned macro
Thanks
"Peter T" wrote:
Define what you mean by a "hot spot in the spreadsheet", eg cell (select
or
double click), a Forms or ActiveX control.
Regards,
Peter T
"jaclh2o" wrote in message
...
I mean a hot spot in the spreadsheet itself not on the tool bar, would
your
proposal work the same?
--
Thanks
"Peter T" wrote:
By 'hot button' I assume you mean a button on a toolbar that you
have
added,
manually or programmatically, and assigned it to a macro
Assign your buttons to your Macro
Sub myMacro
Dim sCaller as string
sCaller = Commandbars.ActionControl.Caption
' sCaller = Commandbars.ActionControl.Tag
' sCaller = Commandbars.ActionControl.Parameter
Select Case sCaller
Case "hot but #1"
'etc
If you programmatically added the buttons you could assign the Tag
and/or
Parameter properties.
It's probably better not to use Goto within a select case, lots of
other
ways.
Regards,
Peter T
"jaclh2o" wrote in message
...
What are the detail commands to execute a sub routine within same
module
based on one selection from a list of hot bottons.
I imagine something like...
if <<hot bottom #1 selected go to line #XX
--
Thanks
|