mahmoud nasr alhasany

الف شكر ا / محمد هشام انه يعمل يوجد شئ اخر رجاء مساعدتى وهو ادراج التاريخ فى TextBox1 الخاص بمخزون الكود فأنة لايعمل عندما اقم بأختيار كود الصنف ثانيا واخيرا هل يمكن عمل ترتيب الاسماء المخازن فى sort in combobox1 وشكرا جزيلا لك sell-the-first-quantity- V6.xlsm

السلام عليكم ورحمة الله وبركاتة ا / محمد هشام يوجد شئ اخر رجاء مساعدتى فى اكماله اولا اريد ان اضيف فى الليست بوكس 2 القيمة السعرية للمنتج ثانيا اريد عند اختيار المخزن ثم اكود المنتج يظهر محتوى كود الصنف مع اسم الصنف والقيمة السعرية وهى اسم الصنف catetr السعر TextBox2 ثالثا واخيرا اريد عند اختيار مخزن معين فى ComboBox1 لايظهره فى هذا المخزن ComboBox2 وانما يظهر المخازن الاخرى فى ComboBox2 لعدم التعارض مع المخازن الاخرى وشكرا جزيلا لك sell-the-first-quantity- V4 .xlsm

أنه يعمل ولاكن وجد أن قيمة المخزون يعرضها فى Me.stocktr يعمل على اخر سطر فى الليست بوكس وليس على التاريخ الأدنى اريد ربط القيمة مع التاريخ الأدنى رجاء ممكن اضافة تانية وفى حالة إذا كانت القيمة صفر مع التاريخ الأدنى يقوم بتحويل إلى التاريخ التالى كما موضح فى الصورتين

اقصد عند الفلترا بواسطة اسم المخزن وكود الصنف كما هو موضح فى الصورة يظهر خيارين فى الليست بوكس صلاحيتين مختلفة وقيمة مخزون مختلفة لهذا المخزن وكود الصنف اريد عند الاستعلام بعد اختيار كود الصنف يظهر الرصيد تلقائى للمخزون فى خانة التكست بوكس المسمى Me.stocktr على حسب ادنى تاريخ وليس مجموع القيمة المخزونية sell-the-first-quantity- V2.xlsm

الف شكر ا/ محمد هشام على المجهود الرائع

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

لو رايت الصورة المدرجة ستجدها تعرض كل الاصناف بصلاحيتها المختلفة فى المخزن فى الليست بوكس 2 المطلوب عند اختيار كود الصنف كمثال102 يعرض فقط فى الليست بوكس2 اصناف 102 بكل صلاحيتها والكمية لصرف الاقرب صلاحية لادراجها فى الليست بوكس 1 تم اتخلص من بعض الاكواد ليتم التركيز على الاكواد المطلوبة لمعرفة المشكلة ليتسنا بعض المبرمجين التركيز على هذبن الكودين المدرجين اعلاة Copy of sell-the-first-quantity-.xlsm

السلام عليكم ورحمة الله وبركاتة رجاء مساعدتى عندما اقوم بأختيار اسم المخزن يعرض كل الاصناف والاصناف المكررة بصلاحياتها المختلفة فى الليست بوكس 2 وهى خاصة باالمخزون ولاكن عندما اقوم بأختيار كود صنف معين من المفروض ان يعرض كل الصلاحيات المختلفة بهذا الصنف والغاء كل الاصناف فى الليست بوكس2 الخاصة بهذا المخزن ولاكن لايعمل ويكتفى فقط بعرض هذا الكود وذلك لخصم الكمية المتاحة للتاريخ الاقرب مع العلم يوجد كميات اخرى لهذا الصنف هذا هو الكود المفروض يعرض مايطلبه كود الصنف فقط Me.CB_Pièce If Me.ComboBox1.ListIndex = 0 Or Me.CB_Pièce.ListIndex = 0 _ Or FlgExit = True Then Exit Sub Call Charge_ListBox ' Copy of sell-the-first-quantity-.xlsm

بارك الله فيك ا/ حسونة حسين جعل الله فى ميزان حسناتك

تفضل اخى / حسونة حسين Private Sub CommandButton2_Click() sell-the-first-quantity-the-oldest-production-expiration-date2-vnob(1).xlsm

وعليكم السلام ورحمة الله وبركاته اخى / حسونة حسين اشكرك على الرد والاهتمام لقد جربت الكود لاكنه عندما تكون الخلية صفر يقوم بحزف الخلية علما ان المخزن غير مكرر اريد ان يقوم بحذفها عندما تكون الخلية صفر فى حالة لو كان المخزن مكرر مع كود المنتج التابع لها لابد ان يتوافر لها ثلاثة شروط كود المنتج والمخزن والقيمة صفر عندما تكون مكرره اما لو كان المنتج والمخزن صفر وغير مكرر لايقوم بحزفها A - 100 مخزن - E قيمة - D

لقد فعلت ذلك وجدت انه يحذف المكرر والغير مكرر فى حالة الرصيد اصبح صفر لوافترضنا ان يوجد كود المنتج 100 والمخزن هو مخزن رئيسى ورصيد المخزون 149 وايضا كود المنتج 100 والمخزن هو مخزن رئيسى ورصيد المخزون 10 عندما يصقر الرصيد 10 الى صفر يقوم بحزفها لوافترضنا ان ايضا كود المنتج 100 والمخزن هو مخزن رئيسى ورصيد المخزون 149 اصبح صفر كدة مافيش كود 100 ولا مخزن رئيسى فى ورقة العمل صح كده لا لو ان اصبح صفر فلا يقوم بحزفها لان المخزن غير مكرر مع كود المنتج وهذا هو المطلوب

اقصد اسم المخزن غير مكرر فى بيانات الشيت "STOCK" اريد ان اقوم بدمجها مع الخلية 5 وهى اسم المخزن ولاكن اذا كان اسم المخزن غير مكرر فى بيانات الشيت "STOCK" فلا يقوم بالحذف وذلك يرجع عندما اقوم باختيارها من combobox1 وشكرا جزيلا كمثال انظر الصورتين A- 100 مخزن رئيسى D-149 -E A- 100 مخزن رئيسى D- 0 -E A- 100 مخزن رئيسى D- 19 -E

Dim dat, dat_bon As Date Dim X As Integer Dim v As Integer Dim Uf As Integer Dim i As Long Dim J As Long Set fa = Sheets("Stock") With Feuil1 Uf = fa.Range("A" & Rows.Count).End(xlUp).Row For i = 0 To ListBox1.ListCount - 1 For J = 2 To Uf If .Cells(J, 1) = Val(ListBox1.List(i, 0)) And .Cells(J, 5) = ComboBox1 Then If Me.OptionButton1 = True Or Me.OptionButton2 = True Then dat_bon = .Cells(J, 9) If dat_bon < dat Then dat_bon = dat End If End If End If Next J Next i For i = 0 To ListBox1.ListCount - 1 For J = 2 To Uf If .Cells(J, 1) = Val(ListBox1.List(i, 0)) And .Cells(J, 5) = ComboBox1 And .Cells(J, 9) = dat_bon Then If Me.OptionButton1 = True Then .Cells(J, 4) = .Cells(J, 4) + Val(ListBox1.List(i, 3)) .Cells(J, 6) = .Cells(J, 6) - Val(ListBox1.List(i, 3)) If (Cells(J, 4).value) = 0 Then Cells(J, 4).EntireRow.Delete End If ElseIf Me.OptionButton2 = True Then .Cells(J, 4) = .Cells(J, 4) - Val(ListBox1.List(i, 3)) .Cells(J, 7) = .Cells(J, 7) + Val(ListBox1.List(i, 3)) If (Cells(J, 4).value) = 0 Then Cells(J, 4).EntireRow.Delete End If End If End If Next J Next i End With السلام عليكم ورحمة الله وبركاتة ممكن ان تساعدونى هذا الكود يقوم بحذف الخلية 4 كاملة اذا كانت تحتوى الخلية على رقم صفر ولاكن اريد ان اقوم بدمجها مع الخلية 5 وهى اسم المخزن ولاكن اذا كان اسم المخزن غير مكرر فلا يقوم بالحذف وذلك يرجع عندما اقوم باختيارها من combobox1 وشكرا جزيلا

الرجاء مساعدتى انى عالق فى هذا الموضوع وشكرا عندما أقوم باختيار اسم المخزن وكود المنتج، أريد أن تصل رصيد المخزن التابع لها إلى أدنى تاريخ نظرا لان التواريخ مختلفة A= CB_Pièce ( 100 ) E= ComboBox1 ( magasin ) D= STOCKER ( 149 & 10 ) i = Textbox1 date (01/01/2024 & 01/05/2024 ) يجب أن يتحقق الشرط الحد الأدنى للتاريخ والمخزون للمنتج والمخزن هكذا A= CB_Pièce ( 100 ) E= ComboBox1 ( magasin ) D= STOCKER ( 10 ) i = Textbox1 date (01/01/2024 ) شرط ان اختار كود المنتج واسم المخزن CB_Pièce ( 100 ,101,102,103...... ComboBox1 ( magasin ,magasin1,magasin2,magasin,..... عندما يصل حد الطلب إلى الصفر، فإنه ينتقل إلى الكمية الثانية ويكون التاريخ التالي 01/05/2024 ارجو قد وفقت فى إيضاح طلبى

السلام عليكم ورحمة الله وبركاتة الى عمالقة vba وأهل الخبرة وتفكيك الاكواد المستعصية ارجو مساعدتى فى عمل كود عبقرى منفرد وطبيعة عمل الكود يعود الى اكثر من مرجع 1 - اسم مخزن 2 -كود صنف 3- مخزون رصيد يرجع للمخزن التابع له 4 -صلاحية الانتهاء للصنف نظرا ان كود الصنف متكرر مع المخزن التابع لها فى الشيت مع كثرة الواردات ويرجع لصلاحية انتهاء الصنف المطلوب عند اختيار اسم المخزن وكود الصنف يظهر مخزون الصنف التابع للمخزن شرط اقدم تاريخ انتهاء صلاحية لهذا الصنف وعندما يكون الحد الأدنى للمخزون صفر، فإنه ينتقل إلى التاريخ التالي بكمية المخزون الأخيرة لهذا الصنف.التابع للمخزن المطلوب تحقيقة خلاصة العمل وهى عملية بيع المخزون لاقدم تاريخ وعندما يكون حد المخزون صفر ينتقل الى الصلاحية الذى يليه للمخزن والصنف معا وشكرا جزيلا لكم انى عالق وارجو ان تساعدونى حتى استفيد من خبراتكم فى مجال vba Copy of خصم كمية مخزون المخزن (بيع)حسب صلاحية الاقدم.xlsm

انى عالق الرجاء المساعدة رجاء مساعدتى فى السؤال التالى اريد عند خصم كمية منتج لمستودع معين حسب التاريخ الاقدم وبمجرد ان يصفر كمية هذا المنتج لهذا المستودع يتحول الى الكمية التالية على حسب التاريخ الاقدم او التالى لان فاتورة الشراء لهذا المنتجات بتختلف على حسب انتهاء الصلاحية لو وجد أن قيمة المخزون اريد عليها تعديل بحيث يظهر الرصيد الآخر بناء على الصلاحية الاقدم بمعنى أريد عند اختيار الكود 100 في هذا المنتج، يتم عرض أقدم تاريخ مخزون، وعندما يكون الحد الأدنى للمخزون صفر، فإنه ينتقل إلى التاريخ التالي بكمية المخزون الأخيرة لهذا العنصر.

Dim dat, dat_bon As Date Dim X As Integer Dim v As Integer Dim Uf As Integer Dim i As Long Dim J As Long Set fa = Sheets("Stock") With Feuil1 Uf = fa.Range("A" & Rows.Count).End(xlUp).Row For i = 0 To ListBox1.ListCount - 1 For J = 2 To Uf If .Cells(J, 1) = Val(ListBox1.List(i, 0)) And .Cells(J, 5) = ComboBox1 Then If Me.OptionButton1 = True Or Me.OptionButton2 = True Then dat_bon = .Cells(J, 9) If dat_bon < dat Then dat_bon = dat End If End If End If Next J Next i For i = 0 To ListBox1.ListCount - 1 For J = 2 To Uf If .Cells(J, 1) = Val(ListBox1.List(i, 0)) And .Cells(J, 5) = ComboBox1 And .Cells(J, 9) = dat_bon Then If Me.OptionButton1 = True Then .Cells(J, 4) = .Cells(J, 4) + Val(ListBox1.List(i, 3)) .Cells(J, 6) = .Cells(J, 6) - Val(ListBox1.List(i, 3)) ElseIf Me.OptionButton2 = True Then .Cells(J, 4) = .Cells(J, 4) - Val(ListBox1.List(i, 3)) .Cells(J, 7) = .Cells(J, 7) + Val(ListBox1.List(i, 3)) End If End If Next J Next i عقوا .Cells(J, 6) = .Cells(J, 6) - Val(ListBox1.List(i, 3)) بدل .Cells(J, 6) = .Cells(J, 6) - Val(ListBox1.List(i, 4)) تم حل خصم الكمية رجاء مساعدتى فى السؤال التالى اريد عند خصم كمية منتج لمستودع معين حسب التاريخ الاقدم وبمجرد ان يصفر كمية هذا المنتج لهذا المستودع يتحول الى الكمية التالية على حسب التاريخ الاقدم او التالى لان فاتورة الشراء لهذا المنتجات بتختلف على حسب انتهاء الصلاحية لو وجد أن قيمة المخزون اريد عليها تعديل بحيث يظهر الرصيد الآخر بناء على الصلاحية الاقدم

Dim dat, dat_bon As Date Dim X As Integer Dim v As Integer Dim Uf As Integer Dim i As Long Dim J As Long Set fa = Sheets("Stock") With Feuil1 Uf = fa.Range("A" & Rows.Count).End(xlUp).Row For i = 0 To ListBox1.ListCount - 1 For J = 2 To Uf If .Cells(J, 1) = Val(ListBox1.List(i, 0)) And .Cells(J, 5) = ComboBox1 Then If Me.OptionButton1 = True Or Me.OptionButton2 = True Then dat_bon = .Cells(J, 9) If dat_bon < dat Then dat_bon = dat End If End If End If Next J Next i For i = 0 To ListBox1.ListCount - 1 For J = 2 To Uf If .Cells(J, 1) = Val(ListBox1.List(i, 0)) And .Cells(J, 5) = ComboBox1 And .Cells(J, 9) = dat_bon Then If Me.OptionButton1 = True Then .Cells(J, 4) = .Cells(J, 4) + Val(ListBox1.List(i, 4)) .Cells(J, 6) = .Cells(J, 6) - Val(ListBox1.List(i, 4)) ElseIf Me.OptionButton2 = True Then .Cells(J, 4) = .Cells(J, 4) - Val(ListBox1.List(i, 4)) .Cells(J, 7) = .Cells(J, 7) + Val(ListBox1.List(i, 4)) End If End If Next J Next i الرجاء مساعدتى اريد عند خصم كمية منتج لمستودع معين حسب التاريخ الاقدم وبمجرد ان يصفر كمية هذا المنتج لهذا المستودع يتحول الى الكمية التالية على حسب التاريخ الاقدم او التالى لان فاتورة الشراء لهذا المنتجات بتختلف على حسب انتهاء الصلاحية الكود لايقوم بخصم الكمية المطروحة فى الليست بوكس كمثال رقم 3 او 4 او اى كمية اخصمها من المستودع على حسب التاريخ الاقدم ولاكن يقوم بنقص تلقائى مع كل عملية رقم 1 فى المخزون الخاص بالمستودع او المخزن ماالخطاء فى هذا الكود

عزرا لقد حاولت ومازلت احاول يبدوا ان الباسوورد معقد للغاية الذى ادرجتة فى الملف

صباح الخير، أرجو من أهل الخبرة مساعدتي في هذه المشكلة في برنامج مخازن وهو مقسم إلى قسمين: الأول: الاصناف الواردة لها تاريخ انتهاء صلاحية مختلف في كل فاتورة واردة نفس السلعة التي لها أكثر من تاريخ انتهاء صلاحية موجودة في المستودع أريد أن يتم خصم كل فاتورة مبيعات من أقرب تاريخ لانتهاء الصلاحية يظهر في المستودع إجمالي رقم الصنف والباقي من تاريخ انتهاء الصلاحية القديم وأرقام تاريخ انتهاء الصلاحية الجديدة. على أن لا يتم خصم أي كميات من الصلاحية الجديدة إلا بعد انتهاء لكميات الصلاحية القديمة. الجزء الثاني: أريد: إشعار على فاتورة المبيعات لأي صنف على وشك الانتهاء خلال 6 أشهر أو أقل، أن يظهر باللون الأحمر والرقم المتبقي وتاريخ الانتهاء، بحيث يكون أمام من يكتب فاتورة المبيعات كل الوقت حتى تنتهي صلاحية هذا العنصر ويختفي من هذا البيان. وجزاكم الله خيرا البيع بأولوية تاريخ الانتاج.xlsm

انا بأستطاعتى أن افك الباسورد الخاص بالشيت ولاكن عزرا لا استطيع الأ من خلال استأذان اعضاء مشرفى هذا الموقع

السلام عليكم ورحمة الله وبركاتة انه يعمل حقا ولاكن عندما تختار شيك بوكس اما Entree او Sortie ثم تكتب البيانات التي تريدها ثم تضغط علي ذر Ver la liste يجب تحدد على اى بيانات select DATA in listbox ثم تضغط علي الزر Valider لقد ارفقت تحديث ملف ضفيف لحين الانتهاء منه Gestion Stocks Magasin1(1).xlsm

احسنت ا/ حسونة حسين أنه يعمل شكرا جزيلا على هذا المجهود الرائع

الحمدلله والصلاه والسلام على رسول الله الحمدلله الذي تتم بنعمته الصالحات يقول رسول الله صلى الله عليه يأمرنا إذابالاستعانة بالصبر والصلاة في أمور الدنيا والدين، وكان النبي ﷺ إذا حزبه شيء فزع إلى الصلاة، فالصلاة من أعظم الأسباب على تيسير الأمور، وحل المشاكل والحمدلله صليه الفجر وربنا الهم للاجابه على هذا السؤال وتصفحت المواقع اذا لقيت بعض من المساعدات لكنها لاتفى بالمطلوب ولاكن كان لابد أن أعمل بها بعض التنقيحات على حسب احتياجاتى و ما أريده والمطلوب عليها فى ملفى والحمدلله تم بفضله وسأقوم برفع الملف عندما انتهى منه للاستفادة بها وشكرا على القائمين على هذا المنتدى وانى اعزرهم لعدم وجود وقت يسمح للاجابه على اسألتى واعتزر كثيرا انى اللححت وكررت المشاركات فى نفس هذا الموضوع وخاصة القأيم بهذا المنتدى ا/حسونة حسين ولاكن كان غصب عنى وشكرا لتفهمكم الامر