Macro reeeeepetitiva
Hola a todos espero puedan darme una mano estoy desesperado para hacerlo.., esto es lo que necesito:
A B C
1 (ingreso nº) (resultado acumulativo)
2 (ingreso nº) (resultado acumulativo)
3 y así sucesivamente hacia abajo...
en una celda ej. (B1) pongo un valor =5 en la celda (C1) me tiene que dar =5; ahora vuelvo a ingresar otro valor ej. =2 (B1) y en (C1) me tiene que devolver el acumulado =7. Bien esto lo logre para una sola celda acá va la pequeña macro:
Private Sub Worksheet_Change(ByVal Target As Range)
If Not Target.Address = "$B$3" Then Exit Sub
ActiveSheet.Range("c3").Value = ActiveSheet.Range("c3").Value + ActiveSheet.Range("b3").Value
End Sub
Ahora lo que quiero lograr es que por cada una de las celdas(B1;B2..;) me de el resultado acumulado correspondiente a cada uno de esos ingresos( para ingreso en B1- resultado en C1; para ingreso en B2-resultado en C2.. Y así sucesivamente) muchas gracias a quien me pueda ayudar esto es muy necesario voy a estar eternamente agradecido a quien me pueda dar una solución..
A B C
1 (ingreso nº) (resultado acumulativo)
2 (ingreso nº) (resultado acumulativo)
3 y así sucesivamente hacia abajo...
en una celda ej. (B1) pongo un valor =5 en la celda (C1) me tiene que dar =5; ahora vuelvo a ingresar otro valor ej. =2 (B1) y en (C1) me tiene que devolver el acumulado =7. Bien esto lo logre para una sola celda acá va la pequeña macro:
Private Sub Worksheet_Change(ByVal Target As Range)
If Not Target.Address = "$B$3" Then Exit Sub
ActiveSheet.Range("c3").Value = ActiveSheet.Range("c3").Value + ActiveSheet.Range("b3").Value
End Sub
Ahora lo que quiero lograr es que por cada una de las celdas(B1;B2..;) me de el resultado acumulado correspondiente a cada uno de esos ingresos( para ingreso en B1- resultado en C1; para ingreso en B2-resultado en C2.. Y así sucesivamente) muchas gracias a quien me pueda ayudar esto es muy necesario voy a estar eternamente agradecido a quien me pueda dar una solución..
1 Respuesta
Respuesta de Elsa Matilde
1
Te dejo la rutina ajustada para un cierto rango, ajústalo a lo que corresponda:
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column <> 2 Then Exit Sub
Target.Offset(0, 1).Value = Target.Offset(0, 1).Value + Target.Value
End Sub
Aquí solo se controla si se trata de la col B, podrías acotar también las filas si te hiciera falta.
If target.column <> 2 or target.row > 100 then
Sdos
Elsa
PD) Todo lo que necesitas saber para programar en Excel, lo encontrarás aquí:
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column <> 2 Then Exit Sub
Target.Offset(0, 1).Value = Target.Offset(0, 1).Value + Target.Value
End Sub
Aquí solo se controla si se trata de la col B, podrías acotar también las filas si te hiciera falta.
If target.column <> 2 or target.row > 100 then
Sdos
Elsa
PD) Todo lo que necesitas saber para programar en Excel, lo encontrarás aquí:
