I would like to find a code to copy from Clipboard straight to a TextBox

[Fred Wayne]

Hello,
I am practicing and trying to learn from your forum every day. My situation is the following: I made a simple userform. I have managed to find the way to copy the captions from the CommandButton to the Clipboard and then that caption be pasted somewhere else. What I want is copy the caption of that CommandButton straight to the TextBox. I mean...once I click the CommandButton, that information to be automatically pasted in the TextBox.

Private Sub CommandButton1_Click()
Dim MyData As New DataObject
  MyData.SetText "Apples: "
 MyData.PutInClipboard
End Sub

Private Sub CommandButton2_Click()
Dim MyData As New DataObject
  MyData.SetText "Tomatoes: "
 MyData.PutInClipboard
End Sub

Private Sub CommandButton3_Click()
Dim MyData As New DataObject
  MyData.SetText "Radish: "
 MyData.PutInClipboard
End Sub

Above I put the code that I am using to copy the CommandButton Captions in the Clipboard, but how can I make what is copied in the clipboard to be automatically pasted in the TextBox when clicking on the CommandButton?

Always so thankful for your teaching and great efforts you do for us to learn.

Thank you so much.

 

[Hui]

Private Sub CommandButton1_Click()
  TextBox1.Text = "Apples: "
End Sub

etc

 

[mohadin]

I would Say

Private Sub CommandButton1_Click()
 Me.TextBox1.Value = CommandButton1.Caption
End Sub

Private Sub CommandButton2_Click()
 Me.TextBox1.Value = CommandButton2.Caption
End Sub
Private Sub CommandButton3_Click()
 Me.TextBox1.Value = CommandButton3.Caption
End Sub

 

[Fred Wayne]

Thank you so much. You are the best.