Copy textbox text to clipboard

[lipanook]

It seems like this is the sort of question that would have been asked before, so I apologise if this has been answered previously. However, I can't find any suitable answers on this site or through Google.

I have a userform with a multi-line textbox. This textbox is automatically populated with text generated by various concatenated arrays and strings.

What I would like to do is have a button on the form that copies the text from the textbox onto the clipboard so that the user can just paste it into a third party program.

I would have thought the code would be quite simple. Something like "usrForm.txtBox.Value.Copy" perhaps? Any thoughts?

 

[RoryA]

If the code is in the userform, then:

   Me.txtBox.Copy

 

[prince141987]

Hi Lipanook.

Your are vaery near to the exact solution just use the below code.

usrForm.txtBox.text.Copy

Regards
Prince

 

[dmt32]

add a reference to Microsoft Forms 2 Object Library
then from your button add:

Private Sub CommandButton1_Click()
    With New MSForms.DataObject
        .SetText TextBox1.Text
        .PutInClipboard
    End With
End Sub

Change textbox name as required.

Dave

 

[lipanook]

Thanks for your replies.

Only one worked though, that was dmt32's suggestion.

I tried both Rory's and Prince's suggestions, but Rory's did nothing (no error message and nothing in the clipboard). I had already tried Prince's suggestion but an error message told me that .text was an invalid qualifier. Thanks for your efforts though.

 

[RoryA]

Sorry - I somehow read your question as implying you had selected the text. If not you'd need something like

   With Me.txtBox
      .SelStart = 0
      .SelLength = Len(.Text)
      .Copy
   End With

FWIW.

 

[lipanook]

Ah, I see. That will come in handy later. Thanks.

 

[Daniel Campos]

Dinossaurs are alive? No, but this precise thread has a similar doubt to mine, so here goes:

I have a sheet where I put in some information and generates 3 textboxes with a predefined text and the said information, so I can copy it and just paste in e-mail to send to partners. I already made a buttom with a macro to delete textboxes so I can generate new:

Sub DeleteTextBoxes()
    Dim i As Long
    With ActiveSheet.Shapes
        For i = .Count To 1 Step -1
        If .Item(i).Type = msoTextBox Then
        .Item(i).Delete
        End If
    Next i
    End With
    Range("F12").Select
End Sub

I happen to think that the code above has somewhat the resources I need, since I also happen to need 3 macros, one for each textbox to copy. And since the name of the textbox is automatically generated, every time is a different name, how can I make a macro to identify the first, second, and third created texbox in the sheet so I can make a buttom to copy one at a time? Or maybe another solution will do?

Thanks in advance for the help!

 

[gosa7]

Hi all, I have a txtbox on my worksheet. The name of that worksheet is "Deletion Task". I would like to have a 'copy' button that will copy all the texts from that txt box so I can then paste on my notepad etc.
Remember, the txtbox is on a worksheet and NOT on the userform. It the txt box was on userform I could have used the below code:

With Me.txtResult
.SelStart = 0
.SelLength = Len(.Text)
.Copy
End With

How can I edit the code above if the txtbox is on the Worksheet. The same code above doesn't copy the text to clipboard I have tried