Copy TextBox contents to copy buffer

[gemcgraw]

I would think this has such an easy solution but I have been to Mars and back and still have no solution. I am attempting to copy the text from a TextBox1 into the Windows10 copy buffer by using a command button. I've used all sorts of suggested code and shortcuts. Any suggestions that don't required a mile-long block of code?

 

[Rick Rothstein]

I would think this has such an easy solution but I have been to Mars and back and still have no solution. I am attempting to copy the text from a TextBox1 into the Windows10 copy buffer by using a command button. I've used all sorts of suggested code and shortcuts. Any suggestions that don't required a mile-long block of code?

If your TextBox is on a UserForm, then you can use an event procedure something like this...

Private Sub CommandButton1_Click()
  Dim objData As New MSForms.DataObject
  objData.SetText TextBox1.Text
  objData.PutInClipboard
End Sub

If your TextBox is on a worksheet, then you could use this macro..

Sub PutTextBox1sTextinClipboard()
  Dim objData As Object
  [COLOR="#008000"][B]' Latebound method of referenceing Microsoft Forms 2.0 Object Library[/B][/COLOR]
  Set objData = CreateObject("New:{1C3B4210-F441-11CE-B9EA-00AA006B1A69}")
  objData.SetText TextBox1
  objData.PutInClipboard
End Sub

 

[gemcgraw]

I am working on a Userform. I assigned your code suggestion to a command button. I get nothing in my copy buffer. The TextBox1 is populated with text. I go to NotePad and attempt to past and it has nothing. I'm working with Windows 10 and Office 2016 (Excel) using the VBA editor 7.1.

If your TextBox is on a UserForm, then you can use an event procedure something like this...

Private Sub CommandButton1_Click()
  Dim objData As New MSForms.DataObject
  objData.SetText TextBox1.Text
  objData.PutInClipboard
End Sub

 

[Rick Rothstein]

I am working on a Userform. I assigned your code suggestion to a command button. I get nothing in my copy buffer. The TextBox1 is populated with text. I go to NotePad and attempt to past and it has nothing. I'm working with Windows 10 and Office 2016 (Excel) using the VBA editor 7.1.

If your TextBox is on a UserForm, then you can use an event procedure something like this...

Private Sub CommandButton1_Click()
  Dim objData As New MSForms.DataObject
  objData.SetText TextBox1.Text
  objData.PutInClipboard
End Sub

I am using XL2010 on Windows 8.1, so I cannot test what you are telling me, but to the best of my knowledge, the DataObject has not changed and so the code should have worked. Perhaps someone else with your setup will test my code and report back to this thread with their findings.