Copiar datos de distintas hojas en una hoja nueva
Los molesto porque no entiendo mucho de programación y he tratado de resolverlo pero no he podido. Tengo un libro que tiene diferentes hojas, y al cual diariamente le agrego nuevas hojas. Cada hoja tiene datos en el rango A1:D18, quisiera copiar los datos de cada una de las hojas en una hoja nueva del mismo libro, los datos irían uno abajo de otro. Es decir los datos de hoja1 A1:D18 en una nueva hoja y debajo de esos datos, los datos de la hoja2 A1:D18 y así sucesivamente.
1 respuesta
Respuesta de Dante Amor
3
H o l a : Crea una hoja llamada "resumen"
Te anexo la macro
Sub CopiarDatos()
'Por.Dante Amor
Set h1 = Sheets("resumen")
h1.Cells.Clear
i = 1
For Each h In Sheets
If h.Name <> h1.Name Then
h.Range("A1:D18").Copy
h1.Range("A" & i).PasteSpecial xlValues
i = i + 18
End If
Next
MsgBox "Datos Copiados"
End SubSigue las Instrucciones para un botón y ejecutar la macro
- Abre tu libro de Excel
- Para abrir Vba-macros y poder pegar la macro, Presiona Alt + F11
- En el menú elige Insertar / Módulo
- En el panel del lado derecho copia la macro
- Ahora para crear un botón, puedes hacer lo siguiente:
- Inserta una imagen en tu hoja "resumen", elige del menú Insertar / Imagen / Autoformas
- Elige una imagen y con el Mouse, dentro de tu hoja, presiona click y arrastra el Mouse para hacer grande la imagen.
- Una vez que insertaste la imagen en tu hoja, dale click derecho dentro de la imagen y selecciona: Tamaño y Propiedades. En la ventana que se abre selecciona la pestaña: Propiedades. Desmarca la opción “Imprimir Objeto”. Presiona “Cerrar”
- Vuelve a presionar click derecho dentro de la imagen y ahora selecciona: Asignar macro. Selecciona: CopiarDatos
- Aceptar.
- Para ejecutarla dale click a la imagen.
'S aludos. Dante Amor. Recuerda valorar la respuesta. G racias
