طلب مساعدة في هذا الملف

[ابو بشار]

الاخوة الاعزاء

يوجد لدي مستودع لقطع الغيار استخدم فيه الادخال والاخراج فقط بدون اي تفاصيل اخرى بمعلوماتي البسيطة عملت النموذج المرفق .

سؤالي الى عباقرة المنتدى الاعزاء هل يصلح هذا النموذج لاجراء عملية البحث برقم الادخال او الاخراج واذا كان يصلح ما هي الطريقة

شاكرا" لكم سلفا"

قطع الغيار.rar

[احمدزمان]

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

سؤالي الى عباقرة المنتدى الاعزاء هل يصلح هذا النموذج لاجراء عملية البحث برقم الادخال او الاخراج واذا كان يصلح ما هي الطريقة

ان شاء الله نعم يصلح

الطريقة

نحدد خلية لنضع فيها الرقم المطلوب

نعمل كود vb يقوم بالتالي

يخفي كل الأعمدة

ويبحث في الصف الثاني الأعمدة المخفية

اذا كان الرقم مطابق لما كتبت يقوم باظهار العمود

وغير ذلك يذهب للعمود الي بعدة

ونفس الطريقة يمكن تطبيقها على التاريخ

مع التحية

[ابو بشار]

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

سؤالي الى عباقرة المنتدى الاعزاء هل يصلح هذا النموذج لاجراء عملية البحث برقم الادخال او الاخراج واذا كان يصلح ما هي الطريقة

ان شاء الله نعم يصلح

الطريقة

نحدد خلية لنضع فيها الرقم المطلوب

نعمل كود vb يقوم بالتالي

يخفي كل الأعمدة

ويبحث في الصف الثاني الأعمدة المخفية

اذا كان الرقم مطابق لما كتبت يقوم باظهار العمود

وغير ذلك يذهب للعمود الي بعدة

ونفس الطريقة يمكن تطبيقها على التاريخ

مع التحية

مشكور اخي احمد

[احمدزمان]

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

اخي الفاضل

في المرفق الحل بطريقتين

1 - في ورقة ادخال (2) ادخل في الخلايا ذات الأزرق الفاتح رقم الصنف او التاريخ المطلولب ثم اضغط ابدأ البحث تظهر الأعمدة المطلوبة

2 - في ورقة ادخال (1) بمجرد الإدخال وبدون ضغط الزر ادخل في الخلايا ذات الأزرق الفاتح رقم الصنف او التاريخ المطلولب تظهر الأعمدة المطلوبة

مع التحية

قطع الغيار.rar

[الـعيدروس]

السلام عليكم

جزاك الله خير استاذ احمد يعقوب

على الكود الجميل المختصر

وبالامكان إضافة جملة تعطيل الشاشة في أول الكود

ليخف عملية الإخفاء والإظهار

Application.ScreenUpdating = False

وهكذا الكود بعد الإضافة

Dim B, C

B = [b4]

C = [c4]

Application.ScreenUpdating = False

Range("E4:CF5").EntireColumn.Hidden = True

For CL = 5 To 88

If Cells(4, CL) = C Then Cells(4, CL).EntireColumn.Hidden = False

If Cells(5, CL) = B Then Cells(5, CL).EntireColumn.Hidden = False

Next

[احمدزمان]

وعليكم السلام

اشكرك اخي ابو نصار على مرورك الكريم

وملحوظة في مكنها 100×100

[ابو بشار]

السلام عليكم

كود جميل ورائع لكن ماذا لو اردت ان تكون نتيجة البحث مفلترة بحيث لا تظهر سوى الصفوف التي تتقاطع مع عمود البحث وتكون قيمتها اكبر من صفر ؟

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