Como puedo hacer que autosume hacia abajo

No sé si se podrá hacer sin código. Usándolo, podría ser algo como:

Sub AutoSumaHaciaAbajo()
If Not IsNumeric(ActiveCell.Offset(1)) Or ActiveCell.Offset(1) = "" Then Exit Sub
ActiveCell.Formula = "=SUM(" & Range(ActiveCell.Offset(1), ActiveCell.Offset(ActiveCell.Offset(1).End(xlDown))).Address & ")"
End Sub

El código anterior pondría la fórmula de suma en la celda activa, con las referencias absolutas en el rango a sumar. Si necesitaras que las referencias fueran relativas tendrías que poner:

(0,0)

después de Address

Un saludo.


Fernando Arroyo
MS MVP - Excel

"LUDICO" escribió en el mensaje news:07dd01c52f17$e233b540$

Por favor como puedo hacer para que autosume unas celdas
hacia abajo, normalmente solo suma hacia arriba o a la
derecha

Fernando; mil gracias por tu ayuda, me sirvio
mucho...pero los rangos se vuelven locos, me podrias
indicar por que?

Un Saludo
Luis Eduardo

No sé si se podrá hacer sin código. Usándolo, podría ser

algo como:

Sub AutoSumaHaciaAbajo()
If Not IsNumeric(ActiveCell.Offset(1)) Or

ActiveCell.Offset(1) = "" Then Exit Sub

ActiveCell.Formula = "=SUM(" & Range

(ActiveCell.Offset(1), ActiveCell.Offset(ActiveCell.Offset
(1).End(xlDown))).Address & ")"

End Sub

El código anterior pondría la fórmula de suma en la

celda activa, con las referencias absolutas en el rango a
sumar. Si necesitaras que las referencias fueran
relativas tendrías que poner:

(0,0)

después de Address

Un saludo.


Fernando Arroyo
MS MVP - Excel

"LUDICO" escribió en el mensaje

news:07dd01c52f17$e233b540$

Por favor como puedo hacer para que autosume unas

celdas

hacia abajo, normalmente solo suma hacia arriba o a la
derecha

.

Prueba con la "versión 2.0" :-)

Sub AutoSumaHaciaAbajo()
With ActiveCell
If Not IsNumeric(.Offset(1)) Or .Offset(1) = "" Or .Offset(2) = "" Then Exit Sub
ActiveCell.Formula = "=SUM(" & Range(.Offset(1).Address, .Offset(1).End(xlDown).Address).Address & ")"
End With
End Sub

Un saludo.


Fernando Arroyo
MS MVP - Excel


escribió en el mensaje news:0f2d01c52fee$0c2f8550$
Fernando; mil gracias por tu ayuda, me sirvio
mucho...pero los rangos se vuelven locos, me podrias
indicar por que?

Un Saludo
Luis Eduardo