Copy TextBox contents to Clipboard

[harveya915]

In Outlook, I have a UserForm with multiple text boxes and combo boxes and one command button. Once all the fields have been completed and you click on the command button, it transfers all the information from the text boxes and combo boxes to another text box within the same UserForm.

Now I'm trying to have the contents that were transferred to the text box to also be copied to the clipboard to be able to be pasted somewhere else.

This is what i have for the button:

Private Sub CommandButton1_Click()
TextBox4.Value = ComboBox2.Text & " - " & TextBox1.Text & " - " & TextBox2.Text & " - " & TextBox5.Text & " - " & TextBox3.Text & " - " & ComboBox3.Text & " - " & ComboBox4.Text

End Sub

 

[Domenic]

You can use DataObject to store and transfer data...

Private Sub CommandButton1_Click()

    TextBox4.Value = ComboBox2.Text & " - " & TextBox1.Text & " - " & TextBox2.Text & " - " & TextBox5.Text & " - " & TextBox3.Text & " - " & ComboBox3.Text & " - " & ComboBox4.Text
   
    Dim dataObj As MSForms.DataObject
    Set dataObj = New MSForms.DataObject
   
    With dataObj
        .SetText TextBox4.Value
        .PutInClipboard
    End With

End Sub

Hope this helps!

 

[harveya915]

You can use DataObject to store and transfer data...

Private Sub CommandButton1_Click()

    TextBox4.Value = ComboBox2.Text & " - " & TextBox1.Text & " - " & TextBox2.Text & " - " & TextBox5.Text & " - " & TextBox3.Text & " - " & ComboBox3.Text & " - " & ComboBox4.Text
  
    Dim dataObj As MSForms.DataObject
    Set dataObj = New MSForms.DataObject
  
    With dataObj
        .SetText TextBox4.Value
        .PutInClipboard
    End With

End Sub

Hope this helps!

Finally! This seems to be working just fine. I have been trying other codes but none worked. Thanks for all your help!

 

[Domenic]

That's great, I'm glad I could help.

Cheers!

 

[harveya915]

I seem to be having an issue with this function/code. When I try to paste somewhere else, all that is pasted is 2 squares. Any help would be appreciated.

 

[Domenic]

It looks like you may have copied a unicode character to the clipboard, but trying to paste it where unicode is not supported, such as the Visual Basic Editor and Immediate Window. Where are you trying to paste it?

 

[Domenic]

See if this helps...

How to fix userform Textbox copy to clipboard no longer working

For the past few months I have had no issue with this script Private Sub CommandButton3_Click() With New MSForms.DataObject .SetText TextBox2.Text .PutInClipboard End With E...

stackoverflow.com

 

[harveya915]

It looks like you may have copied a unicode character to the clipboard, but trying to paste it where unicode is not supported, such as the Visual Basic Editor and Immediate Window. Where are you trying to paste it?

I'm trying to paste it on to Microsoft Teams. Sometimes I have this issue and sometimes I don't. But let me try and take a look at the link you provided above and see if that helps.

 

[harveya915]

See if this helps...

How to fix userform Textbox copy to clipboard no longer working

For the past few months I have had no issue with this script Private Sub CommandButton3_Click() With New MSForms.DataObject .SetText TextBox2.Text .PutInClipboard End With E...

stackoverflow.com

 

[harveya915]

Still need some help with this.