Private Sub Worksheet_Change(ByVal Target As Range)
Dim ADR
Dim ws: Set ws = Sheets("Sheet2")
ADR = Range("e3")
If Not Intersect(Target, Range("c3")) Is Nothing Then
If Target > 0 Then
Sheets("Sheet2").Range(ADR).Offset(1, 1) = Val(Sheets("Sheet2").Range(ADR).Offset(1, 1)) + Target
Target = ""
End If
ElseIf Not Intersect(Target, Range("d3")) Is Nothing Then
If Target > 0 Then
Sheets("Sheet2").Range(ADR).Offset(1, 2) = Val(Sheets("Sheet2").Range(ADR).Offset(1, 2)) + Target
Target = ""
End If
End If
 End Sub
	هذا الكود هو المطلوب بالضبظ لكن اريد ان احفظة كماكرو لكى اربطه بزر الاضافة لان الكود ينفذ بمجرد الخروج من الخلية واريد تنفيذة فقط بالضغط على زر الاضافه
 
	لكن فى المجمل اشكر ك بشدة ويكتبة فى ميزان حسناتكم