السلام عليكم ...
أضغط على Alt+F11 ثم ضع الكود التالي في الورقة المطلوبة :
Private Sub Worksheet_Change(ByVal Target As Range)
If (Target.Column = 1 Or Target.Column = 2) And Me.Cells(Target.Row, 2) = True Then
Me.Cells(Target.Row, 3).Value = Me.Cells(Target.Row, 3).Value + Me.Cells(Target.Row, 1).Value
End If
End Sub
SUMVALUE.rar