How to access a VBA Userform Button control code programmatically

Question

I want whenever I click on my ActiveX command button on Sheet1 it open VBA Editor and jump directly to the code I wrote for a button on my userform. I know the way to jump directly to code for a module but I couldn't find a property for userform button control (something like ThisWorkbook.VBProject.VBComponents("UserForm1").Controls("MyButton"))

Following is my code for jumping right into my Madule1 code:

Private Sub CommandButton1_Click()

Dim Wb As Workbook: Set Wb = ThisWorkbook

'---Open Module1
Application.VBE.MainWindow.Visible = True
Wb.VBProject.VBComponents("UserForm1").Activate

End Sub

I thaught these pictures would help to better understand my goal:

1-I have an ActiveX command button on sheet1

2-I have userform with a commandbutton on it

3-This commandbuttun has it's own code which I want to jump to it's code

Try Application.VBE.ActiveVBProject.VBComponents("UserForm1").CodeModule.CodePane.Show — Christofer Weber
– Christofer Weber, Commented Jan 18, 2022 at 12:37

Christofer Weber · Accepted Answer · 2022-01-18 12:47:27Z

1

If you want to jump to that specific sub directly, try this:

Private Sub CommandButton1_Click()

Application.VBE.ActiveVBProject.VBComponents("UserForm1").CodeModule.CodePane.Show

With Application.VBE.ActiveCodePane.CodeModule
    lStartLine = .ProcStartLine("CommandButton1_Click", 0) '"CommandButton1_Click" being the name of the sub you want.
    .CodePane.SetSelection lStartLine, 1, lStartLine, 1
End With

End Sub

First line should show you the code panel for the userform, and the second part selects the row down by the sub you are looking for by name.

answered Jan 18, 2022 at 12:47

Christofer Weber

1,4741 gold badge10 silver badges18 bronze badges

Sign up to request clarification or add additional context in comments.

Collectives™ on Stack Overflow

How to access a VBA Userform Button control code programmatically

1 Answer 1

Comments

Your Answer

Hot Network Questions

Collectives™ on Stack Overflow

1 Answer 1

Comments

Your Answer

Sign up or log in

Post as a guest

Related