Sumar Celda Anterior Sucesivamente

Hector
Ya arreglé unos errores.
Ahora quedó así:

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Cells(6, 11) = Cells(6, 3) + Cells(6, 5) + Cells(6, 7) + Cells(6, 9)
For i = 7 To 31
Cells(i, 11) = Cells(i, 3) + Cells(i, 5) + Cells(i, 7) + Cells(i, 9) +
Cells(i - 1, 11)
If Cells(i, 11) = Cells(i - 1, 11) Then
Cells(i, 11) = 0
End If
Next i
End Sub

Me funciona Perfectamente. Gracias

"Héctor Miguel" escribió en el mensaje
news:%

Hola, Oscar !

> ... funciona muy bien y ha quedado así:
> Private Sub Worksheet_SelectionChange(ByVal Target As Range)
> For i = 6 To 50
> Cells(i, 11) = Cells(5, 3) + Cells(5, 5) + Cells(5, 7) + Cells(5, 3)
> Cells(i, 11) = Cells(i, 3) + Cells(i, 5) + Cells(i, 7) + Cells(i -

1, 11)

> If Cells(i, 11) = Cells(i - 1, 11) Then
> Cells(i, 11) = 0
> End If
> Next i
> End Sub

solo unas 'observaciones' [no se si ya lo has notado, 'pero'...]
1.- la primer linea [dentro del For...Next] NO 'tiene sentido', es

inmediatamente reemplazada por la segunda :))

2.- al 'poner en cero' [If...Then... Cells(i, 11) = 0] PIERDES la

'acumulacion' EN la siguiente celda en 'K' <== :((

3.- ['insisto'... YA] no tienes la 'posibilidad' de 'DesHacer' [en 'la

hoja' con este codigo] :\\

saludos,
Héctor.

Hola, Oscar !

... arregle unos errores ... Ahora quedo asi: ... Me funciona Perfectamente [...]

[si me permites...] dejame 'insistir' en las 'observaciones' 2 y 3 de mi mensaje anterior:

2.- al 'poner en cero' [If...Then... Cells(i, 11) = 0] PIERDES la 'acumulacion' EN la siguiente celda en 'K' <== :((
3.- ['insisto'... YA] no tienes la 'posibilidad' de 'DesHacer' [en 'la hoja' con este codigo] :\\

2.- 'prueba' BORRANDO [algunos] datos 'sumables' [rango 'completo'] entre las filas 6 y 31 [p.e.]
a) borra las celdas C9, E9, G9 e I9 => 'notaras' que la celda K9 'queda en cero' < b) [la siguiente vez que te 'muevas' de celda activa] la celda K10 tendra un 'acumulado anterior' de... =>CERO< por consiguiente, el acumulado 'siguiente' [K10 a K31] habra 'perdido' el acumulado de la celda K8 :((
3.- cada vez que 'actualizes' un dato [borrar o cambiar] NO PODRAS 'DESHACER' ['regresar' a su dato 'anterior']

¿comentas?
saludos.
Héctor.