Forums Últimos mensajes - Powered by IBM
 
Tags Palabras claves

Leer datos de indeterminadas hojas

22/08/2012 - 15:25 por maidanas | Informe spam
Ayuda Hacer una pregunta
¡ Hola !

Quiero crear una hoja resumen de multiples, en un libro de Excel.

Por ejemplo, escribo en la celda A1 de cada hoja una cantidad, y quiero que al final del libro se acumule la suma de todas las celdas A1 en una hoja. Pero que si por algun motivo añado con posterioridad una hoja nueva, dicha hoja sea tenida en cuenta para el calculo.

Gracias de antemano
email Siga el debateRespuesta 3 respuestasRespuesta Tengo una respuesta
DRAGON AGE™: INQUISITION – Matadragones
 

Leer las respuestas

#1 maidanas
23/08/2012 - 13:57 | Informe spam
Juan Español escribió el 22/08/2012 19:45 :
Cambia este código

Dim n As Integer, suma As Double
For n = 2 To Worksheets.Count
suma = suma + Sheets(n).Range("A1").Value
Next
Worksheets(1).Activate
[A1] = suma

por

Dim n As Integer, suma As Double
For n = 2 To Worksheets.Count
suma = suma + Sheets(n).Range("A1").Value
Next
[A1] = suma

Funciona igual, pero es una solemne tontería poner
Worksheets(1).Activate

Saludos.-


Gracias por la pronta respuesta.

No obstante, la solucion me la ha proporcionado la propia formula.

Veamos.

A modo de prueba, utilice la formula habitual =SUMA(Enero:Marzo!A1) en la ultima hoja del libro. Asi, sumaba Las hojas "Enero", "Febrero" y "Marzo". Pero he descubierto que si coloco cualquier hoja fisicamente dentro de ese intervalo (por ejemplo, desplazando "Abril" entre "Enero" y "Febrero"), dicha hoja queda incluida en la suma.
Al igual que cuando en un sumatorio de celdas, si insertas una nueva dentro del rango este se amplia e incluye la nueva celda en el sumatorio. Esta diea me llevo a hacer la prueba mientras que esperaba respuestas.

No obstante, me quedo con el codigo para utilizarlo en otros menesteres.

Gracias de nuevo.

Preguntas similares

 

Busqueda sugerida :