¿Cómo puedo hacer un macro que me haga un consolidado de varios libros de excel que contiene varias hojas?

Tengo varios libros de excel y los mismos tienen varias hojas, quiero hacer un consolidado en otro libro que reúnan toda esta informaciones.

Cada hoja tiene mismas columnas.

1 Respuesta

Respuesta
1

En un libro crea 2 hojas y les pones por nombre "Valores" y "Resumen"

En la hoja "Valores" pon la siguiente información:


Asigna la macro al botón:

Sub Importar_Datos()
'
'    Por.Dante Amor
'
    '
    Set l1 = ThisWorkbook
    Set h1 = l1.Sheets("Valores")
    Set h2 = l1.Sheets("Resumen")
    h2.Cells.ClearContents
    '
    ruta = h1.[B5]      'carpeta
    hoja = h1.[B6]      'hoja
    fila = h1.[B7]      'fila de datos
    colu = h1.[B8]      'columna principal
    '
    mensaje = validaciones(ruta, hoja, fila, colu)
    If mensaje <> "" Then
        MsgBox mensaje, vbExclamation, "IMPORTAR ARCHIVOS"
        Exit Sub
    End If
    '
    Application.ScreenUpdating = False
    Application.DisplayAlerts = False
    Application.StatusBar = False
    Application.Calculation = xlCalculationManual
    '
    If Right(ruta, 1) <> "\" Then ruta = ruta & "\"
    arch = Dir(ruta & "*.xls*")
    i = 0
    Do While arch <> ""
        i = i + 1
        Application.StatusBar = "Importando Libro : " & i & " de : " & n
        Set l2 = Workbooks.Open(ruta & arch)
        existe = False
        If hoja <> "*" Then
            If IsNumeric(hoja) Then
                If l2.Sheets.Count >= hoja Then
                    existe = True
                    Set h22 = l2.Sheets(hoja)
                Else
                End If
            Else
                For Each h In l2.Sheets
                    If LCase(h.Name) = LCase(hoja) Then
                        existe = True
                        Set h22 = l2.Sheets(hoja)
                        Exit For
                    End If
                Next
            End If
            If existe Then
                u22 = h22.Range(colu & Rows.Count).End(xlUp).Row
                u2 = h2.Range("A" & Rows.Count).End(xlUp).Row + 1
                h22.Rows(fila & ":" & u22).Copy
                h2.Range("A" & u2).PasteSpecial xlValues
            End If
        Else
            For Each h In l2.Sheets
                Set h22 = h
                u22 = h22.Range(colu & Rows.Count).End(xlUp).Row
                u2 = h2.Range("A" & Rows.Count).End(xlUp).Row + 1
                h22.Rows(fila & ":" & u22).Copy
                h2.Range("A" & u2).PasteSpecial xlValues
            Next
        End If
        '
        '
        l2.Close False
        arch = Dir()
    Loop
    '
    Application.ScreenUpdating = True
    Application.DisplayAlerts = True
    Application.StatusBar = False
    Application.Calculation = xlCalculationAutomatic
    '
    MsgBox "Proceso terminado, archivos importados a la hoja resumen", vbInformation, "IMPORTAR ARCHIVOS"
End Sub
'
Function validaciones(ruta, hoja, fila, colu)
    validaciones = ""
    If ruta = "" Then
        validaciones = "Escribe la Carpeta donde están los archivos"
        Exit Function
    End If
    If Dir(ruta, vbDirectory) = "" Then
        validaciones = "No existe la Carpeta"
        Exit Function
    End If
    If hoja = "" Then
        validaciones = "Escribe el nombre o número de hoja"
        Exit Function
    End If
    If fila = "" Or Not IsNumeric(fila) Or fila < 1 Then
        validaciones = "Escribe la fila inicial"
        Exit Function
    End If
    If colu = "" Or IsNumeric(colu) Then
        validaciones = "Escribe la columna principal"
        Exit Function
    End If
    '
    If Right(ruta, 1) <> "\" Then ruta = ruta & "\"
    arch = Dir(ruta & "*.xls*")
    n = 0
    Do While arch <> ""
        n = n + 1
        arch = Dir()
    Loop
    If n = 0 Then
        validaciones = "No hay archivos de excel a importar en la carpeta : " & ruta
        Exit Function
    End If
End Function

Sigue las Instrucciones para un botón y ejecutar la macro

  1. Abre tu libro de Excel
  2. Para abrir Vba-macros y poder pegar la macro, Presiona Alt + F11
  3. En el menú elige Insertar / Módulo
  4. En el panel del lado derecho copia la macro
  5. Ahora para crear un botón, puedes hacer lo siguiente:
  6. Inserta una imagen en tu libro, elige del menú Insertar / Imagen / Autoformas
  7. Elige una imagen y con el Mouse, dentro de tu hoja, presiona click y arrastra el Mouse para hacer grande la imagen.
  8. 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”
  9. Vuelve a presionar click derecho dentro de la imagen y ahora selecciona: Asignar macro. Selecciona: Importar_Datos
  10. Aceptar.
  11. Para ejecutarla dale click a la imagen.

.

'S aludos. Dante Amor. Recuerda valorar la respuesta. G racias

.

Avísame cualquier duda

.

Buenas tarde Dante;

He realizado lo que me indicas y cuando ejecuto el macro que doy click en importar datos me da el siguiente error: y se cierra el excel.

No es problema de la macro.

Revisa cada uno de los archivo que intentas abrir, alguno de ellos debe tener alguna inconsistencia lo que provoca el error.

Prueba la macro, pero en la carpeta pon 2 ó 3 archivos.

Y así ve probando con diferentes archivos en la carpeta hasta que detectes cuál archivo es el que tiene el problema.

Dante puede afectar que guardé el documento cuando cree el macro como excel habilitado para macros??

No, de hecho, el archivo debe guardarse como habilitado para macros.

Un detalle, el archivo con la macro no debe estar en la misma carpeta de los archivos con datos a importar.

Pon el archivo con la macro en otra carpeta y prueba con un par de archivos.

.

'S aludos. Dante Amor. Recuerda valorar la respuesta

.

Añade tu respuesta

Haz clic para o

Más respuestas relacionadas