Ali Mohamed Ali

تفضل كان عليك من البداية استخدام خاصية البحث في المنتدى فهناك موضوع كبير للعلامة الراحل عماد الدين الحسامى يخص طلبك ,موجود على كل هذه الروابط https://www.officena.net/ib/topic/63602-أعمال-العلامه-القدير-الراحل-عماد-الدين-الحسامى/?tab=comments#comment-413052 https://www.officena.net/ib/topic/32270-لأول-مرة-في-الأكسل-شجرة-الحسابات-بهذه-الطريقة/page/2/?tab=comments#comment-260297 https://www.officena.net/ib/topic/56966-اريد-عمل-شجرة-حسابات-بالtree-view-فى-الاكسيل/?tab=comments#comment-361556 وأيضا هذا هو البرنامج شجرة الحسابات.xls

وعليكم السلام-تفضل Fuddruckers OD Jun 2019.xlsx

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

تفضل تم العمل بمعادلات المصفوفة -فلا يمكن الحل بمعادلة Vlookup نهائياً معادلة اظهار نتائج بحث.xlsx

وعليكم السلام-تفضل فرز حسب الحالة - نقص صف.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

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

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