بحث عن بيان

[waffaa_qm]

لو سمحتم عندى شيت فى بيانات كتيره خالص خالص

عايزه ابحث عن بيان معين فيطلع لى فى شيت اخر هذا البيان وما يرتبط به من الصف

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

وشكرا

Book1.rar

[احمدزمان]

الحل موجود شرحة في ما يلي من شرح

حاولي ان تطبقية

واذا لم تستطيعي ذلك

ممكن نساعدك ونعملة

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

جزاه الله عنا جميعا خير الجزاء - وبدل سيئاته بالحسنات

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

الشرح :

الكود المستخدم :

كود

Range("db").AdvancedFilter Action:=xlFilterCopy, CriteriaRange:=Range( _

"MyCri"), CopyToRange:=Range("Des"), Unique:=False

ويتم تمرر ثلاث نطاقات الى هذا الكود ويجب ان تحتوى هذه النطاقات ضمنيا على السطر الاول ذو عناوين الحقول :

النطاق اول وهو نطاق قاعدة البيانات :

1 - يتم تسمية نطاق قاعد البيان بأسم (db)

( اذا لم تكن تعرف معنى تسمية النطاق يوجد بالمنتدى الكثير من المشاركات تشرح ذلك )

النطاق الثانى وهو نطاق الشروط :

2 - يتم تسمية نطاق الشروط بأسم (MyCri)

النطاق الثالث وهو نطاق استخراج البيانات :

3 - يتم تسمية نطاق استخراج البيانات بأسم (Des)

ومن المفروض عمل زر لتشغيل هذا الكود فى الورقة

ولكنى فضلت ان تتم الفلترة بمجرد ادخال اى شرط او زيادة عدد الشروط لأكثر من شرط واحد حتى تكون ذو تأثير مرئ جيد .

لعلى اكون قد وفقت فى الشرح

[waffaa_qm]

شكرا على الرد

بس ياريت مثال عملى وتوضيح اكثر

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

[عبدالله باقشير]

السلام عليكم

اضافة الى مشاركة لاخ / يعقوب جزاه الله الف خير

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

1 - عبر كود التصفية المتقدمة

2 - كود آخر

خبور خير

_____________.rar