Combinar dos libros.

[rafabq]

Estimados.

Espero que me puedan ayudar necesito hacer lo siguiente.

quiero combinar dos libros excel .

el cual contiene3 hojas cada libro.

las hojas contienen informacion.

necesito por ejm que la informacion de la hoja1 del libro2 se copie en la hoja1 del libro1, pero conservando la informacion que esta en cada hoja.

igual con las dejas hojas(la informacion de la hoja2 del libro2 se copie en la hoja2 del libro1, pero conservando la informacion.

dejo los ejemplos.

de antemano muchas gracias.

libro1.xls

libro2.xls

[Armando Montes]

Si entendi bien bastaria con guardar el libro2 como libro1, todo seria igual excepto el nombre.

[rafabq]

gracias por interesarte en el tema. armando.

lo que quiero es por ejm. como vez en los ejm. en la hoja1 del libro1 tengo datos y en la hoja1 del libro 2 tambien lo que quiero es una macro que pase la informacion de la hoja1 del libro2 a la hoja1 del libro1, y asi sucesivamente con las demas hojas.

[Armando Montes]

Tengo dudas, tal vez si incluyes antes y despues en el ejemplo logre entenderlo.

[Armando Montes]

Parece que lo que muestras en los libros 1 y 2 son datos y estructura simplificada, no lo se, solo me parece y si asi fuera lo que te sugiera seguramente no funcionara, por ello solo puedo darte una idea generica, no especifica:

For Each wsInBook1 In  Workbooks("Book1.xls").[B]Sheets[/B]

    For Each wsInBook2 In  Workbooks("Book2.xls").[B]Sheets[/B]

         If wsInBook1.Name = wsInBook2.Name  Then

             wsInBook1.Range("A1:G84").Copy  wsInBook2.Range("a1")

             Exit For

        End  If

    Next

Next[/CODE]

[color=blue]- - - - - Mensaje combinado - - - - -[/color]

Encontre esto que luce interesante y barato, solo 7 dolares:

http://jeeshenlee.com/2010/09/23/jmc-excel-join-merge-combine-multiple-excel-sheets-or-excel-workbooks/

[rafabq]

armando.

por ejm

en la hoja1 del libro1 tengo lo sgte.

[TABLE=class: cms_table, width: 160]

[TR]

[TD=width: 80, align: center]fecha[/TD]

[TD=width: 80, align: center] codigo[/TD]

[/TR]

[TR]

[TD=class: cms_table_xl63, align: center]23/09/2010[/TD]

[TD=align: center]123[/TD]

[/TR]

[TR]

[TD=class: cms_table_xl63, align: center]25/09/2001[/TD]

[TD=align: center]246

[/TD]

[/TR]

[TR]

[TD=align: center][/TD]

[/TR]

[/TABLE]

y en la hoja1 del libro2 lo sgte.

[TABLE=class: cms_table, width: 160]

[TR]

[TD=width: 80, align: center]fecha[/TD]

[TD=width: 80, align: center]codigo[/TD]

[/TR]

[TR]

[TD=class: cms_table_xl63, align: center]30/09/2013[/TD]

[TD=align: center]468[/TD]

[/TR]

[TR]

[TD=class: cms_table_xl63, align: center]15/09/2014[/TD]

[TD=align: center]680[/TD]

[/TR]

[/TABLE]

quiero que la data de la hoja1 del libro2 se copie en la hoja1 del libro1

de tal modo que quede asi.

[TABLE=class: cms_table, width: 160]

[TR]

[TD=width: 80, align: center]fecha[/TD]

[TD=width: 80, align: center]codigo[/TD]

[/TR]

[TR]

[TD=class: cms_table_xl63, align: center]23/09/2010[/TD]

[TD=align: center]123[/TD]

[/TR]

[TR]

[TD=class: cms_table_xl63, align: center]25/09/2001[/TD]

[TD=align: center]246[/TD]

[/TR]

[TR]

[TD=class: cms_table_xl63, align: center]30/09/2013[/TD]

[TD=align: center]468[/TD]

[/TR]

[TR]

[TD=class: cms_table_xl63, align: center]15/09/2014[/TD]

[TD=align: center]680[/TD]

[/TR]

[/TABLE]

esa data es de los 2 libros.

eso quiero que se haga para todas las hojas.

pues tengo un archivo con 100 hojas.

ojala mi estimado me deje entender.

[Armando Montes]

Probaste lo sugerido?