Copy variable to clipboard

[VulkaJohn]

I want to copy a variable to the Clipboard and I have used this code in the past and it worked. Now it just returns ?? Any help would be appreciated.

Sub test()
'Microsoft Forms 2.0 Object Library is referenced


Dim MyData As DataObject
Dim strClip As String


strClip = Range("J" & ActiveCell.Row).Value
strClip = Left(strClip, Len(strClip) - 4)
MsgBox strClip 'At this point I get the expected result


Set MyData = New DataObject
MyData.SetText strClip
MyData.PutInClipboard


MsgBox strClip 'This returns ??

End Sub

 

[DanteAmor]

Try this

Sub GetClipBoardText()
    Dim DataObj As MsForms.DataObject
    Dim strClip As String
    Set DataObj = New MsForms.DataObject
    strClip = Range("J" & ActiveCell.Row).Value
    DataObj.SetText strClip
    DataObj.PutInClipboard
    DataObj.GetFromClipboard
    MsgBox DataObj.GetText(1)
End Sub

 

[VulkaJohn]

Muchas gracias Dante, esto es perfecto, saludos! A perfect solution.

 

[DanteAmor]

Con mucho gusto! Gracias por los comentarios.