Como sumar en una misma celda
Necesito sumar los distintos valores que voy introduciendo en una celda y el resultado se vaya acumulando en otra, lo pude realizar en una fila con una macro que encontré en este mismo foro es la siguiente:
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address(False, False) = "E2" Then
Application.EnableEvents = False
Target.Value = Target.Value + Range("D2").Value
Range("D2").Value = Target.Value
Application.EnableEvents = True
End If
End Sub
Ahora el problema que esto lo debo hacer en otras celdas de la misma hoja necesito saber como debo continuar la macro para lograrlo en otras celdas.
1 respuesta
H o l a : Te anexo un ejemplo para utilizar otras celdas
Private Sub Worksheet_Change(ByVal Target As Range)
'Por.Dante Amor
If Not Intersect(Target, Range("E2, H2, K2")) Is Nothing Then
Application.EnableEvents = False
Target.Value = Target.Value + Range("D" & Target.Row).Value
Range("D" & Target.Row).Value = Target.Value
Application.EnableEvents = True
End If
End SubSi son mucho más celdas o es toda una columna, por ejemplo para toda la columna E, podría ser así:
Private Sub Worksheet_Change(ByVal Target As Range)
'Por.Dante Amor
If Not Intersect(Target, Range("E:E")) Is Nothing Then
Application.EnableEvents = False
Target.Value = Target.Value + Range("D" & Target.Row).Value
Range("D" & Target.Row).Value = Target.Value
Application.EnableEvents = True
End If
End SubSi tienes dificultades para adaptar la macro, es conveniente que escribas cuáles celdas vas a modificar y en dónde quieres el resultado.
'S aludos. Dante Amor. Recuerda valorar la respuesta. G racias
