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

[أحمد مرجان]

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

هل يمكن عمل كود لفلترة مجموعة من الأرقام بورقة عمل دون عمل sheet.select أى عدم تحديد الشيت قبل الفلترة وانما عمل الفلترة من خلال شيت آخر دون الذهاب الى الشيت الذى به الأرقام؟؟؟

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

Book1.rar

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

أخي الكريم أحمد مرجان

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

لكن أعتقد أنه لابد من القيام بعملية الفلترة أن يتم تنشيط ورقة العمل أولاً

[أحمد مرجان]

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

أنا مش عايز أشوف عملية الفلترة تتم قدامى أنا عايزها تتم من غير ما ألاحظها، يعنى ممكن الكود ينقلنى للشيت2 بس بعد ما الفلترة تكون خلصت من غير ما يتم ملاحظتها

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

تم تعديل مايو 6, 2015 بواسطه أحمد مرجان

[أحمد مرجان]

UP

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

أخي الحبيب أحمد

جرب الكود التالي

Sub FilterGreaterThan5()
    Application.ScreenUpdating = False
        Sheet2.Activate
            With ActiveSheet
                .AutoFilterMode = False
                .Range("A1").AutoFilter Field:=1, Criteria1:=">5"
            End With
        Sheet1.Activate
    Application.ScreenUpdating = True
End Sub

تقبل تحياتي

[أحمد مرجان]

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

تم تعديل مايو 7, 2015 بواسطه أحمد مرجان

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

أخي الحبيب أحمد مرجان

الحمد لله ان تم المطلوب كما تريد

وبعدين قولي تعرف لينا دي منين (لينا يا مرجان !!)

[أحمد مرجان]

ههههههههههههه خلاص يا أستاذ ياسر جعلك الله ذخرا (لنا) ونفعنا بعلمك الوفير