Ali Mohamed Ali

بارك الله فيك استاذ مجدى وزادك الله من فضله

تفضل لجان الدور الثاني2.xlsx

بارك الله فيك وزادك الله من فضله ووسع الله فى رزقك

بارك الله فيك استاذ ابراهيم وجزاك الله كل خير

جرب هذا الرابط طالما انك لم تقم برفع ملف https://www.officena.net/ib/topic/70163-تصميم-برنامج-لبطاقات-دخول-الموظفين/

وعليكم السلام-يمكنك استخدام هذا الكود للحماية Sub ActiveSht_ProtectShapes() 'Aug 19, 2015 ActiveSheet.Unprotect Password:="123" For Each s In ActiveSheet.Shapes s.Locked = True Next ActiveSheet.Protect Password:="123" End Sub أما كود فك الحماية فهو Sub ActiveSht_UnProtectShapes() 'Aug 19, 2015 ActiveSheet.Unprotect Password:="123" For Each s In ActiveSheet.Shapes s.Locked = False Next End Sub Protect.xlsm

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

بارك الله فيك وزادك الله من فضله

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

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

السلام عليكم يمكنك استخدام هذه المعادلة لحساب السنوات =DATEDIF(B18,C18,"y") أما الشهور فهذه المعادلة =DATEDIF(B18,C18,"ym") وأخيرا لحساب فرق الأيام يمكنك استخدام هذه المعادلة =DATEDIF(B18,C18,"md")

بارك الله فيك وزادك الله من فضله استاذ سليم كود ممتاز

أحسنت استاذ مجدى عمل رائع بارك الله فيك

تفضل ghaleb1.xlsx

بارك الله فيك استاذ سليم وهذا يتم بمعادلة المصفوفة -فلابد من الضغط على Ctrl+Shift+Enter وليس Enter فقط كباقى المعادلات =IFERROR(INDEX($D:$D,SMALL(IF($A:$A=$G$5,IF($B:$B>=$H$5,IF($B:$B<=$H$6,ROW(B$6:B$7000)-ROW(B$6)+1))),ROWS($K$6:K6))),"") Book11.xlsx

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

تفضل لك ما طلبت بهذه المعادلة =IF(A2=A1,C1+1,1) تجربة.xlsx

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

وعليكم السلام-بعد اذن الأستاذ وجيه وهذا يكون بالتنسيقات الشرطية كما ترى بالصورة بارك الله فيك

وعليكم السلام-تفضل هذا هو الرابط الذى تم التعامل من قبل مع هذا الملف يمكنك تحميل الملف منه مرة اخرى وهو يعمل https://www.officena.net/ib/topic/92008-ماعرفت-كيف-احمي-ملفي-من-النسخ-وكيف-ينتحر/?tab=comments#comment-577543

بارك الله فيك استاذى الكريم وزادك الله من فضله ورحم الله والديك

بارك الله فيك استاذ مجدى وزادك الله من فضله

وعليكم السلام Total.xlsm

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

وذلك بهذا الكود Sub InsertPageBreaksByKeyphrase() Dim rangeSelection As Range Dim cellCurrent As Range Set rangeSelection = Application.Selection ActiveSheet.ResetAllPageBreaks For Each cellCurrent In rangeSelection If cellCurrent.Value = "رقم البطاقة التموينية" Then ActiveSheet.Rows(cellCurrent.Row + 1).PageBreak = _ xlPageBreakManual End If Next cellCurrent End Sub