Ali Mohamed Ali

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

جرب كده نسخة_من_تطبيق_فرق_السعر_هيئة.xlsm

يمكنك استخدام هذا الكود فسوف يتم عمل ملف منفصل برقم الفاتورة عند الضغط على ترحيل فبذلك يمكنك طباعة اى فاتورة تريدها Sub Splitbook() Dim xPath As String ActiveSheet.Name = ActiveSheet.Range("AP2") & " NO" & Range("E6") xPath = Application.ActiveWorkbook.Path Application.ScreenUpdating = False Application.DisplayAlerts = False For Each xWs In ThisWorkbook.Sheets xWs.Copy Application.ActiveWorkbook.SaveAs Filename:=xPath & "\" & xWs.Name & ".xlsx" Application.ActiveWorkbook.Close False Next Application.DisplayAlerts = True Application.ScreenUpdating = True Range("E6") = ([E6]) + 1 End Sub Invoice.xlsm

تفضل لأنك لم تطبق المعادلة بطريقة صحيحة تقاطع العمود مع السطر OK.xlsx

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

بارك الله فيك

وعليكم السلام-دائما وابداً باتأكيد لابد من رفع الملف لإستجابة الأعضاء والأساتذة فى مساعدتك تفضل يمكنك استخدام هذه المعادلة =IF(A13<20,25,IF(AND(A13>=20,A13<=30),25+(A13-20)*1.5,IF(AND(A13>30,A13<=40),25+(9*1.5)+(A13-31)*2,IF(A13>40,25+(9*1.5)+(9*2)+(A13-41)*2.5,"")))) مثال توضيحي1.xlsx

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

اهلا بك فى المنتدى-تفضل DG Inv Empty.xlsm

تفضل لك ما طلبت Split & Search.xlsx

استاذ ابو صلاح معادلة الأستاذ سليم تعمل بكل كفاءة ,فهى لا تحتاج اى تعديل -فاذا اعطت لك خطأ فمنك انت:-وذلك لأحد سببين, فهذه معادلة مصفوفة لابد من الضغط على Ctrl+Shift+Enter وليس Enter فقط كما اخبرك استاذنا سليم و الأخر اذا مازالت لا تعمل معك فعليك باستبدال الفاصلة العادية بفاصلة منقوطة ; فربما نظام الكمبيوتر لديك مختلف

وعليكم السلام -تفضل ~$زيادة او نقصان سنة في عدة صفوف عن طريق زر.xlsm

بعد اذن استاذنا بن علية حاجى وذلك لأن هذه معالات مصفوفة وليست معادلات عادية فلابد بعد نسخ المعادلة الضغط على Ctrl+Shift+Enter وليس Enter فقط كباقى المعادلات

غير التاريخ الموجود بالخلية A2 كما تريد ولا تقوم بالمساس للمعادلات

تفضل لك ما طلبت الهدف1.xlsx

وعليكم السلام-يمكنك استخدام هذه المعادلة لجمع السلف =SUMIFS($L$2:$L$2000,$H$2:$H$2000,$AQ2,$D$2:$D$2000,"<>"&$AC$2:$AC$2000) ومعادلة جمع استحقاق المحطة =SUMIFS($N$2:$N$2000,$H$2:$H$2000,$AQ2,$D$2:$D$2000,"<>"&$AC$2:$AC$2000) جمع مستحقات وسلف واستثناء بعض الارقام1.xlsx

جزاك الله كل خير استاذ مجدى ورحم الله والديك

الموضوع ليس بالسهل او الهين , يمكنك الإستعانة بهذا الرابط : https://github.com/balin77/ExcelDesignListBox

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

تفضل خطأ في التفقيط1.xlsm

وعليكم السلام-اهلا بك فى المنتدى كان عليك استخدام خاصية البحث بالمنتدى قبل رفع المشاركة-تفضل https://www.officena.net/ib/topic/86446-برنامج-ارشيف-الوثائق-2019الجديدة-هدية-مفتوح-المصد-ر/?tab=comments#comment-547794

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

وعليكم السلام-اهلا بك فى المنتدى , تفضل نموذج1.xls

وعليكم السلام-تفضل لك ما طلبت بمجرد اختيار رقم السجل من القائمة المنسدلة Search.xlsx

وعليكم السلام تم عمل كل المطلوب وكلمة السر واسم المستخدم 123 النقل 1البري.xlsm