Is there a better way to copy the contents of a variable into the
clipboard (other than, as below, copy it to a temporary cell)

MyString = "Put this in to the clipboard"
Range("A100") = MyString
Range("A100").Copy
Range("A100").ClearContents

Regards


Greg

The following code will put the text of the active cell into the clipboard.
You'll need a reference to the Forms type library. In VBA, go to the Tools
menu, choose References, and check "Microsoft Forms 2.0 Object Library" (or,
just add a UserForm -- the reference will be automatically added).

Sub CopyToClipboard()
Dim DataObj As New MSForms.DataObject
DataObj.SetText ActiveCell.Text
DataObj.PutInClipboard
End Sub


--
Cordially,
Chip Pearson
Microsoft MVP - Excel, 10 Years
Pearson Software Consulting
www.cpearson.com
(email on the web site)

"Greg Glynn" <(E-Mail Removed)> wrote in message
news:3a7f36da-9b42-4c48-88e9-(E-Mail Removed)...
> Is there a better way to copy the contents of a variable into the
> clipboard (other than, as below, copy it to a temporary cell)
>
> MyString = "Put this in to the clipboard"
> Range("A100") = MyString
> Range("A100").Copy
> Range("A100").ClearContents
>
> Regards
>
>
> Greg

On Jan 7, 4:33 pm, Greg Glynn <GregoryGl...@gmail.com> wrote:
> Is there a better way to copy the contents of a variable into the
> clipboard (other than, as below, copy it to a temporary cell)
>
> MyString = "Put this in to the clipboard"
> Range("A100") = MyString
> Range("A100").Copy
> Range("A100").ClearContents
>
> Regards
>
> Greg

Dim mystring As New DataObject


If usf_Convert.tbo_Number_is <> "" Then

number_is.SetText usf_Convert.tbo_Number_is
number_is.PutInClipboard
End If

hit enter by accident while editing some code i had already... anyway

Dim mystring As New DataObject
mystring.SetText "Put In Clipboard"
mystring.PutInClipboard