How to have TWO Enter Buttons on Userform that perform the same code

JDR444 · Mar 23, 2019

I'm very new to VBA and this is probably simple, but I can't get it to work for me.

I need Two ENTER BUTTONS that will run the same code.

· I've created a very LONG Userform.

· I'd like an ENTER Button on both the TOP and the BOTTOM of the userform.
It's more convenient for the user to have two buttons rather than scrolling up or down to locate just one button to do the job.

· No matter which button is clicked, I want the same code to run.

What is the easiest way to CODE TWO "Enter Buttons" that will do the same thing?
 I have tried several ways with no success. The code below received this error:

Compile error: Expected End Sub

Code:

  Private Sub CmdButton_CONTINUE1_Click() 'When "CONTINUE" Button on TOP of UF is clicked.
  Private Sub CmdButton_CONTINUE2_Click() 'When "CONTINUE" Button on Bottom of UF is clicked.

Posted elsewhere:
1. https://www.ozgrid.com/forum/forum/...r-buttons-on-userform-but-only-one-is-working

Fluff · Mar 23, 2019

Create a separate sub in the userform module & then call that from both buttons

Code:

Private Sub CmdButton_CONTINUE1_Click()
Call ContinueBtn
End sub

Sub ContinueBtn()
' do something
End Sub

silentwolf · Mar 23, 2019

HI,

private Sub YourButton1_click()
call YourMakro
End sub

Private Sub YourButton2_Click()
Call YourMakro
End sub

JDR444 · Mar 23, 2019

Thanks for both responses. I tried your suggestions, but I'm so new, I can't figure out how to "then call that from both buttons"

Here's my attempted Module code adding new...

Rich (BB code):

Sub ShowUserForm()
Sheets("Engine").Range("B4").Value = "NEW"
DataBase_UF.Show
End Sub
 
Private Sub CmdButton_CONTINUE1_Click()
Call ContinueBtn
End Sub
 
Private Sub CmdButton_CONTINUE2_Click()
Call ContinueBtn
End Sub
 
Sub ShowEditUserForm()
Sheets("Engine").Range("B4").Value = "EDIT"
Find_Entry_UF.Show
End Sub

Here's my attempted USERFORM CODE what I thought I was supposed to do...

Rich (BB code):

Sub ContinueBtn() 'When either "CONTINUE" Buttons on UF is clicked???

I also tried this...

Rich (BB code):

Private Sub ContinueBtn() 'When either "CONTINUE" Buttons on UF is clicked???

JDR444 · Mar 23, 2019

This is also posted here:

https://www.ozgrid.com/forum/forum/...r-buttons-on-userform-but-only-one-is-working

My Aswer Is This · Mar 23, 2019

For simplicity since your new to Excel.

Why not just put the same code in Both buttons.

What will the button be doing when you click on it.

My Aswer Is This · Mar 23, 2019

Here is a example of a way for two Buttons to perform the same task with only one script:

Code:

Private Sub CommandButton3_Click()
'Modified  3/23/2019  9:47:22 PM  EDT
MsgBox "Hello"
End Sub
Private Sub CommandButton4_Click()
'Modified  3/23/2019  9:47:22 PM  EDT
Call CommandButton3_Click
End Sub

JDR444 · Mar 24, 2019

SOLVED: How to have TWO Enter Buttons on Userform that perform the same code

‘’’ TRIED THIS IN DATABASE_UF CODE (not module) ---- IT WORKED!!!

'Placed on top line, above Database/userform code
Private Sub CmdButton_CONTINUE1_Click()
'run code on userform

'Placed at bottom, below Database/userform code
Private Sub CmdButton_CONTINUE2_Click()
Call CommandButton1_Click
End Sub

THANKS ALL! Each of your answers helped me figure this out!

My Aswer Is This · Mar 24, 2019

Re: SOLVED: How to have TWO Enter Buttons on Userform that perform the same code

If this worksfor you thats great.
But this sounds like you have script in three buttons:

CmdButton_CONTINUE1_Click
CmdButton_CONTINUE2_Click
CommandButton1_Click

This was not my suggestion but if it works for you that's great.

My suggestion only required two Button scripts

JDR444 said:
‘’’ TRIED THIS IN DATABASE_UF CODE (not module) ---- IT WORKED!!!

'Placed on top line, above Database/userform code
Private Sub CmdButton_CONTINUE1_Click()
'run code on userform

'Placed at bottom, below Database/userform code
Private Sub CmdButton_CONTINUE2_Click()
Call CommandButton1_Click
End Sub

THANKS ALL! Each of your answers helped me figure this out!

How to have TWO Enter Buttons on Userform that perform the same code

JDR444

New Member

Excel Facts

Fluff

MrExcel MVP, Moderator

silentwolf

Well-known Member

JDR444

New Member

JDR444

New Member

My Aswer Is This

Well-known Member

My Aswer Is This

Well-known Member

JDR444

New Member

My Aswer Is This

Well-known Member

Similar threads

Forum statistics

Share this page

How to have TWO Enter Buttons on Userform that perform the same code

New Member

Excel Facts

MrExcel MVP, Moderator

Well-known Member

New Member

New Member

Well-known Member

Well-known Member

New Member

Well-known Member

Similar threads

Forum statistics

Share this page

We've detected that you are using an adblocker.

Which adblocker are you using?

Disable AdBlock

Disable AdBlock Plus

Disable uBlock Origin

Disable uBlock