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

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

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

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

 

Private Sub Worksheet_Change(ByVal Target As Range)
Application.ScreenUpdating = True
Dim My_Value
If Target.Address = "$A$2" Then
Range("A2").Select
My_Value = ActiveCell.Value
Range("B2").Select
ActiveCell.FormulaR1C1 = ActiveCell.Value - My_Value
End If
End Sub

مرفق الملف مشاركة من الفاضل / أبو أنس حاجب

______________.rar

 

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

تحياتى

 

[أبوهديل]

الله يجزاك خير على هذا الجهد أخي جلال الجمال والله يجعله من ميزان حسناتك

تحياتي لشخصك الكريم