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

الأخ الفاضل محمد فريد تفضل الملف المرفق >> ولا تنسى أن تختار المشاركة كأفضل إجابة إذا أعجبك الحل Sub Test() Range("I10") = Evaluate("=IF(COUNTIFS(A13:A51,"">=""&$D$3,A13:A51,""<"" & $E$3,C13:C51,$E$5)>0,IF($D$5=""آخر إذن"",MAX(IF(A13:A51>=$D$3,IF(A13:A51<$E$3,IF(C13:C51=$E$5,A13:A51)))),MIN(IF(A13:A51>=$D$3,IF(A13:A51<$E$3,IF(C13:C51=$E$5,A13:A51))))),""لا يوجد"")") End Sub تقبل تحياتي Formula Array.rar

أخي وحبيبي في الله ..الغائب عن العين الحاضر في القلب ..أبو أسامة (أسد الإكسيل ) أخيراً عاد الأسد لعرينه ..فهنيئاً لنا ثم هنيئاً لنا ثم هنيئاً لنا بعودتك ونرجو من الله أن يديم عليك الصحة والعافية ... تلميذكم أبو البراء

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

تسلم أخي الحبيب خزاني ..كود سهل وممتاز وعملي.. بارك الله فيك

فيما يخص المشاركة رقم 3 ..ممكن تخلي تنسيق ملف الأكسس على 2007 لأنه يعطيني رسالة مفاداها أن الملف تم إنشاؤه على إصدار أحدث فين ردك

تفضل أخي صلاح http://www.officena.net/ib/index.php?showtopic=59497#entry381412

الملف في المشاركة رقم 8 يعمل الآن .. بارك الله فيك أخي الغالي سليم وجزيت خير الجزاء

الأخ الحبيب حسام الأخ الحبيب خالد الشاعر الأخ الغالي عمرو طلبة بارك الله فيكم ومشكور مروركم الكريم وفي انتظار إبداعاتكم إخواني الكرام

توصلت للطريقة بحمد الله وإن شاء الله ليلاً سأقوم بعمل فيديو لمن يهمه الأمر ..انتظرونا .. تقبلوا تحياتي

بارك الله فيك أخي الحبيب خالد جميل جدا .. ممكن طريقة عمل هذا الريبون؟

الأخ الفاضل mazh يرجى اختيار المشاركة رقم 3 الخاصة بالأخ الحبيب سليم كأفضل إجابة ..حتى يظهر الموضوع مجاب. http://www.officena.net/ib/index.php?s=d35cd3c81cab42189452001a0412fe10&showtopic=60147

http://www.officena.net/ib/index.php?s=d35cd3c81cab42189452001a0412fe10&showtopic=60147

والله نفس المشكلة ..نننتظر باقي ردود الأعضاء يمكن تكون المشكلة من عندي أنا أستخدم أوفيس 2007 .. في انتظار مستخدمي 2007 على الخصوص ..حتى نتأكد من عمل الملف .. تقبل تحياتي

بسم الله ما شاء الله عليك يا بن عليه ..متمكن . إنك لرائع

الأخ الحبيب ياسر فتحي الأخ الغالي الشهابي بارك الله فيكما ومشكور على مروركما الكريم وكلماتكم الرقيقة ..جزيتم خيراً

الأخ الحبيب خزاني ممكن ترفق ملف بالكود الذي تفضلت به ..

أعتقد أن الموضوع بسيط استخدم الكود بهذا الشكل بالنسبة لزر الأمر اللي على اليمين المسمى ButtonSerach1 Private Sub ButtonSerach1_Click() TextBox1 = "" End Sub وفي الكود الخاص باستهلال الفورم Private Sub UserForm_Initialize() أضف هذا السطر في آخر الكود ButtonSerach1.Caption = "مسح" End Sub

الأخ الحبيب سليم الملف لا يحتوي على قوائم منسدلة ..!! في العمود C من المفترض كما وضحت أن هناك قوائم منسدلة لكن لم يظهر عندي أي قوائم على الإطلاق

الأخ الكريم محمود يونس مرحبا بك بين إخوانك .. ومشكور على كلماتك الرقيقة .. بالنسبة لهذا الموضوع ..هو موضوع متشعب وأسبابه كثيرة جداً لذا يرجى ضغط الملف ورفعه على أحد مواقع الرفع وإدراج الرابط للإطلاع عليه ومحاولة إفادتك بسبب حجم الملف الهائل ..

بارك الله فيك أبا الحسن والحسين لإثراء الموضوع ..إليك أخي الفاضل محمد الخازمي رابط الإصدار الأخير من مكتبة الصرح http://www.officena.net/ib/index.php?showtopic=57935&page=10#entry373606 في صندوق البحث اكتب كلمة [التحكم] ثم اضغط بحث لتجد مجموعة أكواد تخص طلبك وزيادة تقبلوا تحياتي

مشكور أخي الفاضل مصطفى أبو ملك ملف قمة في الروعة بارك الله فيك ... فيما يخص المشاركة رقم 3 ..ممكن تخلي تنسيق ملف الأكسس على 2007 لأنه يعطيني رسالة مفاداها أن الملف تم إنشاؤه على إصدار أحدث

يرجى توضيح المطلوب ...ما هي معايير الترقيم في الملف ..؟

الأخ الفاضل أبو حنين سيكون التعامل مع 2015 فقط ..إذا أردت أن يكون التعامل مع أي سنة يمكنك وضع السنة في خلية والإشارة إليها من خلال المعادلة وهذا أفضل جرب الملف المرفق Conditional Formatting For Saturday.rar

السلام عليكم ورحمة الله وبركاته إخواني الأعزاء .. أقدم لكم بعون الله كل ما هو جديد ومفيد في عالم الإكسيل .. الموضوع اليوم عن النطاقات المعرفة Defined Names .. نبدأ بكيفية عمل نطاق معرف .. نقوم بتحديد الخلايا ثم في صندوق الاسم على يسار شريط المعادلات ننقر بالماوس نقرة واحدة ونكتب اسم للنطاق الذي تم تحديده .. وللإطلاع على النطاقات المسماة يمكن الدخول إلى التبويب Formulas ثم انقر على Name Manager لتطلع على النطاقات المسماة بالفعل ، ويمكنك تعديل النطاق من خلال Name Manager .. كما يمكنك حذف أي نطاق مسمى (الحذف يكون لاسم النطاق وليس للنطاق نفسه) الجديد: هو كيفية إخفاء أسماء هذه النطاقات (واللي يحضر عفريت يعرف يصرفه) ، وبالتالي يوجد أيضاً إظهار النطاقات المسماة في الملف المرفق. بالملف المرفق تم تسمية نطاقين بأسماء MyData و MyRange .. قم بالإطلاع على Name Manager قبل أن تضغط زر الأمر Hide Defined Names ثم بعد النقر على الإخفاء قم بالإطلاع على النطاقات المسماة ، لن تجدها في Name Manager (واحد عنده أمل إنها تكون موجودة ففتح صندوق الاسم Name Box اللي على شمال شريط المعادلات ..انسى انسى يا عمرو) اختفت النطاقات المسماة وانتهى أمر وجودها .. لإرجاع النطاقات المسماة يتم النقر على زر الأمر Unhide Defined Names فيعود كل شيء لطبيعته .. أعتقد أن الموضوع قد يكون جيد لحماية المصنف من المتطفلين من الإطلاع على النطاقات المسماة أرجو أن يفيدكم الموضوع ، تقبلوا تحياتي Hide Unhide Defined Names.rar

ما هي باقي الشغلات ؟؟!! وضح المطلوب وفي أي ورقة عمل بالتفصيل ..