Consolidar hojas con un mismo formato

Tengo en una carpeta con varios archivos de Excel, cada uno tiene 7 hojas con el mismo formato. Quisiera una macro que copie la información de la hoja que dice "formula" ( de todos los archivos de Excel) y lo consolide en un en un nuevo Excel.

1 respuesta

Respuesta
1

H  o l a:

Tengo las siguientes dudas:

¿La información a copiar de cuál celda a cuál celda?

¿Cómo se va a consolidar?

Puedes poner dos imágenes, cada imagen de la hoja "formula" de diferentes archivos

Y otra imagen donde se vea la consolidación de las 2 hojas anteriores.

Procura que en las imágenes se vean las filas y las columnas de excel.

 S a l u d o s

Hola muchas gracias por contestar,  aquí te paso las imágenes

consolidado:

Cada archivo tiene 12 hojas y la que se quiere consolidar es la hoja 9. 

H o l a:

Pon la siguiente macro en un libro nuevo, con una hoja llamada "Hoja1".

Cambia en la macro esta ruta:

ruta = "C:\trabajo\varios\"

Por la ruta en la que tengas tus archivos.

La macro leerá todos los archivos y los que tengan la hoja "formula" serán consolidados en la "Hoja1"

Sub ConsolidarHojas()
'Por.Dante Amor
    Application.ScreenUpdating = False
    Application.DisplayAlerts = False
    Set l1 = ThisWorkbook
    Set h1 = l1.Sheets("Hoja1")
    h1.Cells.Clear
    ruta = "C:\trabajo\varios\"
    arch = Dir(ruta & "*.xls*")
    '
    f = 4
    Do While arch <> ""
        Set l2 = Workbooks.Open(ruta & arch)
        For Each h2 In l2.Sheets
            If h2.Name = "formula" Then
                u2 = h2.Range("A" & Rows.Count).End(xlUp).Row
                If u2 < 4 Then u2 = 4
                u1 = h1.Range("A" & Rows.Count).End(xlUp).Row + 1
                If u1 < 4 Then u1 = 4
                h2.Range("A4:M" & u2).Copy
                h1.Range("A" & u1).PasteSpecial Paste:=xlValues
                Exit For
            End If
        Next
        l2.Close False
        arch = Dir()
    Loop
    Application.ScreenUpdating = True
    MsgBox "Proceso Terminado"
End Sub

'

Hola, 

Hay un problema, al momento de ejecutar la macro aparece proceso terminado pero no consolida. El tipo de archivo es este: Hoja de cálculo de Microsoft Excel (.xlsx). Y la ubicación es esta C:\prueba.

Muchas gracias por tu ayuda

¿Cambiaste la carpeta en la macro?

¿Los archivos tiene la hoja llamada formula?

Añade tu respuesta

Haz clic para o

Más respuestas relacionadas