Userform Command Button
 

In a Userform, I have multiple command buttons. For example:

D1_Click
D2_Click

Depending on another event that occurs, I want to calculate in code the
button name that I will be triggering the click event and then trigger the
event.

For example Application.Run "D" & i & "_Click"

with i being the value of 1 or 2.

Application.Run doesn't appear to work in the Userform.

Thanks

Steve

Userform Command Button
 

Maybe it's because most subroutines in a userform module
are "Private"??? Have you tried changing the "Private"
prefix to "Public" for the D?_Click subroutines?? Maybe
that might fix it......

Also, im not entirely sure if changing routines from Private
to Public is a good idea for userform subroutines. Maybe
you can place your D?_Click code in a normal module
instead???


"sarndt" wrote in message
...
In a Userform, I have multiple command buttons. For example:

D1_Click
D2_Click

Depending on another event that occurs, I want to calculate in code the
button name that I will be triggering the click event and then trigger the
event.

For example Application.Run "D" & i & "_Click"

with i being the value of 1 or 2.

Application.Run doesn't appear to work in the Userform.

Thanks

Steve

Userform Command Button
 

I tried changing it to Public and that didn't work. And Application.Run only
appears to work with a macro.

"Robert Crandal" wrote:

Maybe it's because most subroutines in a userform module
are "Private"??? Have you tried changing the "Private"
prefix to "Public" for the D?_Click subroutines?? Maybe
that might fix it......

Also, im not entirely sure if changing routines from Private
to Public is a good idea for userform subroutines. Maybe
you can place your D?_Click code in a normal module
instead???


"sarndt" wrote in message
...
In a Userform, I have multiple command buttons. For example:

D1_Click
D2_Click

Depending on another event that occurs, I want to calculate in code the
button name that I will be triggering the click event and then trigger the
event.

For example Application.Run "D" & i & "_Click"

with i being the value of 1 or 2.

Application.Run doesn't appear to work in the Userform.

Thanks

Steve

.

Userform Command Button
 

Use CallByName. E.g.,

Dim S As String
S = "CommandButton1_Click"
CallByName UserForm1, S, VbMethod

The CommandButton1_Click must be declared as Public.

Cordially,
Chip Pearson
Microsoft Most Valuable Professional,
Excel, 1998 - 2010
Pearson Software Consulting, LLC
www.cpearson.com



On Fri, 26 Feb 2010 12:32:03 -0800, sarndt
wrote:

In a Userform, I have multiple command buttons. For example:

D1_Click
D2_Click

Depending on another event that occurs, I want to calculate in code the
button name that I will be triggering the click event and then trigger the
event.

For example Application.Run "D" & i & "_Click"

with i being the value of 1 or 2.

Application.Run doesn't appear to work in the Userform.

Thanks

Steve