Necesito crear varios libros a partir de dos archivos

Tannya · el 30 de enero

Hola!

Necesito crear alrededor de 120 libros, los cuales deben contener dos hojas cada uno. Dichas hojas son extraídas de dos libros diferentes.

Lo que estaba haciendo era crear, a partir del "libro 1", un archivo por cada hoja que contiene dicho libro, usando una macro. Luego, abría cada uno de esos archivos y movía, manualmente, la hoja que les correspondía del "libro 2".

Es importante mencionar, que tanto el "libro 1", como el "libro 2" contienen 120 hojas, las cuales pertenecen a cada nuevo archivo.

¿Existe alguna forma de crear los 120 archivos de forma automática?

Desde ya agradezco cualquier información que me puedan aportar.

Héctor Miguel · el 31 de enero

Hace 9 horas, Tannya dijo:

¿Existe alguna forma de crear los 120 archivos de forma automática?

es posible, solo se requiere (RE)crear (u obtener) el modelo y estructura de ambos libros, es decir:
- los nombres de las hojas de cada uno y como se corresponden a su "cada libro nuevo"
- si existen vinculos entre las hojas y/o los libros (y requieres que no sigan vinculados ?)
- si contienen macros, objetos incrustados (y cosas por el estilo) ?
- el nombre que ha de tomar cada libro nuevo
- y cualquier otro detalle que te pudieras estar "dejando en el tintero" ?

Tannya · el 31 de enero

Estimado Hector:

Gracias por atender mi consulta.

Los archivos que requiero crear corresponden a cobros que se realiza a un listado de propiedades.

El "libro 1" contiene las hojas de resumen de los cobros que se realizan a cada inmueble (las hojas están ordenadas alfabéticamente).

El "libro 2" contiene el detalle de esos cobros. También están ordenados alfabéticamente. Es decir, la hoja 1 de este libro, coincide con la 1 del otro libro, así sucesivamente.

No existen vínculos de ningún tipo, tampoco macros o cosas similares.

Los nuevos archivos se componen de esta forma:

Hoja 1: Hoja de Resumen.
Hoja 2: Hoja de Detalle.

Esas hojas deberían tomar el nombre de "Resumen" y "Detalle", respectivamente.

El nombre de los archivos tienen todos esta estructura:

INM NOMBRE DEL INMUEBLE MES AÑO

Donde:

INM: Es la abreviación de inmueble.
NOMBRE DEL INMUEBLE: Es el nombre de identificación de la propiedad.
MES: Es el mes en curso.
AÑO: Es el año en curso.

Como estos cobros se deben hacer todos los meses, lo que siempre varía es el nombre del inmueble y el mes.

Espero haber entregado los detalles requeridos.

Héctor Miguel · el 31 de enero

Hace 6 horas, Tannya dijo:

Es decir, la hoja 1 de este libro, coincide con la 1 del otro libro, así sucesivamente...

El nombre de los archivos tienen todos esta estructura:
INM NOMBRE DEL INMUEBLE MES AÑO

... Espero haber entregado los detalles requeridos

pues, si... pero no (con la precisión que se requiere)
con base en tus comentarios (y con ambos libros abiertos), prueba con algo +/- como:

Sub creaLibros()
  Dim Fuente1 As Workbook, Fuente2 As Workbook, n As Long
  Set Fuente1 = Workbooks("libro1")
  Set Fuente1 = Workbooks("libro2")
  Application.ScreenUpdating = False
  For n = 1 To Fuente1.Worksheets.Count
    Fuente1.Worksheets(n).Move
    Fuente2.Worksheets(n).Move After:=ActiveWorkbook.Worksheets(1)
    ActiveWorkbook.SaveAs "INM NOMBRE DEL INMUEBLE MES AÑO", 51
    ActiveWorkbook.Close True
  Next
End Sub

1) usa los nombre reales de tus libros
2) por el cripticismo de "INM NOMBRE DEL INMUEBLE MES AÑO" te toca adaptar la macro ? (para cada archivo nuevo)
3) si quieres conservar las hojas en sus libros originales, cambia de ".Move" a ".Copy"
4) si tienes alguna carpeta donde guardar los (nuevos) archivos, la incluyes en el "SaveAs"