كود صغير جدا و لكن مفيد جدا_كود جمع و ترصيد تراكمى لخلية

[جلال الجمال_ابو أدهم]

تم رفع هذا الكود فى مشاركة منفصله

حتى لا ننسى هذه المشاركة 

 

مرفق الملف مشاركة من الفاضل / عبدالله باقشير

 

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

 

و لا تنسونا من صالح الدعاء

تحياتى