¿Como guardar información de una hoja a otra en Excel con visual basic?
Hice una tabla donde tengo 15 filas en donde pongo la información a capturar.
al llenar una deberá pasar toda la información a una tabla.
Mi duda es: como poder llenar los datos, utilice una macro donde se copiaban pero me dejaba espacios blancos por las filas que no se llenaban, entonces si quería guardar dejaría muchos espacios vacíos y quiero quitar eso espacios y si guardo solamente 10 solo se registren esos 10 si guardo 3 solo se guarden esos 3 y que no se pongan espacios blancos, y al momento de guardar una vez ya registrados en la hoja datos se borren automáticamente de las filas de la hoja D.P.A. Para así poder seguir registrando.
1 Respuesta
Solo necesitas recorrer la tabla con algún tipo de bucle como por ejemplo:
[B20].Select '1er celda de la tabla
While ActiveCell <> "" 'el bucle se ejecutará mientras haya datos en la col B
'pasas cada campo a tu hoja destino
sheets("Datos").Range("G" & filx) = activecell
sheets("Datos").Range("H" & filx) = activecell.offset(0,1)
'así con cada col
ActiveCell.Offset(1,0).Select 'pasa a la fila siguiente
Wend 'cierra el bucle
Y para saber cuál es la primer fila destino (filx), podría ser con esto:
filx = sheets("Datos").range("G" & Rows.count).end(xlup).Row + 1
Luego quedaría por ver cómo pasar los datos de las primeras columnas que la imagen no deja ver de dónde provienen. Pasame la macro que ya tenés para ajustarla. O enviame muestra de tus hojas a los correos que aparecen en mi sitio que dejo al pie.
¡Gracias Elsa!
Lo mando al correo: [email protected] o [email protected] ?
Cualquiera de los 2 estará bien.
Sdos!
