Put Two values into Clipboard with VBA

[vonguyenphu]

I need to put value of 2 cells saying cell 'A1" and 'A2' into window's clipboard to use for other purpose

Dim obj as DataObject

Obj.SetText range("A1")
Obj.PutInClipboard
Obj.SetText left(range("A2"),4)
Obj.PutInClipboard

When i run code (f5), then opened window's clipboard, it only saved the second (left(range("A2"),4)) and didn't include A1
However when i run via F8 in source code step by step, it saved both values.
Can anyone help me put two values into clipboard when running by F5?

 

[DanteAmor]

Try this

Dim obj As DataObject


obj.SetText Range("A1").Value & "; " & Left(Range("A2").Value, 4)
obj.PutInClipboard

 

[CalcSux78]

I ran into issues on one of our users machines with loading the clipboard. We had to approach with a late-binding method.

Dim dObj As Object

Set dObj = CreateObject("new:{1C3B4210-F441-11CE-B9EA-00AA006B1A69}")
dObj.SetText Range("A1").Value & "; " & Left(Range("A2").Value, 4)
dObj.PutInClipboard
Set dObj = Nothing

 

[vonguyenphu]

Thks guys, but it still saved one value. The difference is the new value is concatenated from 2 old strings. i need 2 values so i can easily copy in other programs

 

[DanteAmor]

Thks guys, but it still saved one value. The difference is the new value is concatenated from 2 old strings. i need 2 values so i can easily copy in other programs

Before you must clean the memory and raise the concatenated value, you have a value but when you read it you should separate it by ; and in that way you will have 2 values.