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
Featured Replies
Archivado
Este tema está ahora archivado y está cerrado a más respuestas.
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