Jump to content

Unificar hojas de varios libros


Recommended Posts

Hola amigo en una aportunidad realice una consulta en el foro y me facilitaron el codigo para consolidar 3 archivo en uno, este codigo me oriento para adecuarlo a lo que necesitaba espero te sirva.

Sub Consolidar()
' Asumimos que los archivos están en una carpeta llamada Consolidar bajo el disco C
ruta = "C:\Consolidar\"
' Abrimos los 4 archivos
'Workbooks.Open Filename:="C:\Users\Freddy Johan Moreno\Desktop\Consolidado.xls"
Workbooks.Open Filename:="C:\Users\Freddy Johan Moreno\Desktop\Archivo1.xls"
Workbooks.Open Filename:="C:\Users\Freddy Johan Moreno\Desktop\Archivo2.xls"
Workbooks.Open Filename:="C:\Users\Freddy Johan Moreno\Desktop\Archivo3.xls"
' Seleccionamos la hoja Base del archivo Consolidado y la inicializamos.
' Dejamos los nombres de los campos, que se supone que están en la fila 1
Workbooks("Consolidado.xls").Activate
Sheets("Base").Select
' Averiguamos la última fila grabada en este archivo
ufila = Range("A1").End(xlDown).Row
' Borramos los datos
Range("A2:Z" + Format(ufila)).ClearContents
' Copiamos los datos del primer archivo
Workbooks("Archivo1.xls").Activate
Sheets("Base").Select
ufila1 = Range("A1").End(xlDown).Row
Range("A2:Z" + Format(ufila1)).Copy
Workbooks("Consolidado.xls").Activate
Sheets("Base").Select
Range("A2").Select
ActiveSheet.Paste
'Repetimos el mismo procedimiento con los otros dos archivos a consolidar
Workbooks("Archivo2.xls").Activate
Sheets("Base").Select
ufila2 = Range("A1").End(xlDown).Row
Range("A2:Z" + Format(ufila2)).Copy
Workbooks("Consolidado.xls").Activate
Sheets("Base").Select
Range("A" + Format(ufila1 + 1)).Select
ActiveSheet.Paste
Workbooks("Archivo3.xls").Activate
Sheets("Base").Select
ufila3 = Range("A1").End(xlDown).Row
Range("A2:Z" + Format(ufila3)).Copy
Workbooks("Consolidado.xls").Activate
Sheets("Base").Select
Range("A" + Format(ufila1 + ufila2)).Select
ActiveSheet.Paste
Application.CutCopyMode = False
Range("A1").Select
' Cerramos los archivos de datos
Workbooks("Archivo1.xls").Close
Workbooks("Archivo2.xls").Close
Workbooks("Archivo3.xls").Close
' Grabamos el archivo Consolidado
Workbooks("Consolidado.xls").Save
End Sub

Espero te sirva a tu propósito....

Deberías colocar tu archivo para que lo expertos del foro te ayuden con lo especifico de tu duda

Link to post
Share on other sites

Create an account or sign in to comment

You need to be a member in order to leave a comment

Create an account

Sign up for a new account in our community. It's easy!

Register a new account

Sign in

Already have an account? Sign in here.

Sign In Now
  • Crear macros Excel

  • Posts

  • Recently Browsing

    No registered users viewing this page.

×
×
  • Create New...

Important Information

Privacy Policy