عبدالله المجرب قام بنشر سبتمبر 16, 2016 مشاركة قام بنشر سبتمبر 16, 2016 السلام عليكم معذرة على التاخير في رفع دروس جديدة ولكن ان شاء الله كلما تيسر الوقت ساضيف درس جديد والان اترككم مع الدرس وان شاء الله تعم الفائدة 11 رابط هذا التعليق شارك More sharing options...
مختار حسين محمود قام بنشر سبتمبر 16, 2016 مشاركة قام بنشر سبتمبر 16, 2016 جزاك الله خيرا أستاذ عبدالله درس مفيد و عيد سعيد تحياتى 1 رابط هذا التعليق شارك More sharing options...
mohmed1964 قام بنشر سبتمبر 17, 2016 مشاركة قام بنشر سبتمبر 17, 2016 ممتاز فكرة بسيطة وعملية بارك الله فيك وجعله في ميزان حسناتك اين الشيت موضوع الفيديو من فضلك رابط هذا التعليق شارك More sharing options...
ابو الياس نبيل جمعان قام بنشر سبتمبر 17, 2016 مشاركة قام بنشر سبتمبر 17, 2016 ما شاء الله عمل رائع وشرح واضح ومجهود مشكور عليه استاذنا الغالي وجزاك الله عنا خير الجزاء رابط هذا التعليق شارك More sharing options...
ياسر خليل أبو البراء قام بنشر سبتمبر 17, 2016 مشاركة قام بنشر سبتمبر 17, 2016 بارك الله فيك أخي الغالي عبد الله المجرب على هذا الدرس التعليمي الرائع والمفيد للجميع وفقك الله لما يحب ويرضى ، وكل عام وأنت بخير رابط هذا التعليق شارك More sharing options...
جلال الجمال_ابو ادهم قام بنشر سبتمبر 17, 2016 مشاركة قام بنشر سبتمبر 17, 2016 جزاك الله خيرا و عوده حميده رابط هذا التعليق شارك More sharing options...
ناصر سعيد قام بنشر سبتمبر 17, 2016 مشاركة قام بنشر سبتمبر 17, 2016 بارك الله فيك أخي الغالي عبد الله المجرب على هذا الشرح الرااائع رابط هذا التعليق شارك More sharing options...
عبدالله المجرب قام بنشر سبتمبر 19, 2016 الكاتب مشاركة قام بنشر سبتمبر 19, 2016 اشكر للجميع مرورهم الكريم رابط هذا التعليق شارك More sharing options...
تحيا مصر قام بنشر سبتمبر 20, 2016 مشاركة قام بنشر سبتمبر 20, 2016 انا استخدم اوفيس 2007 ويعطينى خطأ فى السطر Sheets("Mydata").Range("Bِ1:F32").AdvancedFilter xlFilterCopy, myrange1, myrange2 شكرا لكم على هذا التعليم الممتاز ترحيل متقدم.rar رابط هذا التعليق شارك More sharing options...
ياسر خليل أبو البراء قام بنشر سبتمبر 20, 2016 مشاركة قام بنشر سبتمبر 20, 2016 أخي الكريم فك الضغط عن ملفك ثم ضع الكود التالي في الموديول 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 النص "الرقم الوظيفى" وليس الرقم فقط ، لابد من تطابق أسماء الحقول ثم نفذ الكود 1 رابط هذا التعليق شارك More sharing options...
تحيا مصر قام بنشر سبتمبر 21, 2016 مشاركة قام بنشر سبتمبر 21, 2016 انا استخدم اوفيس 2007 ويعطينى خطأ فى السطر Sheets("Mydata").Range("Bِ1:F32").AdvancedFilter xlFilterCopy, myrange1, myrange2 شكرا لكم على هذا التعليم الممتاز تم التنفيذ اخى ياسر وتحيا ياسر وتحيا مصر 1 رابط هذا التعليق شارك More sharing options...
ابن بنها قام بنشر سبتمبر 23, 2016 مشاركة قام بنشر سبتمبر 23, 2016 شكرا على الشرح ولكنه كان سيزداد حسنا لو تم ارفاق ملف 2003 رابط هذا التعليق شارك More sharing options...
ابن بنها قام بنشر سبتمبر 23, 2016 مشاركة قام بنشر سبتمبر 23, 2016 هذا مرفق 2003 ارجو ان تضعوا رسائل التنبيه به فلتـــــــــره.rar رابط هذا التعليق شارك More sharing options...
ابو حمادة قام بنشر أكتوبر 14, 2016 مشاركة قام بنشر أكتوبر 14, 2016 في ١٦/٩/٢٠١٦ at 00:08, عبدالله المجرب said: السلام عليكم معذرة على التاخير في رفع دروس جديدة ولكن ان شاء الله كلما تيسر الوقت ساضيف درس جديد والان اترككم مع الدرس وان شاء الله تعم الفائدة بصراحة شرح مميز جدا ليا طلب ينفع كود مشابه لهذا الكود بحيث يستدعي كل البيانات ماعدي بعض الكلمات ال اكتبها في النطاق بمعني عندي صفحة بها بيانات كثيره جدا اريد استدعائها بكود مشابه لهذا الشرح ولكن يوضع امر لاستبعاد كلمة حول او كلمة معلق في عمود D رابط هذا التعليق شارك More sharing options...
الردود الموصى بها
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.