Respuesta
en
Microsoft Excel
a
Repetí macro ya creada...
Private Sub Worksheet_Change(ByVal Target As Range) 'Por.Pirataibero If Not Intersect(Target, Range("J:J")) Is Nothing Then Application.EnableEvents = False If Cells(Target.Row, "D") < 0 Then Cells(Target.Row, "C") = Cells(Target.Row, "C") +...