UniversoExcelForo

Respuesta a consultas.
Fecha de creación: 09.Abril.2012

Fundadores: Wibly,Tyno,Servando,Sakkar,Rosendo2,RMaximo,Railar,Mcoronel,Ioyama,Igtelo,Hugotron,Drochar,Dedos,Alberto,Adolfo

No se pueden hacer consultas de Excel o VBA por mensaje privado.
Utiliza el botón buscar del foro y te ahorras tiempo para obtener "ayuda".

No estás conectado. Conéctate o registrate

Ver el tema anterior Ver el tema siguiente Ir abajo  Mensaje [Página 1 de 1.]

maquinitaazul


Hola, muy buen día amigos, me preguntaba si alguien me podía ayudar con lo siguiente: Tengo una tabla de datos con 3 columnas ( col a un numerado de datos), col b (meses), col c ( demanda), en la columna a quisiera saber como elevar al cuadrado cada valor y que se vaya sumando uno a uno, por ejemplo.

En la columna A tengo una numeración del 1 al 6 lo que necesito es que suceda esto;

1^2 + 2^2 + 3^2 + 4^2 + 5^2 + 6^2 = 91

Si agrego otro número por decir el 7, que la operación sea la misma pero agregando el 7 al cuadrado y sumando y así sucesivamente. Intente con un código, pero lo que hace es que eleva el último número y no el conjunto.

El resultado debe ir en el rango f3
Espero me puedan ayudar amigos,agradezco de antemano cualquier respuesta, muchas gracias.
Archivos
demanda.zip
No tienes los permisos para descargar los archivos.
(12 KB)

Igtelo


Hola Maquinita

Excel tiene esa función: SUMA.CUADRADOS

En tu caso sería: =SUMA.CUADRADOS(A2:A7)

Saludos
Ignacio Téllez

maquinitaazul


Hola Igtelo, perdona tuve un "lapsus brutus" , y se me paso investigar como se debe en la web antes de lanzar una pregunta, mil disculpas. En cuanto a la resolución utilice este procedimiento:

Dim uf As Long

uf = Range("A1048576").End(xlUp).Row

Range("F3") = Application.WorksheetFunction.SumSq(Range("A2:A" & uf))

Ver el tema anterior Ver el tema siguiente Volver arriba  Mensaje [Página 1 de 1.]

Permisos de este foro:
No puedes responder a temas en este foro.