عملية جرد المخزن .الخبراء لو تكرمتم

[bosshk5]

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

ارجو منكم اخوتي ان تساعدوني من فضلكم في حل هذا المشكل..

عندي محل تجاري  السلع كلها ادخلها في المخزن بالرقم التسلسلي كما هو موضح في الجدول 1

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

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

وجزاكم الله كل خير

الملف في المرفقات

stock.rar

[بن علية حاجي]

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

جرب الملف المرفق لعل فيه ما تريد...

بن علية

 

stock.rar

[bosshk5]

شكرا اخي على التفاعل و المساعدة...

لكن اريد ان يتم حذف الارقام التسلسلية المباعة وابقاء الارقام التسلسلية التي لم تباع

وهنا تتم بكود برمجي بحيث يتم تصفية السلع حسب الارقام التسلسلية والكمية المباعة

شكرا اخي الحبيب

[bosshk5]

ارجو من الاخوة الكرام المساعدة

[ياسر خليل أبو البراء]

أخي الكريم هلا أرفقت بعض النتائج المتوقعة ليسهل الوصول لحل

فأنا أو غيري لا يفهم طبيعة عملك (تحدث بلغة الإكسيل) ، والأفضل إرفاق شكل النتائج المتوقعة

 

[bosshk5]

شكرا اخي الحبيب

تم التوضيح في المثال المرفق

وارجوا المساعدة 

stock.rar

[ياسر خليل أبو البراء]

أخي الكريم يرجى تغيير اسم الظهور للغة العربية

إليك الملف المرفق وقد تم وضع الجداول الثلاثة في ورقة عمل واحدة (جدول البيع - جدول المخزون - جدول الجرد المطلوب)

رابط الملف المرفق من هنا

[bosshk5]

لم افهم قصدك اخي الكريم...

وارجو المساعدة من فضلكم اخوتي الكرام ...

[ياسر خليل أبو البراء]

أخي الكريم هل قمت بتحميل المرفق من مشاركتي السابقة ..؟؟!!

[bosshk5]

نعم..ولم اجد فيه شيئ  اخي الحبيب

[ياسر خليل أبو البراء]

هذا رابط مباشر للتحميل

https://www.europeup.com/5q7zeqrxctlr.html

بعد تحميل الملف قم بفك ضغطه ثم افتح المصنف .. اضغط Alt + F8 وحدد اسم الماكرو المراد تنفيذه وهو Test ثم انقر Run للتنفيذ ..

[bosshk5]

شكرا اخي الحبيب..

بارك الله فيك وفي علمك واهلك

الا ان العملية صحيحة بالنسبة لبضاعة مصباح ...لا تعمل بالنسبة للبضائع الاخرى..

 

[ياسر خليل أبو البراء]

حاول توضح أكتر أين الخطأ في النتائج ؟ وضح الخطأ بالصور حيث أنني راجعت النتائج والنتائج صحيحة فيما يبدو لي

تأكد مرة أخرى أو ارفق صور توضح الخطأ

[bosshk5]

سيدي الكريم ارجوا ان تتحملني قليلا لاني لست بالخبير في الاكسل

ومنكم نتعلم..

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

مثلا  2123005601 هذا الرقم  التسلسلي عدد وحداته 10

فلو كان رقم تسلسلي لبضاعة ما اكبر من 10 لا يعمل .

وشكرا والف شكر

[ياسر خليل أبو البراء]

ممكن تضع بعض البيانات الأخرى والتي واجهت مشكلة فيها للإطلاع عليها ..

في انتظار ملف مرفق آخر ، ويفضل أن يكون على نفس الهيكلة حتى لا يتم التغيير الجذري في الكود

[bosshk5]

المثال في المرفق اخي الكريم

Stock YasserKhalil Officena2.rar

[شوقي ربيع]

مشاء الله عليك اخي ياسر تطور ملحوظ في استعمال الاكواد

اعجبتني طريقة استعمالك للمصفوفات

تحياتي

 

[bosshk5]

اخي ابو البراء لقد ارسلت اليك المثال

شكرا اخي الكريم

[ياسر خليل أبو البراء]

إن شاء الله غداً  أطلع على الملف لعمل اللازم إذا أمكنني ذلك وإذا تيسر لي الوقت

[bosshk5]

ان شاء الله

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

[bosshk5]

اخي 

ياسر خليل أبو البراء

هل من جديد من فضلك

[ياسر خليل أبو البراء]

9 دقائق مضت, bosshk5 said:

اخي 

ياسر خليل أبو البراء

هل من جديد من فضلك

أعتذر عن التأخر في الرد ، والوقت لا يسعني في الواقع لإتمام الأمر

لذا أرجو من الأخوة الكرام التدخل لإكمال الموضوع

[بن علية حاجي]

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

ما قدمته أخي الحبيب "ياسر خليل" يفوق كل تصور، جازاك الله خير ووفقك لكل خير... وقد حاولت أن أفهم عمل الكود ولكن دون جدوى... والشيء الوحيد الذي أعتقد أني فهمته هو أن الخلل في بعض النتائج الخاطئة سببه هو "تنسيق المتغيرات" المستعملة في الكود... لذا أقترح حذف السطرين التاليين من الكود (أو إلغاؤهما) وهما السطرين :

Option Explicit
و
Dim X, Y(), I&, J&, K, cl&, T&

والتعديل في الملف المرفق...

ملاحظة: تم إضافة "زر" RUN لتنفيذ الكود... ويبقى دائما الكود رائعا...

بن علية

Stock YasserKhalil Officena.rar

[bosshk5]

منذ ساعه, بن علية حاجي said:

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

ما قدمته أخي الحبيب "ياسر خليل" يفوق كل تصور، جازاك الله خير ووفقك لكل خير... وقد حاولت أن أفهم عمل الكود ولكن دون جدوى... والشيء الوحيد الذي أعتقد أني فهمته هو أن الخلل في بعض النتائج الخاطئة سببه هو "تنسيق المتغيرات" المستعملة في الكود... لذا أقترح حذف السطرين التاليين من الكود (أو إلغاؤهما) وهما السطرين :

Option Explicit
و
Dim X, Y(), I&, J&, K, cl&, T&

والتعديل في الملف المرفق...

ملاحظة: تم إضافة "زر" RUN لتنفيذ الكود... ويبقى دائما الكود رائعا...

بن علية

Stock YasserKhalil Officena.rar

ماشاء الله عليكم اساتذتنا الكرام...

الشكر كل الشكر اخي الكريم بن علية حاجي واخي الحبيب ياسر ابو البراء...

اسال الله ان  يبارك لكما في علمكما وصحتكما واهليكما...وان يفرج عنكم كل هم وغم

ويرزقكما واياكم الجنة ..

شكرا والف شكر.

[ياسر خليل أبو البراء]

بارك الله فيك أخي وحبيبي ومعلمي بن علية حاجي

جزيت خيراً على مشاركتك الرائعة التي حلت المشكلة ..

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

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

تقبل وافر تقديري واحترامي