mr_sky

kgb_elantro respondió: Esa macro que actualmente tienes remplazala por esta. Private Sub Worksheet_Change(ByVal Target As Range) If Target.Column = 2 Then Me.Cells(Target.Row, 3) = ActiveCell.Offset(-1, 1).Value + ActiveCell.Offset(-1, 0).Value End If End Sub

Elsa Matilde respondió: 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í...