Ali Mohamed Ali

وعليكم السلام-تفضل فرز حسب الحالة - نقص صف.xls

تفضل لك ما طلبت ,تم التعديل للطلبات الجديدة مستحقات 1.xlsx

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

تفضل لك ما طلبت كشف استهلاك المواد.xlsx

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

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

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

اهلا بك في المنتدى من فضلك ارفع ملف لما تريد وشرح المطلوب عليه بكل دقة فلا يمكن العمل على التخمين

السلام عليكم-ما قمت بعمله ليس مضبوط حسابيا فالمعادلة تعمل بشكل دقيق حيث ان : الشيكات المستحقة بعد 5 أيام اى يوم 13/07/2019 ,لا يوجد شيكات لهذا التاريخ والشيكات المستحقة بعد 10 أيام اى يوم 18/07/2019 ,لا يوجد شيكات لهذا التاريخ أما الشيكات المستحقة بعد 11 يوم فأكثر فهم ثلاثة شيكات وقيمة الشيكات كما أخبرتك في المعادلة سابقا 991778 عليك التأكد بنفسك ومراجعة ما تم عمله سابقا

أحسنت استاذ سليم معادلة ممتازة

تفضل تم الغاء الحماية نهائيا للتمكن من وضع كود التايمر وكود الحروف الكبيرة-واعتقد ايضا ان ملفك به فيروس timer.xlsm

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

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

معادلة ممتازة استاذى الكريم بارك الله فيك

وعليكم السلام -يمكنك استخدام هذا الكود لحذف جميع صفحات الملف الفارغة Sub RemoveBlankSheets_AllWorkbooks() Dim wb As Workbook Dim sht As Worksheet Application.ScreenUpdating = False Application.DisplayAlerts = False For Each wb In Application.Workbooks For Each sht In wb.Worksheets If WorksheetFunction.CountA(sht.Cells) = 0 And _ wb.Sheets.Count > 1 Then sht.Delete Next sht Next wb Application.DisplayAlerts = True Application.ScreenUpdating = True End Sub تفضل-فمثلا لو عندك بارتشن D عليك بعمل فولدر داخله وسميه Data او غير كما تشاء في الكود-تفضل وفى الخلية D3 يكون موجود اسم الملف Sub Test() Dim FP As String, FN As String FP = "D:\Data\" FN = Range("D3").Value ActiveWorkbook.SaveAs Filename:=FP & FN & ".xls" End Sub

وعليكم السلام ...... تفضل مستحقات.xlsx

وعليكم السلام-تفضل دمج جميع صفحات الملف فى صفحة واحدة.xlsm

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

وعليكم السلام تفضل لك ما طلبت بيان.xlsm

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

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

وعليكم السلام كان عليك من البداية استخدام خاصية البحث في المنتدى تفضل https://www.officena.net/ib/topic/50240-برنامج-حضانة/?tab=comments#comment-307830 https://www.officena.net/ib/files/file/259-سجل-قيد-التلاميذ-لجميع-المراحل-رياض-أطفال-ابتدائي-إعدادي/ https://www.officena.net/ib/topic/80536-برنامج-تسجيل-بيانات-لروضة-أطفال-الاصدار-الثاني/

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

اهلا بك في المنتدى عليك برفع الكود داخل ملف

السلام عليكم اخى الكريم-كان عليك من البداية رفع ملف لما تطلب ولكم يمكنك وضع هذا الكود داخل حدث التكست بوكس Private Sub Text1_KeyPress(KeyAscii As Integer) If (KeyAscii >= 0) Or (KeyAscii <= 127) = False Then keycode = vbNullString End Sub