como pegar hojas de libros distintos

hola, gonzalo !

... necesito agrupar cuadros que tienen distinto numero columnas, pero igual numero de filas
... estan en hojas distintas y archivos distintos. Por lo tanto lo que necesito es
... una hoja, pegar en la siguiente fila desocupada el titulo del archivo y el cuadro del archivo que esta en libro.
... estoy super complicado con la tarea ya que son 200 libros (o archivos) para 9 paises distintos...

1) copia/mueve/coloca/... tus ~200 libros en una sola carpeta [o directorio 'comun']...
2) abre un libro nuevo, y escribe en la celda 'A1' de la hoja1 la ruta elegida [p.e.] C:\Mis respaldos\Todos los libros\
- NO olvides el '\' al final :))
3) copia/pega/... las siguientes lineas en un modulo de codigo 'general' EN el proyecto de macros del libro 'nuevo'
NOTA: se asume que la hoja que se va a combinar... -> ES la hoja (1) de cada uno de los ~200 libros...
Y [ademas y muy importante] que la ultima fila de cada hoja SI contiene datos -?-
de lo contrario... la 'siguiente fila libre' en el libro nuevo... va a presentar 'inconsistencias' en el resultado final :-(

si cualquier duda [o informacion adicional]... comentas ?
saludos,
hector.

Sub Combina_archivos_en()
Dim Archivo As String
Application.ScreenUpdating = False
With ThisWorkbook.Worksheets(1)
Archivo = Dir(.Range("a1") & "*.xls")
Do While Archivo <> ""
Workbooks.Open .Range("a1") & Archivo
.Range("a" & Rows.Count).End(xlUp).Offset(2) = _
ActiveWorkbook.Name
ActiveWorkbook.Worksheets(1).UsedRange.Copy _
Destination:=.Range("a" & Rows.Count).End(xlUp).Offset(1)
ActiveWorkbook.Close False
Archivo = Dir()
Loop
End With
End Sub

gracias hector, estoy probando el codigo y espero tener suerte, no te
habia posteado antes ya que me ocupe de otras cosas antes

un abrazo


Héctor Miguel wrote:

hola, gonzalo !

> ... necesito agrupar cuadros que tienen distinto numero columnas, pero igual numero de filas
> ... estan en hojas distintas y archivos distintos. Por lo tanto lo que necesito es
> ... una hoja, pegar en la siguiente fila desocupada el titulo del archivo y el cuadro del archivo que esta en libro.
> ... estoy super complicado con la tarea ya que son 200 libros (o archivos) para 9 paises distintos...

1) copia/mueve/coloca/... tus ~200 libros en una sola carpeta [o directorio 'comun']...
2) abre un libro nuevo, y escribe en la celda 'A1' de la hoja1 la ruta elegida [p.e.] C:\Mis respaldos\Todos los libros\
- NO olvides el '\' al final :))
3) copia/pega/... las siguientes lineas en un modulo de codigo 'general' EN el proyecto de macros del libro 'nuevo'
NOTA: se asume que la hoja que se va a combinar... -> ES la hoja (1) de cada uno de los ~200 libros...
Y [ademas y muy importante] que la ultima fila de cada hoja SI contiene datos -?-
de lo contrario... la 'siguiente fila libre' en el libro nuevo... va a presentar 'inconsistencias' en el resultado final :-(

si cualquier duda [o informacion adicional]... comentas ?
saludos,
hector.

Sub Combina_archivos_en()
Dim Archivo As String
Application.ScreenUpdating = False
With ThisWorkbook.Worksheets(1)
Archivo = Dir(.Range("a1") & "*.xls")
Do While Archivo <> ""
Workbooks.Open .Range("a1") & Archivo
.Range("a" & Rows.Count).End(xlUp).Offset(2) = _
ActiveWorkbook.Name
ActiveWorkbook.Worksheets(1).UsedRange.Copy _
Destination:=.Range("a" & Rows.Count).End(xlUp).Offset(1)
ActiveWorkbook.Close False
Archivo = Dir()
Loop
End With
End Sub

Hector la macro funcione a las mil maravillas
te agradezco un monton
gracias un abrazo

gonzalo wrote:

gracias hector, estoy probando el codigo y espero tener suerte, no te
habia posteado antes ya que me ocupe de otras cosas antes

un abrazo


Héctor Miguel wrote:
> hola, gonzalo !
>
> > ... necesito agrupar cuadros que tienen distinto numero columnas, pero igual numero de filas
> > ... estan en hojas distintas y archivos distintos. Por lo tanto lo que necesito es
> > ... una hoja, pegar en la siguiente fila desocupada el titulo del archivo y el cuadro del archivo que esta en libro.
> > ... estoy super complicado con la tarea ya que son 200 libros (o archivos) para 9 paises distintos...
>
> 1) copia/mueve/coloca/... tus ~200 libros en una sola carpeta [o directorio 'comun']...
> 2) abre un libro nuevo, y escribe en la celda 'A1' de la hoja1 la ruta elegida [p.e.] C:\Mis respaldos\Todos los libros\
> - NO olvides el '\' al final :))
> 3) copia/pega/... las siguientes lineas en un modulo de codigo 'general' EN el proyecto de macros del libro 'nuevo'
> NOTA: se asume que la hoja que se va a combinar... -> ES la hoja (1) de cada uno de los ~200 libros...
> Y [ademas y muy importante] que la ultima fila de cada hoja SI contiene datos -?-
> de lo contrario... la 'siguiente fila libre' en el libro nuevo... va a presentar 'inconsistencias' en el resultado final :-(
>
> si cualquier duda [o informacion adicional]... comentas ?
> saludos,
> hector.
>
> Sub Combina_archivos_en()
> Dim Archivo As String
> Application.ScreenUpdating = False
> With ThisWorkbook.Worksheets(1)
> Archivo = Dir(.Range("a1") & "*.xls")
> Do While Archivo <> ""
> Workbooks.Open .Range("a1") & Archivo
> .Range("a" & Rows.Count).End(xlUp).Offset(2) = _
> ActiveWorkbook.Name
> ActiveWorkbook.Worksheets(1).UsedRange.Copy _
> Destination:=.Range("a" & Rows.Count).End(xlUp).Offset(1)
> ActiveWorkbook.Close False
> Archivo = Dir()
> Loop
> End With
> End Sub

Hola Hector, ahora tengo otro problema y este es urgentebueno
todos. Disculpa por abusar, pero no entiendo muy bien como se crean las
macros.
Bueno, ahor lo que tengo son varias hojas en un libro que tienen las
mismas variables por fila, pero no estan ordenadas. Lo que necesito es
agregarle a la hora uno, los valores hacia el lado de la variables que
coniciden en cada hoja y colocar el nobre de la hoja el principio de la
columna como titulo. Si el grupo me pudiera ayudar se los agradeceria.



gonzalo wrote:

Hector la macro funcione a las mil maravillas
te agradezco un monton
gracias un abrazo

gonzalo wrote:
> gracias hector, estoy probando el codigo y espero tener suerte, no te
> habia posteado antes ya que me ocupe de otras cosas antes
>
> un abrazo
>
>
> Héctor Miguel wrote:
> > hola, gonzalo !
> >
> > > ... necesito agrupar cuadros que tienen distinto numero columnas, pero igual numero de filas
> > > ... estan en hojas distintas y archivos distintos. Por lo tanto lo que necesito es
> > > ... una hoja, pegar en la siguiente fila desocupada el titulo del archivo y el cuadro del archivo que esta en libro.
> > > ... estoy super complicado con la tarea ya que son 200 libros (o archivos) para 9 paises distintos...
> >
> > 1) copia/mueve/coloca/... tus ~200 libros en una sola carpeta [o directorio 'comun']...
> > 2) abre un libro nuevo, y escribe en la celda 'A1' de la hoja1 la ruta elegida [p.e.] C:\Mis respaldos\Todos los libros\
> > - NO olvides el '\' al final :))
> > 3) copia/pega/... las siguientes lineas en un modulo de codigo 'general' EN el proyecto de macros del libro 'nuevo'
> > NOTA: se asume que la hoja que se va a combinar... -> ES la hoja (1) de cada uno de los ~200 libros...
> > Y [ademas y muy importante] que la ultima fila de cada hoja SI contiene datos -?-
> > de lo contrario... la 'siguiente fila libre' en el libro nuevo... va a presentar 'inconsistencias' en el resultado final :-(
> >
> > si cualquier duda [o informacion adicional]... comentas ?
> > saludos,
> > hector.
> >
> > Sub Combina_archivos_en()
> > Dim Archivo As String
> > Application.ScreenUpdating = False
> > With ThisWorkbook.Worksheets(1)
> > Archivo = Dir(.Range("a1") & "*.xls")
> > Do While Archivo <> ""
> > Workbooks.Open .Range("a1") & Archivo
> > .Range("a" & Rows.Count).End(xlUp).Offset(2) = _
> > ActiveWorkbook.Name
> > ActiveWorkbook.Worksheets(1).UsedRange.Copy _
> > Destination:=.Range("a" & Rows.Count).End(xlUp).Offset(1)
> > ActiveWorkbook.Close False
> > Archivo = Dir()
> > Loop
> > End With
> > End Sub

hola, gonzalo !

... tengo... varias hojas en un libro que tienen las mismas variables por fila, pero no estan ordenadas
... necesito... agregarle a la hoja uno, los valores hacia el lado de la variables que coniciden en cada hoja
y colocar el nobre de la hoja el principio de la columna como titulo...

podrias comentar algunod detalles [que considero] 'faltantes' para alguna propuesta mas 'concreta' ? como...
- de cuantas columnas [y cuales] en cada hoja estamos 'hablando' para hacer la busqueda y comparacion ?
- de cuantas hojas [y sus nombres] estamos 'hablando' ?
- a partir de que columna necesitas [en la hoja1] indicar alguna coincidencia ?
- algun otro detalle que este quedando 'en el tintero' ?

saludos,
hector.