بحث وترحيل ب AdvancedFilter

[hi-10]

لدي ملف اكسل به اسماء موظفين ومرشحين واريد ان يكون البحث في الاسم الاخير علما انني استخدمت طريقة البحث CTRL+F ولم اجد ما ابحث عنه من فضلكم محتاج مساعده

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

تم تعديل أبريل 17, 2008 بواسطه hi-10

[احمدزمان]

السلام عليكم

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

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

Range("input").AdvancedFilter Action:=xlFilterCopy, CriteriaRange:=Range( _
    "output"), CopyToRange:=Range("order"), Unique:=False
ويتم تمرر ثلاث نطاقات إلى هذا الكود ويجب إن تحتوى هذه النطاقات ضمنيا على السطر الأول ذو عناوين الحقول :
النطاق اول وهو نطاق قاعدة البيانات :
1 - يتم تسمية نطاق قاعد البيان بأسم (db)
( اذا لم تكن تعرف معنى تسمية النطاق يوجد بالمنتدى الكثير من المشاركات تشرح ذلك )
النطاق الثانى وهو نطاق الشروط :
2 - يتم تسمية نطاق الشروط بأسم (MyCri)
النطاق الثالث وهو نطاق استخراج البيانات :
3 - يتم تسمية نطاق استخراج البيانات بأسم (Des)
ومن المفروض عمل زر لتشغيل هذا الكود فى الورقة
ولكنى فضلت ان تتم الفلترة بمجرد ادخال اى شرط او زيادة عدد الشروط لأكثر من شرط واحد حتى تكون ذو تأثير مرئ جيد .
لعلى اكون قد وفقت فى الشرح

[hi-10]

اخي العزيز اشكرك كثيرا على تقديم المستعده ولكن اخي الحبيب كيف استخدم الكود هل افتح نوت باد ام ماذا شكرا لك اخي الحبيب

[احمدزمان]

السلام عليكم

اخي الكريم

مرفق مثال وبة الشرح في ورقة 2

_________.rar

[احمدزمان]

السلام عليكم

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

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

ملف وورد به شرح كامل مع الصور عن طريقة عمل صفحة بداية وعمل ماكرو و تحرير الماكرو و طريقة الحفظ بالماكرو وغير ذلك (للأستاذ القدير هادي سالم)

الملف الثاني ضروري جدا قرائته كاملا وسوف يغنيك عن الكثير من الأسئلة في الماكرو

مع التحية

saerch.rar