¿Cómo pasar toda la información que esta en un listbox a una sola celda?
Tengo 2 listbox donde el primer listbox tengo la información que al seleccionarla se va al segundo Listbox, los que quiero que todos los Datos que esta en el segundo listbox se pase a mi hoja de excel en una solo celda.
1 respuesta
Hol.a
No das muchos detalles pero podrías tener un botón con algo así:
Private Sub CommandButton2_Click()
Dim x As Integer
For x = 0 To ListBox1.ListCount - 1
Worksheets("Hoja3").Range("H1").Value = Worksheets("Hoja3").Range("H1").Value & " " & ListBox1.List(x)
Next x
End SubEvidentemente en ese código tú debes cambiar por el nombre de tu "ListBox", el de tu hoja y por la celda en la que deseas los datos.
Abraham Valencia
Gracias enserio funciona pero lo malo es que siempre pasa los datos del listbox a la misma celda y no quiero eso ya que dicha información va a una base de datos así que si tienes un código igual pero que imprima los datos en la siguiente fila basia seria lo mejor por favor y gracias
Suponiendo que los datos irán en la primera celda vacía de la columna "A":
Private Sub CommandButton2_Click()
Dim x As Integer
Dim UltimaFila As Long
Let UltimaFila = (Cells(Rows.Count, 1).End(xlUp).Row) + 1
For x = 0 To ListBox1.ListCount - 1
Worksheets("Hoja3").Range("A" & UltimaFila).Value = Worksheets("Hoja3").Range("A" & UltimaFila).Value & " " & ListBox1.List(x)
Next x
End SubNo olvides reemplazar el nombre del "ListBox", del "CommandButton", de la hoja y de ser necesario la columna (si no es la "A").
Abraham Valencia
