ibn_egypt

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

اخى الفاضل استخدم المعادلة التالية =IF(AND(K14="",K15=""),"حسن",0) مرفق الملف للتوضيح تحياتي حسن.rar

اخى الفاضل انا اللى متأسف لك لم انتبه انك عامل Line Break او Enter ما بين الكلمتين .. جرب المرفق ان شاء الله ستزبط معك تحياتي Book1.rar

اخى الفاضل طب ما ترفق الملف الذي تعمل عليه ووضح به المطلوب سيكون اسهل وافضل تحياتي

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

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

اخى الفاضل تفضل الملف المرفق لعله طلبك تحياتي Book1.rar

اخى الفاضل تم تعديل اسم الدالة فقط فأصبح الملف يعمل على اصدار 2010 ... اصبح اسمها IRG فقط وليست IRG08 .. مرفق الملف بعد التعديل تحياتي UpdateFunction.rar

ارفق الملف اللى انت شغال عليه .. يعنى افتح ملف جديد عندك وانشئ موديول جديد والصق به الكود وارفقه تحياتي

اخى الفاضل ازاى يعني لا يوجد كود، الكود لا يعمل من خلال زر أمر ... لكن بمجرد فتح الملف سيري ان كان تاريخ اليوم اكبر من التاريخ الذي حددته سيحذف بيانات الشيت .. غير ذلك يبقي الوضع كما هو عليه .... شاهد المرفق وعامة هذا هو الكود انشئ موديول جديد والصق به هذا الكود مع تغيير التاريخ للتاريخ الذي تريده Sub ClearSheet() Dim Ddate As Date Ddate = "28/02/2015" If Date > Ddate Then Sheet1.Cells.ClearContents End If End Sub وفي حدث فتح الملف الصق هذا السطر Private Sub Workbook_Open() ClearSheet End Sub تحياتي Code.rar

اخى الفاضل تفضل الملف المرفق لعله يفي بالمطلوب .. غير التاريخ بالكود للتاريخ الذي تريد حذف محتويات الشيت بعده تحياتي ClearAfterDate.rar

اخى الفاضل لا مشكلة في الكود .. المشكلة في تنسيقاتك الكثيرة وعدم توحيد التنسيقات الخطوط وعرض الأعمدة على كافة الشيتات .. تم التعديل، جرب المرفق تحياتي مشكلة.rar

اخى الفاضل الأدوات ليس لها علاقة بالملفات .. عامة شاهد المرفق وان شاء الله تزبط معاك تحياتي Show-Text.rar

اخى الفاضل اضغط Right-Click على صندوق الادوات ال ToolBox واختر Additional Controls ومن القائمة قم بوضع علامة صح بجانب Microsoft Forms 2.0 TextBox تحياتي

اخى الفاضل تفضل الملف المرفق به محاولة للحل في الاسم لا يشترط كاملا أى جزء منه .. لكن في رقم البطاقة ورقم الجنسية اذا أردت البحث عنهم لابد من كتابة الرقم كاملا حيث ان ما اعلمه ان التصفية في الاكسل للأرقام ليس بها خيار Contains ونتحايل عليها بتحويل الارقام الى نص واعتقد انك في غنى عن هذا تحياتي البحث على اساس الاسم والرقم.rar

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

اخى الفاضل بعد إذن اخوتى الكرام أ.محمد الريفي وأ.leprince2007 ولإثراء الموضوع مرفق حل آخر بالكود تحياتي LastOne-ByCode.rar

جرب المرفق السابق اخى الفاضل أولا تحياتي

اخى الفاضل انا اعمل على اصدار 2010 والكود السابق يعمل بشكل جيد جدا عليه .. عامة تم تغيير الكود بآخر لعله يلبي طلبك .. جرب واخبرنا بالنتيجة تحياتي Backup-Updated.rar

اخى الفاضل تكرم هنا وفي الكوفي شوب وفي اى مكان انت والغالى ابو فارس، تفضل الملف المرفق لعل به المطلوب .. برجاء بشيت البصمة ان تنتبه فقط للتواريخ حيث انها غير منسقة كتاريخ وهناك مسافة زائدة بعد السنة اى لابد ان تراعى تنسيق الخلايا كتاريخ بدون مسافات زائدة تحياتي OverTime.rar

اخى الفاضل لإثراء الموضوع وبعد إذن أخى الحبيب محمد الريفي مرفق الحل بالأكواد تحياتي Book1.rar

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

أخى الفاضل راجع هذا الموضوع للأستاذ القدير حمادة عمر طريقة عمل شاشة ( فورم ) ادخال وترحيل واستعلام وتعديل !! خطوة خطوة تحياتي

اخى الفاضل بنفس المعادلة بامكانك اضافة شرط آخر لتصبح كالتالي .. مرفق الملف للتوضيح =SUM(IF(FREQUENCY(IF($A$2:$A$1000=$E2,IF($B$2:$B$1000=$F2,MATCH($C$2:$C$1000,$C$2:$C$1000,0))),ROW($C$2:$C$1000)-ROW($C$2)+1),1)) تحياتي count2.rar

أخى الفاضل لا أفهم سببا لهذه المعادلة حيث انك ترمز للأيام الفعلية بعلامة X وتقوم بحساب عدد الأيام الفعلية باستخدام المعادلة =IFERROR(COUNTIF(F4:AJ4,"X"),"") لماذا لم تسير على نفس المنوال حيث انك ايضا ترمز لأيام الراحة بالرمز E فلماذا لا تستخدم المعادلة =IFERROR(COUNTIF(F4:AJ4,"E"),"") بدلا من معادلتك الطويلة هذه مرفق الملف للتوضيح .. حسب فهمي تحياتي المقاولين شهر3.rar