Como reunir la información de varias hojas en una sola
Tengo un Libro excel con varias hojas, ahora son cinco pero podrían ser más en el futuro.
Necesito copiar toda la información de todas las hojas en una nueva hoja. Todas las hojas fuente tienen la misma estructura.
Hay que copiar desde la A2:M, unas 300 filas.
Para pegar necesito, que se mantenga el formato (fecha, colores, etc.) y que se pegue desde la segunda fila de destino, es decir, que no toque la primera fila que es donde tengo los títulos.
Otra opción sería copiar los títulos de la primera hoja y NO de las siguientes ...
Gracias
1 Respuesta
Espero estés bien.
¿Has utilizando alguna vez la creación de macros mediante VBA?
Te paso un código para ver si se acerca a lo que necesitas. Seguramente vas a tener que estudiarlo y pensarlo. Hay variables que podes tocar sin problemas. Esto esta realizada para dos hojas. Lo único que te quedaría hacer es adaptarlo para el resto copiando y pegando el mismo código. Lo podes ejecutar con un botón sin problemas.
Sub Macro1()
'Copia el contenido de la Hoja 2. Comenzando en A2, selecciona todo hacia abajo y luego selecciona todo hacia al derecha
Sheets(2).Select
Range("A2").Select
Range(Selection, Selection.End(xlDown)).Select
Range(Selection, Selection.End(xlToRight)).Select
Selection.Copy
'Va a la Hoja 1. Se posiciona en la primer fila vacía de la columna A.
Sheets(1).Select
Range("A72400").Select
Selection.End(xlUp).Select
ActiveCell.Offset(1, 0).Select
'Pega el contenido como Valores de lo copiado en la Hoja 2.
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
End Sub
