ExcelBanter

ExcelBanter (https://www.excelbanter.com/)
-   Excel Programming (https://www.excelbanter.com/excel-programming/)
-   -   if condition on a hot button (https://www.excelbanter.com/excel-programming/388686-if-condition-hot-button.html)

jaclh2o

if condition on a hot button
 
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

Peter T

if condition on a hot button
 
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




jaclh2o

if condition on a hot button
 
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





Peter T

if condition on a hot button
 
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







jaclh2o

if condition on a hot button
 
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







Peter T

if condition on a hot button
 
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









jaclh2o

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











All times are GMT +1. The time now is 12:25 AM.

Powered by vBulletin® Copyright ©2000 - 2025, Jelsoft Enterprises Ltd.
ExcelBanter.com