تم رفع هذا الكود فى مشاركة منفصله
حتى لا ننسى هذه المشاركة
مرفق الملف مشاركة من الفاضل / عبدالله باقشير
Private Sub Worksheet_Change(ByVal Target As Range)
On Error GoTo khboor
If Target.Column = 1 Then
Range("B" & Target.Row).Value = Range("B" & Target.Row).Value + Range("A" & Target.Row).Value
End If
khboor: Exit Sub
End Sub
مرفق الملف و الشرح
SSS.rar
و لا تنسونا من صالح الدعاء
تحياتى