Ali Mohamed Ali

بارك الله فيك ورحم الله والديك

وعليكم السلام-تفضل لك كل ما طلبت بصمة-1 5.xlsm

=C5-C7+(C5+C6) يمكنك استخدام هذه المعادلة بالخلية C8

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

بارك الله فيك وجزاك الله خير الثواب

تفضل ترحيل المطالبات 2الشهرية.xlsm

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

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

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

بعد اذن استاذنا الكبير سليم ولإثراء الموضوع يمكنك تجربة هذا اكثر من شخص1.xlsx

جرب الكود الموجود بهذا الرابط من أعمال أستاذنا الكبير ياسر خليل ابو البراء https://pastebin.com/DdEr76jc

اهلا بك فى المنتدى-تفضل 1التسويات.xlsx

بارك الله فيك واحسن الله اليك ووسع الله فى رزقك

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

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

جرب كده نسخة_من_تطبيق_فرق_السعر_هيئة.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 فقط كما اخبرك استاذنا سليم و الأخر اذا مازالت لا تعمل معك فعليك باستبدال الفاصلة العادية بفاصلة منقوطة ; فربما نظام الكمبيوتر لديك مختلف