Suma incremental

hola, josearia !

... tal como lo has puesto me funciona ... el problema me viene a continuacion
... como hago para que el codigo ... lo pueda aplicar a lo siguiente:
... cuatro columnas [...] se introducen datos en,
A1 B1
A2 B2
A3 B3
A4 B4
que incrementan el valor de,
D1 E1
D2 E2
D3 E3
D4 E4

si entiendo bien... 'A' =>incrementa<= a 'D' y 'B' =>incrementa<= a 'E' [???]
prueba con...
Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, [a1:b4]) Is Nothing Then Exit Sub
With Target.Offset(, 3)
.Value = .Value + Target
End With
End Sub

saludos,
hector.

Hola Héctor:
Muchisimas Gracias, me has arreglado un problema bastante
grande que tenía.
Probé como comentaste, de hacerlo con macro y funcionaba
bien pero, tenía un problema, la macro había que añadirla
a la celda que se incrementa, y claro parto de que no me
deja corregir nada sobre dicha celda.
Sin embargo con código no me ha dado ningún problema.
Ahora voy a abusar de tu paciencia y saber y me gustaría
me dijeses lo siguiente.
Si yo quiero hacer esto mismo pero, solo con dos columnas:

a1 b1
a2 b2
a3 b3
a4 b4

y que [b] se incremente con lo introducido en [a], pero
que no afecte a ninguna columna.
Como lo harías?, cuando me contestes te diré el porqué te
he escrito lo de que: "no afecte a ninguna otra columna".

Lo dicho ¡Gracias!

Un saludo.

Josearia

hola, josearia !

... tal como lo has puesto me funciona ... el problema

me viene a continuacion

... como hago para que el codigo ... lo pueda aplicar a

lo siguiente:

... cuatro columnas [...] se introducen datos en,
A1 B1
A2 B2
A3 B3
A4 B4
que incrementan el valor de,
D1 E1
D2 E2
D3 E3
D4 E4

si entiendo bien... 'A' =>incrementa<= a 'D' y 'B'

=>incrementa<= a 'E' [???]

prueba con...
Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, [a1:b4]) Is Nothing Then Exit Sub
With Target.Offset(, 3)
.Value = .Value + Target
End With
End Sub

saludos,
hector.
.

hola, josearia !

Probe ... con macro y funcionaba ... pero tenia un problema
la macro habia que añadirla a la celda que se incrementa
y ... no me deja corregir nada sobre dicha celda.

supongo que hablas de las 'macrosheets' de excel 4 [???]
[generalmente] las 'sugerencias' y propuestas que aqui se hacen...
son [como] un 'punto de partida' encaminadas a [tratar de] 'solucionar' las consultas planteadas
es frecuente que las necesidades 'reales' se hubieran 'quedado en el tintero' [o aparezcan nuevas]
me gustaria si pudieras ser mas 'claro y especifico' en cuanto a lo que [realmente] 'necesitas' ;)

Si yo quiero hacer esto mismo pero, solo con dos columnas:
a1 b1 a2 b2 a3 b3 a4 b4
y que [b] se incremente con lo introducido en [a], pero que no afecte a ninguna columna. Como lo harias?
cuando me contestes te dire el porque ... lo de que: "no afecte a ninguna otra columna".

'en principio' [y siguiendo con la misma 'tonica']... 'recortando el alcance' y la 'deteccion' de la/s celda/s 'modificable/s'...
Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, [a1:a4]) Is Nothing Then Exit Sub
With Target.Offset(, 1)
.Value = .Value + Target
End With
End Sub

si las necesidades 'reales' van 'mas alla' de lo 'planteado'... existen otras tantas y 'variadas' tecnicas [como]...
- usar una 'estructura' de codigo del tipo 'Select Case...End Select' o... 'If...ElseIf...End If' o... [...]
- 'detectar' el numero de fila/columna que de modifica 'Target.Row' / 'Target.Column'
- 'detectar' si 'Target' se refiere a una sola celda... o a un rango de celdas
- 'detectar' si el valor 'resultante' [o depositado] 'cumple' con unas 'ciertas expectativas o condiciones'
- etc. etc. etc.

¿comentas datos adicionales?
saludos,
hector.