Pegar datos de listView en celda del excel
Tengo un formulario que tiene un listview este tiene 3 columnas necesito que los datos cargados de la tercera columna se puedan pegar en una única celda ("A1").
1 respuesta
Respuesta de Dante Amor
1
Cada dato separado por un espacio:
Private Sub CommandButton5_Click()
'Por.Dante Amor
For i = 1 To ListView1.ListItems.Count
cad = cad & ListView1.ListItems(i).SubItems(2) & " "
Next
Range("A1") = cad
End SubSi no quieres el espacio, entonces:
Private Sub CommandButton5_Click()
'Por.Dante Amor
For i = 1 To ListView1.ListItems.Count
cad = cad & ListView1.ListItems(i).SubItems(2)
Next
Range("A1") = cad
End Sub'S aludos. Dante Amor. Recuerda valorar la respuesta. G racias
