بحاجة للمساعدة في هذا الكود

[Ashraf Ehab]

السلام عليكم ورحمه الله ..عندي طلب معقد شوية 

أنا بستخدم اكواد ال VBA في الاكسيل بحاول اعمل في حالة إضافة فاتورة شراء إذا كان اسم الصنف المضاف في الفاتورة مطابق لاسم الصنف الموجود في الأصناف يقوم بجمع الكمية الموجودة في الأصناف مع الكمية الجديدة ويكون الإجمالي في الأصناف 

 

للتوضيح 

أنا عاوز اول ما اضغط علي إضافة في المشتريات هيضيف البيانات عادي في شيت المشتريات بس عاوزه اول ما يضيف الصنف في حالة اسم الصنف أو  كود الصنف موجود في شيت الأصناف الي اسمه items Sheet يقوم بالذهاب الي خلية الكمية ويضيف كمية المشتريات علي كمية الاصناف الموجودة بالفعل طبعا لو عرفت اعمل كود الاضافة في المشتريات سهل اعمل العكس في المبيعات وشكرا

dwork.xlsm

[tornado_3100]

جرب كدا

في حالة وجود كود الصنف يضيف الكمية 

dwork.xlsm

[Ashraf Ehab]

طبعا في البداية شكرا علي مجهودك حضرتك الكود عمل الي أنا عاوزه في حالة واحدة ومستمر عليها الي كنت عاوزه كالتالي 

في حالة إضافة البيانات الخاصة بالشراء تضاف في شيت المشتريات اولا وبعد ما يضاف يشوف الي إضافة ده اسمه او الكود الخاص به موجود في الأصناف ولا لا في حالة وجوده نجمع الكمية الي في المشتريات مع الكمية الي في الأصناف في حالة عدم وجود الصنف نضيفه او نرحل من بداية اسم الصنف حتي الاخر شكرا لتعب حضرتك 

[Ashraf Ehab]

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

    Y = purchasesSheet.Cells(c.Row, "G").Value
            Y = Y + x
purchasesSheet.Cells(ap, "A").Value = Me.TextBox1.Value
purchasesSheet.Cells(ap, "B").Value = CDate(TextBox2.Value)
purchasesSheet.Cells(ap, "C").Value = Me.TextBox3.Value
purchasesSheet.Cells(ap, "D").Value = Me.TextBox4.Value
purchasesSheet.Cells(ap, "E").Value = Me.TextBox5.Value
purchasesSheet.Cells(ap, "F").Value = Me.TextBox6.Value
purchasesSheet.Cells(ap, "G").Value = Me.TextBox7.Value
purchasesSheet.Cells(ap, "H").Value = Me.TextBox8.Value
purchasesSheet.Cells(ap, "I").Value = Me.TextBox9.Value
purchasesSheet.Cells(ap, "J").Value = Me.TextBox10.Value
purchasesSheet.Cells(ap, "K").Value = Me.TextBox11.Value
purchasesSheet.Cells(ap, "L").Value = Me.TextBox12.Value
purchasesSheet.Cells(ap, "M").Value = Me.TextBox13.Value
purchasesSheet.Cells(ap, "N").Value = Me.TextBox14.Value
ItemsSheet.Cells(c.Row, "D").Value = Y 'Me.TextBox7.Value

ItemsSheet.Cells(c.Row, "D").Value = Y 'Me.TextBox7.Value 

كان لازم تضاف علشان تعمل المعادلة في شيت الاصناف ..شكرا لحضرتك مرة اخري علي مجهودك

 

[Ashraf Ehab]

السلام عليكم ورحمة الله وبركاته

 المشكلة عندي كما موضحها في الصورة

زي ما انا موضح بضيف الكمية طيعي بكتب سعر الشراء طبيعي بيجيب في المتبقي حاصل ضرب الكمية في سعر الشراء المفروض اما اكتب قيمة في المدفوع يطرحها من المتبقي وبعد كله يبقي صحيح اضغط علي اضافة في القائمة يقوم باضافة البيانات في الليس بوكس فقط واما اضغط اضافة يرحل البيانات الي في الليست بوكس في الشيت 

اسف علي المطاولة

dwork.xlsm

[Ali Mohamed Ali]

وذلك بسببك لأنك لاغى ذلك بالكود وذلك بالأسطر الموجودة باللون الأخضر فعليك بحذف الفاصلة العليا على يسار كلمة Me من جميع الأسطر ليصبح الكود كالتالى :

Me.ListBox1.AddItem Me.TextBox4.Value
Me.ListBox1.List(al, 1) = Me.TextBox5.Value
Me.ListBox1.List(al, 2) = Me.TextBox6.Value
Me.ListBox1.List(al, 3) = Me.TextBox7.Value
Me.ListBox1.List(al, 4) = Me.TextBox8.Value
Me.ListBox1.List(al, 5) = Me.TextBox9.Value
Me.ListBox1.List(al, 6) = Me.TextBox10.Value
Me.ListBox1.List(al, 7) = Me.TextBox11.Value
Me.ListBox1.List(al, 8) = Me.TextBox12.Value
Me.ListBox1.List(al, 9) = Me.TextBox13.Value

1dwork.xlsm

[Ashraf Ehab]

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