copy a textbox in excel to the clipboard

[rbsuttn]

Good morning
i've spent the last few evenings reading and trying different examples (dozens) of how to copy the information in a textbox to the clipboard in excel. I've gotten close on some of the examples while others give me the infamous two boxes or two question marks

I have a command button in a worksheet named Injects, there is a text box "textbox111" want to to click the button and have the info from this text box stored in the clipboard

Private Sub CommandButton2_Click()
Dim strbox As String
strbox = TextBox111
Range(TextBox111).Copy
End Sub

i have had no luck, any help would be much appreciated

 

[mikerickson]

This will put the contents of a textbox in the clipboard.

Dim doObj As New DataObject

With doObj
    .SetText TextBox111.Text
    .PutInClipboard
End With

 

[rbsuttn]

This will put the contents of a textbox in the clipboard.

Dim doObj As New DataObject

With doObj
    .SetText TextBox111.Text
    .PutInClipboard
End With

Mikerickson - thanks just tried it and i get the two "question marks in two squares" when i paste it. i've read a few other threads that stated there is a bug in the code but i can't seem to follow the threads on how to circumvent the bug.

 

[RoryA]

You could add this function:

Function SetClipBoardText(ByVal Text As Variant) As Boolean
    SetClipBoardText = CreateObject("htmlfile").ParentWindow.ClipboardData.SetData("Text", Text)
End Function

then use:

SetClipBoardText TextBox111.Text

wherever you need to put the text in the clipboard.

 

[rbsuttn]

You could add this function:

Function SetClipBoardText(ByVal Text As Variant) As Boolean
    SetClipBoardText = CreateObject("htmlfile").ParentWindow.ClipboardData.SetData("Text", Text)
End Function

then use:

SetClipBoardText TextBox111.Text

wherever you need to put the text in the clipboard.

Rory, Thanks a million!!! worked like a charm. Now i'll try and spend some time to try and figure out why it works but this is a win!!!