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
هذا الكود هو المطلوب بالضبظ لكن اريد ان احفظة كماكرو لكى اربطه بزر الاضافة لان الكود ينفذ بمجرد الخروج من الخلية واريد تنفيذة فقط بالضغط على زر الاضافه
لكن فى المجمل اشكر ك بشدة ويكتبة فى ميزان حسناتكم