tomar datos de varias hojas

Hola Paquito,

Prueba el siguiente código en un módulo estandar de tu libro.
Escribe el nombre de la hoja en la columna A y el valor de la celda Z24 en
la columna Bde cada hoja en una hoja que debes llamar Resumen.

Existe otra forma con fórmulas pero necesita el nombre de las hojas en una
columna, si eso lo tienes ya prueba la fórmula:
=INDIRECTO(A1&"!Z24")

Donde en la columna A están los nombres de las hojas.

Un saludo,
Juan

El código

Inicio Código==
Sub LeeCelda()
Dim hoja As Worksheet
Dim i As Long

i = 1
For Each hoja In ThisWorkbook.Worksheets
If hoja.Name <> "Resumen" Then
With Worksheets("Resumen")
.Range("A" & i) = hoja.Name
.Range("B" & i) = hoja.Range("Z24")
End With
i = i + 1
End If
Next hoja
End Sub

Fin Código==
"Paquito" escribió

Hice esta consulta hace unos días, pero creo que no me expliqué bien...

Tengo un archivo con 65 hojas.

Todas las hojas son idénticas, recogen los mismos datos. En las Columnas
los
años y en las filas otras variables.

Cada hoja corresponde a una provincia o región de España.

A mi me interesa comparar el dato que está en la celta Z24 de cada hoja, y
para ello pretendo crear una tabla que recoja todos los valores de la
celda
Z24 de todas las hojas.

Es posible????

Seguro que sí,

¡Ánimo! Animaos a contestar

un saludo y gracias

Me ha servido la fórmula de "indirecto", muchas gracias

Pero, pero, pero,
me toco meter los nombres de las celdas a mano y eso me lleva a otra duda;

si tengo una serie que comienza Cn00ri y sigue Cn01ri, y sigue Cn02ri.
como puedo extender la serie sin necesidad de escribir todo entero.
creo que se puede hacer a través de rellenar serie, pero no lo consigo

Misterios sin resolver.

"Juan M" escribió:

Hola Paquito,

Prueba el siguiente código en un módulo estandar de tu libro.
Escribe el nombre de la hoja en la columna A y el valor de la celda Z24 en
la columna Bde cada hoja en una hoja que debes llamar Resumen.

Existe otra forma con fórmulas pero necesita el nombre de las hojas en una
columna, si eso lo tienes ya prueba la fórmula:
=INDIRECTO(A1&"!Z24")

Donde en la columna A están los nombres de las hojas.

Un saludo,
Juan

El código

Inicio Código==>
Sub LeeCelda()
Dim hoja As Worksheet
Dim i As Long

i = 1
For Each hoja In ThisWorkbook.Worksheets
If hoja.Name <> "Resumen" Then
With Worksheets("Resumen")
.Range("A" & i) = hoja.Name
.Range("B" & i) = hoja.Range("Z24")
End With
i = i + 1
End If
Next hoja
End Sub

Fin Código==>
"Paquito" escribió
> Hice esta consulta hace unos días, pero creo que no me expliqué bien...
>
> Tengo un archivo con 65 hojas.
>
> Todas las hojas son idénticas, recogen los mismos datos. En las Columnas
> los
> años y en las filas otras variables.
>
> Cada hoja corresponde a una provincia o región de España.
>
> A mi me interesa comparar el dato que está en la celta Z24 de cada hoja, y
> para ello pretendo crear una tabla que recoja todos los valores de la
> celda
> Z24 de todas las hojas.
>
> Es posible????
>
> Seguro que sí,
>
> ¡Ánimo! Animaos a contestar
>
> un saludo y gracias

Hola,

Revisa las propuestas de KL, para obtener los nombres de las hojas de un
libro

http://tinyurl.com/2c4793

En tu caso concreto, podrías emplear dos columnas,
una columna con Cn00 (por ejemplo la A) y otra donde obtengas el nombre
completo
¡&"ri"

o empleando una sola columna

="Cn"&texto(fila(1:1)-1;"00")&"ri"

Un saludo,
Juan

"Paquito" escribió

Me ha servido la fórmula de "indirecto", muchas gracias

Pero, pero, pero,
me toco meter los nombres de las celdas a mano y eso me lleva a otra duda;

si tengo una serie que comienza Cn00ri y sigue Cn01ri, y sigue Cn02ri.
como puedo extender la serie sin necesidad de escribir todo entero.
creo que se puede hacer a través de rellenar serie, pero no lo consigo

Misterios sin resolver.

"Juan M" escribió:

Hola Paquito,

Prueba el siguiente código en un módulo estandar de tu libro.
Escribe el nombre de la hoja en la columna A y el valor de la celda Z24
en
la columna Bde cada hoja en una hoja que debes llamar Resumen.

Existe otra forma con fórmulas pero necesita el nombre de las hojas en
una
columna, si eso lo tienes ya prueba la fórmula:
=INDIRECTO(A1&"!Z24")

Donde en la columna A están los nombres de las hojas.

Un saludo,
Juan

El código

Inicio Código==>>
Sub LeeCelda()
Dim hoja As Worksheet
Dim i As Long

i = 1
For Each hoja In ThisWorkbook.Worksheets
If hoja.Name <> "Resumen" Then
With Worksheets("Resumen")
.Range("A" & i) = hoja.Name
.Range("B" & i) = hoja.Range("Z24")
End With
i = i + 1
End If
Next hoja
End Sub

Fin Código==>>
"Paquito" escribió
> Hice esta consulta hace unos días, pero creo que no me expliqué bien...
>
> Tengo un archivo con 65 hojas.
>
> Todas las hojas son idénticas, recogen los mismos datos. En las
> Columnas
> los
> años y en las filas otras variables.
>
> Cada hoja corresponde a una provincia o región de España.
>
> A mi me interesa comparar el dato que está en la celta Z24 de cada
> hoja, y
> para ello pretendo crear una tabla que recoja todos los valores de la
> celda
> Z24 de todas las hojas.
>
> Es posible????
>
> Seguro que sí,
>
> ¡Ánimo! Animaos a contestar
>
> un saludo y gracias

Mil gracias.
De hecho, me parece una solución tan sencilla que jamás se me hubiera
ocurrido.

"Juan M" escribió:

Hola,

Revisa las propuestas de KL, para obtener los nombres de las hojas de un
libro

http://tinyurl.com/2c4793

En tu caso concreto, podrías emplear dos columnas,
una columna con Cn00 (por ejemplo la A) y otra donde obtengas el nombre
completo
¡&"ri"

o empleando una sola columna

="Cn"&texto(fila(1:1)-1;"00")&"ri"

Un saludo,
Juan

"Paquito" escribió
> Me ha servido la fórmula de "indirecto", muchas gracias
>
> Pero, pero, pero,
> me toco meter los nombres de las celdas a mano y eso me lleva a otra duda;
>
> si tengo una serie que comienza Cn00ri y sigue Cn01ri, y sigue Cn02ri.
> como puedo extender la serie sin necesidad de escribir todo entero.
> creo que se puede hacer a través de rellenar serie, pero no lo consigo
>
> Misterios sin resolver.
>
> "Juan M" escribió:
>
>> Hola Paquito,
>>
>> Prueba el siguiente código en un módulo estandar de tu libro.
>> Escribe el nombre de la hoja en la columna A y el valor de la celda Z24
>> en
>> la columna Bde cada hoja en una hoja que debes llamar Resumen.
>>
>> Existe otra forma con fórmulas pero necesita el nombre de las hojas en
>> una
>> columna, si eso lo tienes ya prueba la fórmula:
>> =INDIRECTO(A1&"!Z24")
>>
>> Donde en la columna A están los nombres de las hojas.
>>
>> Un saludo,
>> Juan
>>
>> El código
>>
>> Inicio Código==> >>
>> Sub LeeCelda()
>> Dim hoja As Worksheet
>> Dim i As Long
>>
>> i = 1
>> For Each hoja In ThisWorkbook.Worksheets
>> If hoja.Name <> "Resumen" Then
>> With Worksheets("Resumen")
>> .Range("A" & i) = hoja.Name
>> .Range("B" & i) = hoja.Range("Z24")
>> End With
>> i = i + 1
>> End If
>> Next hoja
>> End Sub
>>
>> Fin Código==> >>
>> "Paquito" escribió
>> > Hice esta consulta hace unos días, pero creo que no me expliqué bien...
>> >
>> > Tengo un archivo con 65 hojas.
>> >
>> > Todas las hojas son idénticas, recogen los mismos datos. En las
>> > Columnas
>> > los
>> > años y en las filas otras variables.
>> >
>> > Cada hoja corresponde a una provincia o región de España.
>> >
>> > A mi me interesa comparar el dato que está en la celta Z24 de cada
>> > hoja, y
>> > para ello pretendo crear una tabla que recoja todos los valores de la
>> > celda
>> > Z24 de todas las hojas.
>> >
>> > Es posible????
>> >
>> > Seguro que sí,
>> >
>> > ¡Ánimo! Animaos a contestar
>> >
>> > un saludo y gracias
>>
>>
>>