ipbr21054
Well-known Member
- Joined
- Nov 16, 2010
- Messages
- 5,226
- Office Version
- 2007
- Platform
- Windows
Can you advise please if & how i can put the code from 4 command buttons onto 1 command button.
Thanks
Thanks
Rich (BB code):
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