tomar datos de varias hojas

22/11/2007 - 10:11 por Paquito | Informe spam
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
 

Leer las respuestas

#1 Juan M
22/11/2007 - 14:27 | Informe spam
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

Preguntas similares