Code from 4 command buttons onto 1

[ipbr21054]

Can you advise please if & how i can put the code from 4 command buttons onto 1 command button.

Thanks

Private Sub CommandButton1_Click()
Dim specialWord As String
specialWord = "MsgBox (""?""),"
TextBox3.TEXT = Replace(specialWord, "?", TextBox2.TEXT)
End Sub

Private Sub CommandButton2_Click()
Me.TextBox3.Value = Me.TextBox3.Value & " " & Me.TextBox4.Value
End Sub

Private Sub CommandButton3_Click()
Me.TextBox3.Value = Me.TextBox3.Value & " " & Me.TextBox5.Value
End Sub

Private Sub CommandButton4_Click()
Dim specialWord As String
specialWord = " ""?"""
TextBox3.TEXT = TextBox3.TEXT & Replace(specialWord, "?", TextBox1.TEXT)
End Sub

 

[6StringJazzer]

You need to explain what you want this one button to do. You have four completely different actions here. You are populating TextBox3 based on text from four other text boxes. It doesn't make sense to do them all at once.

 

[ipbr21054]

Ah ok I just thought as opposed to doing one at a time we could just run then all at once or at least the code run the first part then second etc etc

Values are copied one at a time & put in text box3


Would this approach work.
Run the first code then Call Code 2 at the end of this then put Call Code 3 at the end of that put Call Code 4

Code 2,3 & 4 would be in modules

 

[6StringJazzer]

I'm still not following what you want to do without an example. If you combine all four subs into this

Dim specialWord As String
specialWord = "MsgBox (""?""),"
TextBox3.TEXT = Replace(specialWord, "?", TextBox2.TEXT)
Me.TextBox3.Value = Me.TextBox3.Value & " " & Me.TextBox4.Value
Me.TextBox3.Value = Me.TextBox3.Value & " " & Me.TextBox5.Value
specialWord = " ""?"""
TextBox3.TEXT = TextBox3.TEXT & Replace(specialWord, "?", TextBox1.TEXT)

it's just the same as doing the following. The last assignment is the only one that matters.

specialWord = " ""?"""
TextBox3.TEXT = TextBox3.TEXT & Replace(specialWord, "?", TextBox1.TEXT)

 

[ipbr21054]

I’m confused by your reply

Each command button collects a value from each text box & places it in textbox3
Once all 4 values have been collected
I then copy the line of code from textbox3

Example
Textbox1 value = Have
Textbox2 value = A
Textbox4 value = Merry
Textbox5 value = Christmas

So the line of code in textbox3 is HaveAMerryChristmas

The above is done by the user pressing command button1 then 2 then 3 then 4

Just trying to make is less work hence pressing 1 button to do all the work

 

[6StringJazzer]

Oh, I see. Well then, the code I posted will do that. If it is run by clicking button 1 then

Private Sub CommandButton1_Click()

   Dim specialWord As String

   specialWord = "MsgBox (""?""),"
   TextBox3.TEXT = Replace(specialWord, "?", TextBox2.TEXT)
   Me.TextBox3.Value = Me.TextBox3.Value & " " & Me.TextBox4.Value
   Me.TextBox3.Value = Me.TextBox3.Value & " " & Me.TextBox5.Value
   specialWord = " ""?"""
   TextBox3.TEXT = TextBox3.TEXT & Replace(specialWord, "?", TextBox1.TEXT)

End Sub

 

[ipbr21054]

All done thanks