COPIAR EN EL PORTAPALES UN DATO DESDE UN LISTBOX

[CHEWACA]

Hola.

 

Tengo un listbox desde el cual quiero copiar un item seleccionado con doble click. El contendfio lo copia bien pero al pegarlo siempre me pega "??", dos interrogantes. He utilizado varios codigos y siempre ma pasa. Alguien podria decirme que hago mal?. Este es el codigo que utilizo:

Private Sub ListBox_CONCEPTO_DblClick(ByVal Cancel As MSForms.ReturnBoolean)
Dim DMyData As New MSForms.DataObject
'Dim MyData As DataObject
Dim copia As String
Set MyData = New DataObject
copia = ListBox_CONCEPTO.Text
MsgBox copia
MyData.Clear
MyData.SetText copia

MyData.PutInClipboard

End Sub

Gracias.

 

MJ

 

[Antoni]

Tu macro funciona perfectamente.

Es evidente que hay algo que no vemos, por lo que va a ser necesario que subas tu archivo y expliques lo que pretendes hacer.

[CHEWACA]

Hola Antoni.

Adjunto el archivo. Se copia el dato del cuadro de texto con un DobleClick. A ver si le ves qué es lo que falla. ?

Muchas Gracias.

CONCEPTOS.xlsm

[Antoni]

No se que te puede suceder, he probado tu formulario y copia/pega sin problemas.

[CHEWACA]

Hola Antoni.

Es curioso, en casa tambien me funciona, en el trabajo no... No sé a qué pude ser debido ?

 

Muchas gracias

 

MJ