How to call a button click from another Macro?

[spacely]

Hello,

There is a button click private sub on another sheet, I just want to invoke it from a macro. The below doesn't work:

CallByName Sheet30, CommandButton10_Click, VbMethod


Is there a better approach?

 

[James006]

Hello,

have you tried to make Public ...?

 

[My Aswer Is This]

I would assume he means he has a ActiveX Command button in one sheet with a script.
And wants to call that script from a ActiveX Command Button in another sheet.

ActiveX Command Button scripts normally look like This:

Private Sub CommandButton1_Click()
MsgBox "Hello"
End Sub

I do not have the answer.

Hello,

have you tried to make Public ...?

 

[My Aswer Is This]

Now if I'm correct and you have Two ActiveX command buttons on two different sheets.

First Remove the part that says Private

Then you could call the script from another ActiveX control by using something like this.

Private Sub CommandButton1_Click()
'This command Button is in sheet(1)
'Modified  4/14/2019  7:45:32 AM  EDT
Call Sheets(2).CommandButton1_Click
End Sub

 

[spacely]

I am trying to call

Private Sub CommandButton10_Click()

from a macro, not another button.

I removed the Private, and used from within my Macro:

Call Sheets(30).CommandButton10_Click

but got

Object doesn't support this property or method.

Is there a different way to invoke?

 

[mikerickson]

Move the code from CommandButton10_Click into SomeSub in a normal module.
CommandButton10_Click should now read

Private Sub CommandButton10_Click()
    Call SomeSub
End Sub

And you can call SomeSub from anywhere.

 

[spacely]

Now it's not finding other functions within the new SomeSub.

I also put the SomeSub at the bottom of the Sheet Code, but then the SomeSub itself was not found.

What if I take all Privates off from everything? Will everything be found and nothing broken?

 

[James006]

You can have Option Private Module and remove Private from the one routine you need to call ...

HTH

 

[spacely]

Not helping

I even put a Public in front of the Command10 button's click code. No luck fincing it.

Do I need to bring ALL code into some new Module so it talks to each other?

 

[spacely]

Ha! This worked, wiyhout removing Private or any other changes:

Worksheets("LDD Files").CommandButton10.Value = True

Weird.