Google Groups no longer supports new Usenet posts or subscriptions. Historical content remains viewable.
Dismiss

Convertir varias hojas en una sola hoja

22 views
Skip to first unread message

@discussions.microsoft.com IOO (EXCEL HOJAS)

unread,
Jul 14, 2009, 8:23:01 AM7/14/09
to
Hola:

Alguien sabe si es posible pasar un libro de varias hojas a uno solo de una
sola hoja.

No son tablas a consolidar sencillamente es que aparezcan todos los datos
seguidos

Gracias

Juan M

unread,
Jul 14, 2009, 9:16:17 AM7/14/09
to

"IOO (EXCEL HOJAS)" escribi�

Hola,

Puedes hacerlo por medio de macros. El problema est� en que no sabemos que
rangos empleas, ni si las hojas son iguales, llevan encabezados,...
Si comentas como es el arreglo de las hojas se puede mejorar el siguiente
c�digo.

Crea una hoja nueva llamada Resumen donde copia el rango en uso del resto de
hojas.
Si ya existiera esa hoja resumen arrojar� un error. Probablemente aparezcan
m�s cosas pero para una primera aproximaci�n espero que valga.

Comentas m�s detalles?

Un saludo,
Juan

(en un modulo est�ndar)

Sub CopiaResumen()
Dim Hoja As Worksheet

ThisWorkbook.Worksheets.Add after:=Worksheets(ThisWorkbook.Sheets.Count)
ActiveSheet.Name = "Resumen"

For Each Hoja In ThisWorkbook.Worksheets
If Hoja.Name <> "Resumen" Then
Hoja.UsedRange.Copy Range("A" & Rows.Count).End(xlUp).Offset(1)
End If
Next Hoja
Range("A1").EntireRow.Delete
End Sub

End Sub

IOO (EXCEL HOJAS)

unread,
Jul 14, 2009, 9:24:03 AM7/14/09
to
Hola Juan:

Gracias por tu respuesta, en principio quiero convertir un libro con varias
hojas (el número de hojas varia de un libro a otro) y refundirlas todas en
una sola hoja. Voy a probar tu macro y te digo algo.

Gracias de nuevo

Iñaki

"Juan M" escribió:

>
> "IOO (EXCEL HOJAS)" escribió


> > Hola:
> >
> > Alguien sabe si es posible pasar un libro de varias hojas a uno solo de
> > una
> > sola hoja.
> >
> > No son tablas a consolidar sencillamente es que aparezcan todos los datos
> > seguidos
> >
> > Gracias
>
> Hola,
>

> Puedes hacerlo por medio de macros. El problema está en que no sabemos que

> rangos empleas, ni si las hojas son iguales, llevan encabezados,...
> Si comentas como es el arreglo de las hojas se puede mejorar el siguiente

> código.


>
> Crea una hoja nueva llamada Resumen donde copia el rango en uso del resto de
> hojas.

> Si ya existiera esa hoja resumen arrojará un error. Probablemente aparezcan
> más cosas pero para una primera aproximación espero que valga.
>
> Comentas más detalles?
>
> Un saludo,
> Juan
>
> (en un modulo estándar)

0 new messages