Pasar datos del listbox a hoja excel

Dante:

Nuevamente aqui apelando a tu conocimiento.

Coloque este codigo para que me pase los datos del listbox2 a la hoja excel y funciona muy bien, pero no consigo que lo haga a otra hoja de excel, es decir, los pasa a la misma hoja de excel donde se encuentra el listbox. El codigo es el siguiente:

Private Sub CommandButton2_Click()

fila = 1
For i = 0 To ListBox2.ListCount - 1
Cells(fila, 10).Value = ListBox2.List(i, 0)
Cells(fila, 11).Value = ListBox2.List(i, 1)
Cells(fila, 12).Value = ListBox2.List(i, 2)
Cells(fila, 13).Value = ListBox2.List(i, 3)
Cells(fila, 14).Value = ListBox2.List(i, 4)
Cells(fila, 15).Value = ListBox2.List(i, 5)
Cells(fila, 16).Value = ListBox2.List(i, 6)
Cells(fila, 17).Value = ListBox2.List(i, 7)
Cells(fila, 18).Value = ListBox2.List(i, 8)
Cells(fila, 19).Value = ListBox2.List(i, 9)
Cells(fila, 20).Value = ListBox2.List(i, 10)
Cells(fila, 21).Value = ListBox2.List(i, 11)
Cells(fila, 22).Value = ListBox2.List(i, 12)
Cells(fila, 23).Value = ListBox2.List(i, 13)
Cells(fila, 24).Value = ListBox2.List(i, 14)
Cells(fila, 25).Value = ListBox2.List(i, 15)
Cells(fila, 26).Value = ListBox2.List(i, 16)
Cells(fila, 27).Value = ListBox2.List(i, 17)
Cells(fila, 28).Value = ListBox2.List(i, 18)
Cells(fila, 29).Value = ListBox2.List(i, 19)
Cells(fila, 30).Value = ListBox2.List(i, 10)
Cells(fila, 31).Value = ListBox2.List(i, 21)
fila = fila + 1
Next

End Sub

1 Respuesta

Respuesta
4

Para pasar a otra hoja puedes hacerlo de esta forma, con esto no es necesario que selecciones la hoja destino, es decir, si estás en la hoja1, se va a guardar en la hoja2, cambia en la macro "Hoja2" por la hoja que desees.

Private Sub CommandButton2_Click()
    Set h = Sheets("Hoja2")
    fila = 1
    For i = 0 To ListBox2.ListCount - 1
        h.Cells(fila, 10).Value = ListBox2.List(i, 0)
        h.Cells(fila, 11).Value = ListBox2.List(i, 1)
        h.Cells(fila, 12).Value = ListBox2.List(i, 2)
        h.Cells(fila, 13).Value = ListBox2.List(i, 3)
        h.Cells(fila, 14).Value = ListBox2.List(i, 4)
        h.Cells(fila, 15).Value = ListBox2.List(i, 5)
        h.Cells(fila, 16).Value = ListBox2.List(i, 6)
        h.Cells(fila, 17).Value = ListBox2.List(i, 7)
        h.Cells(fila, 18).Value = ListBox2.List(i, 8)
        h.Cells(fila, 19).Value = ListBox2.List(i, 9)
        h.Cells(fila, 20).Value = ListBox2.List(i, 10)
        h.Cells(fila, 21).Value = ListBox2.List(i, 11)
        h.Cells(fila, 22).Value = ListBox2.List(i, 12)
        h.Cells(fila, 23).Value = ListBox2.List(i, 13)
        h.Cells(fila, 24).Value = ListBox2.List(i, 14)
        h.Cells(fila, 25).Value = ListBox2.List(i, 15)
        h.Cells(fila, 26).Value = ListBox2.List(i, 16)
        h.Cells(fila, 27).Value = ListBox2.List(i, 17)
        h.Cells(fila, 28).Value = ListBox2.List(i, 18)
        h.Cells(fila, 29).Value = ListBox2.List(i, 19)
        h.Cells(fila, 30).Value = ListBox2.List(i, 10)
        h.Cells(fila, 31).Value = ListBox2.List(i, 21)
        fila = fila + 1
    Next
End Sub

Añade tu respuesta

Haz clic para o

Más respuestas relacionadas

Como paras de ListBox a ListBox

Me gustaría que al seleccionar una fila de 10 columnas en el listbox1 (en el evento ListBox1_Click) esta se añada en el listbox2. Esta operación se puede repetir varias veces. Digamos que es hacer una "lista de la compra" donde vas añadiendo...
1 respuesta

Macro diseñada para copiar registros de un form a una hoja excel

Segundo diseñe esta macro para que copie los valores del textbox a una hoja excel llamada histórico, pero que primero busque en la hoja histórico la fila a partir de la 2 en la columna 1 la vacía y lo copie pero no lo hace me podrías decir en que...
1 respuesta

Mensaje tipo MsgBox("XXXXX") si después de dar click en Botón Cmd el ListBox está vacío.

Tengo este código y con el busco información de una tabla, esa información se carga en un ListBox y lo que deseo es que me muestre primero, todos los datos que coincidan con el criterio de búsqueda y segundo, dado el caso en que no haya una...
1 respuesta

Pasar filas de datos de un listbox a fijas de una de hoja de excel

Pasar filas de datos de un listbox a fijas de una de hoja de excel
1 respuesta

Planilla para guardar películas

Necesito hacer una pequeña aplicación en excel muy simple para guardar mi colección de películas... Algo com un formulario que me permita ingresar el nombre y escoger la categoría, nada más que eso, ¿Y luego guardar y me vaya mostrando un listado de...
4 respuestas

Necesito ayuda con macro para buscar en varias hojas

Ralvaradot mira tengo un macro que busca un dato en una hoja pero lo que necesito es que busque el mismo dato pero en las siguientes otras hojas y lo peque en otra así como lo hace este es el macro Sub prueba() fila = 4 dato = InputBox("que dato o...
1 respuesta

Comportamiento irregular de una macro dentro de un formulario

Mi consulta trata de encontrar una macro que actualice los nombres de los clientes en la hoja Pedidos, cuando se modifican en la hoja Clientes. En la pregunta realizada anteriormente “Actualizar datos de una hoja a otra”, la rutina propuesta funciona...
2 respuestas

Formularios VBA en excel

Estoy realizando un directorio y quisiera que a la hora de introducir mis datos en el formulario que ya he realizado me los clasifique en las distintas hojas que he creado para cada sector pero que tambien se quede registrado en la hoja principal que...
1 respuesta

Macro para buscar datos en varios libro compartidos en red

Hey, que tal expertos! Buenas noches!, Tengo la necesidad de buscar datos en archivos compartidos de un usuario en red, el cual tiene dos carpetas compartidas, una carpeta tiene contraseña de acceso y solo yo tengo el permiso para acceder a ella. La...
1 respuesta

Macro para copiar celdas de manera secuencial

Macro para copiar celdas A1:N14 (son 2005 filas y 14 columnas) en otra hoja pero de A1:A14, osea que fila/registro lo transponga/coloque en una columna de manera secuencial. Que copie la celda de A1 hasta N1, coloque el contenido de las celdas en...
1 respuesta