Colocar Datos Fila por Fila
Hola que tal, buenas desde mexico, soy nuevo con esto de las macros, y espero poder seguir aprendiendo :D.
Tengo una duda, la cuestión es esta,
Tengo una plantilla la cual lógicamente no tiene registros en orden, lo que quiero hacer es que ya llenando esa hoja pasar todas las celdas con los datos a un tabulado en la hoja 2, lo intento pero siempre que modifico la hoja 1, los datos me quedan en la misma fila de la hoja 2 y lo que quiero es que se vayan acumulando uno abajo de otro. Como una tabla
Gracias de antemano, espero alguien pueda ayudarme
Tengo una duda, la cuestión es esta,
Tengo una plantilla la cual lógicamente no tiene registros en orden, lo que quiero hacer es que ya llenando esa hoja pasar todas las celdas con los datos a un tabulado en la hoja 2, lo intento pero siempre que modifico la hoja 1, los datos me quedan en la misma fila de la hoja 2 y lo que quiero es que se vayan acumulando uno abajo de otro. Como una tabla
Gracias de antemano, espero alguien pueda ayudarme
1 respuesta
Respuesta de excelinomano
1
No mencionas si quieres pasar solo algunos datos o todos los que que se encuentren en la fila de la hoja 2 a la 1, aquí te mando un código el cual pasara todo lo que hay en la fila de la hoja 2 a la 1 y la irá acomdando uno debajo de otro en forma de lista. Espero sea lo que necesitas, si no es pecificame bien cuántas y/o cuáles columnas quieres mover.
Este es el código:
Sub mover_filas()
Range("A2").Select
While ActiveCell.Value <> ""
ActiveCell.EntireRow.Cut
Sheets("Hoja1").Select
Range("A2").Select
While ActiveCell.Value <> ""
ActiveCell.Offset(1, 0).Select
Wend
fila1 = Row
ActiveSheet.Paste
Application.CutCopyMode = False
Sheets("Hoja2").Select
ActiveCell.Offset(1, 0).Select
Wend
End Sub
Este es el código:
Sub mover_filas()
Range("A2").Select
While ActiveCell.Value <> ""
ActiveCell.EntireRow.Cut
Sheets("Hoja1").Select
Range("A2").Select
While ActiveCell.Value <> ""
ActiveCell.Offset(1, 0).Select
Wend
fila1 = Row
ActiveSheet.Paste
Application.CutCopyMode = False
Sheets("Hoja2").Select
ActiveCell.Offset(1, 0).Select
Wend
End Sub
