الدرس السادس من سلسلة الترحيل - الترحيل بعدة شروط باستخدام الفلترة المتقدمة

[عبدالله المجرب]

السلام عليكم 

معذرة على التاخير في رفع دروس جديدة ولكن ان شاء الله كلما تيسر الوقت ساضيف درس جديد

والان اترككم مع الدرس وان شاء الله تعم الفائدة

 

 

[مختار حسين محمود]

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

[mohmed1964]

ممتاز فكرة بسيطة وعملية بارك الله فيك وجعله في ميزان حسناتك

 

اين الشيت موضوع الفيديو من فضلك

 

[ابو الياس نبيل جمعان]

ما شاء الله عمل رائع وشرح واضح ومجهود مشكور عليه استاذنا الغالي

وجزاك الله عنا خير الجزاء

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

بارك الله فيك أخي الغالي عبد الله المجرب على هذا الدرس التعليمي الرائع والمفيد للجميع

وفقك الله لما يحب ويرضى ، وكل عام وأنت بخير

[جلال الجمال_ابو ادهم]

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

و عوده حميده

[ناصر سعيد]

بارك الله فيك أخي الغالي عبد الله المجرب على هذا الشرح الرااائع

[عبدالله المجرب]

اشكر للجميع مرورهم الكريم

[تحيا مصر]

انا استخدم  اوفيس 2007    ويعطينى خطأ          فى السطر  

 

Sheets("Mydata").Range("Bِ1:F32").AdvancedFilter xlFilterCopy, myrange1, myrange2

 

شكرا لكم على هذا التعليم الممتاز
 

 

ترحيل متقدم.rar

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

أخي الكريم

فك الضغط عن ملفك ثم ضع الكود التالي في الموديول

Sub trheel()
    Set myrange1 = Sheets("Myserch").Range("A1:D2")
    Set myrange2 = Sheets("Myserch").Range("B5:F5")

    Sheets("Mydata").Range("B1:F32").AdvancedFilter xlFilterCopy, myrange1, myrange2

    Set myrange1 = Nothing
    Set myrange2 = Nothing
End Sub

في ورقة البحث اكتب في الخلية C5 النص "الرقم الوظيفى" وليس الرقم فقط ، لابد من تطابق أسماء الحقول

ثم نفذ الكود

 

[تحيا مصر]

انا استخدم  اوفيس 2007    ويعطينى خطأ          فى السطر  

 

Sheets("Mydata").Range("Bِ1:F32").AdvancedFilter xlFilterCopy, myrange1, myrange2

 

شكرا لكم على هذا التعليم الممتاز
 

 

تم التنفيذ اخى ياسر      وتحيا ياسر  وتحيا مصر

[ابن بنها]

شكرا على الشرح ولكنه كان سيزداد حسنا لو تم ارفاق ملف 2003

[ابن بنها]

هذا مرفق 2003

ارجو ان تضعوا رسائل التنبيه به

 

فلتـــــــــره.rar

[ابو حمادة]

في ١٦‏/٩‏/٢٠١٦ at 00:08, عبدالله المجرب said:

السلام عليكم 

معذرة على التاخير في رفع دروس جديدة ولكن ان شاء الله كلما تيسر الوقت ساضيف درس جديد

والان اترككم مع الدرس وان شاء الله تعم الفائدة

 

 

بصراحة شرح مميز جدا 

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

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

في عمود D