ExcelBanter

ExcelBanter (https://www.excelbanter.com/)
-   Excel Programming (https://www.excelbanter.com/excel-programming/)
-   -   Copy variable to clipboard (https://www.excelbanter.com/excel-programming/403809-copy-variable-clipboard.html)

Greg Glynn

Copy variable to clipboard
 
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

Chip Pearson

Copy variable to clipboard
 
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" wrote in message
...
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



[email protected]

Copy variable to clipboard
 
On Jan 7, 4:33 pm, Greg Glynn 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

[email protected]

Copy variable to clipboard
 
hit enter by accident while editing some code i had already... anyway

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


All times are GMT +1. The time now is 01:20 AM.

Powered by vBulletin® Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
ExcelBanter.com