Sumar un rango en VBA

03/06/2004 - 16:14 por Tigre | Informe spam
Hola a todos

Estoy haciendo una funcion en la cual hay una parte donde
necesito que haga la suma de un rango, pero no se como
hacerla con VBA, intente un ciclo como el siguiente, pero
me esta mandando un error, y como es una funcion, no
despliega una ventana con el error para saber que es, la
rutina es la siguiente

For cSum = 1 To 12
vSuma = vSuma + Cells(vPromAnt.Row, vPromAnt.Column +
cSum).Value
Next

Alguien sabe cual es mi error, o alguna otra forma de
hacer una suma de un rango de celdas en VBA???

Gracias
 

Leer las respuestas

#1 Fernando Arroyo
03/06/2004 - 16:51 | Informe spam
Si (como creo) vPromAnt es un rango, puedes obtener su suma con una sola instrucción:

vSuma = WorksheetFunction.Sum(vpromant)

Un saludo.


Fernando Arroyo
MS MVP - Excel

"Tigre" escribió en el mensaje news:17ce601c44975$079f2cd0$

Hola a todos

Estoy haciendo una funcion en la cual hay una parte donde
necesito que haga la suma de un rango, pero no se como
hacerla con VBA, intente un ciclo como el siguiente, pero
me esta mandando un error, y como es una funcion, no
despliega una ventana con el error para saber que es, la
rutina es la siguiente

For cSum = 1 To 12
vSuma = vSuma + Cells(vPromAnt.Row, vPromAnt.Column +
cSum).Value
Next

Alguien sabe cual es mi error, o alguna otra forma de
hacer una suma de un rango de celdas en VBA???

Gracias

Preguntas similares