كود ترحيل مع الجمع بشروط

[رضا على]

اريد ان يرحل الخلايا الى الشيت الاخر مع الجمع لدلاله رقم السلعة والشرح الافضل فى الملف

كود للترحيل مع الجمع.xlsm

[حسين مامون]

جرب الادخال في c3   او  d3

بالنسبة للترحيل غدا ان شاء الله

كود للترحيل مع الجمع.xlsm

[رضا على]

شكرااااااا لاهتمامكم

بس عايز الاكواد تنفذ على زر الاضافه ويبقى شكرااااااا جداااااا

[حسين مامون]

السلام عليكم ...جرب المرفق

كود للترحيل مع الجمع.xlsm

[رضا على]

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

هذا الكود هو المطلوب بالضبظ لكن اريد ان احفظة كماكرو لكى اربطه بزر الاضافة لان الكود ينفذ بمجرد الخروج من الخلية واريد تنفيذة فقط بالضغط على زر الاضافه

لكن فى المجمل اشكر ك بشدة ويكتبة فى ميزان حسناتكم

[حسين مامون]

يمكن ذلك ولكن بانتشاء زر تعديل وليس اضافة

كود للترحيل مع الجمع.xlsm

[رضا على]

انتبه من فضلك مشاركة مكررة والا ستحذف جميع المشاركات

اضافة مخزون.xlsm