copy to clipboard 1

[wmbb]

Is it possible to put a number in the clipboard using "copy" to paste it in another application ?
I want to detect the color-code (selection.interior.color) of a cell and paste this in another application using "ctrl V"

Sub color_code()

temp = Selection.Interior.Color
temp.Copy

End Sub

is not working

 

[PHV]

Add a reference to the Miscrosoft Forms 2.0 Object Library, and then:

Sub color_code()
Set MyData = New DataObject
MyData.SetText Selection.Interior.Color & ""
MyData.PutInClipboard

Hope This Helps, PH.
FAQ219-2884
FAQ181-2886

 

[wmbb]

Thanks for your quick response.
I've found that option too but I can't find this reference library in my list under tools - references.
How can I add this library ?

I'm using Office 2007

 

[PHV]

The simplest way is to insert an UserForm in your project.

Hope This Helps, PH.
FAQ219-2884
FAQ181-2886

 

[wmbb]

Thank you, this was exactly what I was looking for.
A star for you !