سؤال حول التصفية المتقدمة

[Ahmed Emannan]

السلام عليكم

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

وكذلك نفدت العملية المرسلة منك في ملفك المرفق في هذه المشاركة

رابط

ولكن دون فائدة عندما اقوم بتنفيد الكودين في ملف اخر نامل المساعدة

_______________________.rar

تم تعديل يونيو 20, 2009 بواسطه خبور خير

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

السلام عليكم

في المرفق كودين يقوما بالتصفية

الاول : يشير الى الورقة المنقول اليها البيانات بالكود نيم(Codename)

ورقة1

Sub GetRecords()
    Range("Database").AdvancedFilter Action:=xlFilterCopy _
    , CriteriaRange:=ورقة1.Range("G1:G2") _
    , CopyToRange:=ورقة1.Range("A4:E4"), Unique:=False
End Sub

الثاني: يشير الى الورقة المنقول اليها البيانات باسم الورقة(name)

Sheets("ورقة2")

Sub GetRecords_1()
    Range("Database").AdvancedFilter Action:=xlFilterCopy _
    , CriteriaRange:=Sheets("ورقة2").Range("G1:G2") _
    , CopyToRange:=Sheets("ورقة2").Range("A4:E4"), Unique:=False
End Sub

وايضا اسم عمود المعيار لازم يؤخذ من اسماء اعمدة البيانات

تاريخ الميلاد

_______________________.rar

تم تعديل يونيو 20, 2009 بواسطه خبور خير

[Ahmed Emannan]

مشكور اخي خبور وبارك الله فيك وجزاك الله خيرا

جربت الطريقتين في ملف اخر ونجحت العملية تمام

تحياتي اليك اخي الغالي

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

تم تعديل يونيو 20, 2009 بواسطه DVB Software

[سمير نجار]

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

بارك الله فيك استاذي الكريم خبور خير

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

كنت قد قرأت هذا الموضوع من يومين

والان و منذ ساعتين وان ابحث عنه وظننت ان الموضوع قد حذف

لكن الحمد لله وجدته اخيرا"

السلام عليكم

[زياد علي]

اخونا الكبير خبور خير

السلام عليكم

ربي ما يحرمنا منك

وهذه الاسهامات تدل على شخصية عبقرية فذة

فعلاً دكتوراه في الاكسل

ان شاء الله ربي يمتعك بصحتك وعافيتك

ولا يحرمنا من علمك