Problem with Copy and Paste from excel

[Sebastiandiaz]

I am having some issues when copying and then pasting from excel. I have set some codes to copy from Textbox or Combobox. When I execute the code, it copies on the clipboard what I need, but when I paste it, it doesn´t work. It only pastes a couple of small squares " □ □ ". What should I do to fix this?

This is the code that I am using to copy to the clipboard.

>>> use code - tags <<<

Private Sub CommandButton2_Click()
With New MSForms.DataObject
    .SetText TextBox1.Text
    .PutInClipboard
    End With
    Unload Me

End Sub

I would appreciate it if you can help me to explain to me how to fix this issue. P.S: I am using Windows 10 and Office 2013

 

[Belleke]

Maybe?

Private Sub CommandButton1_Click()
 With TextBox1
      .SelStart = 0
      .SelLength = Len(.Text)
      .Copy
   End With
Unload Me
End Sub

 

[Sebastiandiaz]

Amazing! It works perfectly. THANK YOU SO MUCH!

 

[Belleke]

Glad to help.

 

[Sebastiandiaz]

Does it work in the same way if I am using a label? or a ComboBox?

 

[Belleke]

For lable you have to use .Caption instead of .Text

 

[Sebastiandiaz]

Private Sub CommandButton11_Click()
    With Label10
      .SelStart = 0
      .SelLength = Len(.Caption)
      .Copy
   End With
Unload Me
End Sub

It gives me an error message "Method or data member not found"

 

[Belleke]

Try

Private Sub CommandButton11_Click()
Set MyData = New DataObject
    MyData.SetText Label10.Caption
    MyData.PutInClipboard
Unload Me
End Sub

 

[Sebastiandiaz]

YESSSSSSSSSSSSSSSSSSSSSSSSSSSSS! AWESOME. IT WORKS! THANK YOU SO MUCH BELLEKE!

 

[Belleke]

Glad to help