أبو سجده

هذه المعادلة لكنها طويلة جدا
=IF(MONTH(A2)>=MONTH($B$2);IF(C2>(DATEDIF(B2;A2;"ym")+1)*IF(ROUND(SUM(D2)-SUM(E2:F2;H2:K2);2)*25%<=C2;ROUND(SUM(D2)-SUM(E2:F2;H2:K2);2)*25%;C2);IF(ROUND(SUM(D2)-SUM(E2:F2;H2:K2);2)*25%<=C2;ROUND(SUM(D2)-SUM(E2:F2;H2:K2);2)*25%;C2);IF(C2-DATEDIF(B2;A2;"ym")*IF(ROUND(SUM(D2)-SUM(E2:F2;H2:K2);2)*25%<=C2;ROUND(SUM(D2)-SUM(E2:F2;H2:K2);2)*25%;C2)>0;C2-DATEDIF(B2;A2;"ym")*IF(ROUND(SUM(D2)-SUM(E2:F2;H2:K2);2)*25%<=C2;ROUND(SUM(D2)-SUM(E2:F2;H2:K2);2)*25%;C2);""));"") وعليه إقترحت صياغة دالة معرفة إن أمكن ذلك **** أرجو الإفادة وجزاكم الله خيرا

اخى العزيز الفاضل الاستاذ // مجدى 
السلام عليكم ورحمته الله وبركاته
والله شيىء يشرف وهذا ماعهدناه من
المديرية الماليه بسوهاج .... لم اقم الا بتحميل البرنامج
وقرأة المرفق فقط ولحين الاطلاع اليك اولى الملاحظات
بشأن الفقرة الاخيرة من المادة رقم 13 تم تعديلها
بالقانون رقم 53 لسنة 2014 اعتبارا من اول يوليو 2014 ونصها
يشترط لتطبيق الاعفاء المنصوص عليه فى البندين 3 و 4  الا يزيد جملة مايعفى للممول
على 15% من صافى الايراد أوعشرة ألاف جنيها  ايهما اقل " بدلا من 3000 جنيها " الى أخر نص الماده
أرجو بأن لاأكون متطفلا ولكن أحببت التنويه
حتى يمكن لسيادتكم التعديل بالمرفق المشفوع بالبرنامج
جزاكم الله خير وبارك فيكم ورزقكم وايانا من حيث لانحتسب

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

الاستاذ العزيز الفاضل // احمد ابو زيزو
السلام عليكم ورحمته الله وبركاته
بداية ... أسأل الله تعالى أن تكون بكامل الصحة
ثانيا .... نرجو الافاده والتجربه
أولاً يجب على سيادتكم تحديد أسم الملف الذي تريد تثبيت أسمه في اول الكود
كما بالمثال   "zizo_Xl"
تقبل وافر احترامى وتقديرى
وجزاكم الله خيرا
Private Const Nm_Fil As String = "zizo_Xl" Option Explicit '====================================================== Private Const Nm_Fil As String = "zizo_Xl" Sub auto_open() Dim NewName As String, MyBook As String, MyPath As String, MyTyp As String, MyName As String '============================ On Error GoTo Err_kh_Name '============================ If Nm_Fil <> ThisWorkbook.Name Then '============================ With ThisWorkbook MyBook = .Name MyPath = .Path & Application.PathSeparator End With MyTyp = Mid$(MyBook, InStrRev(MyBook, ".")) MyName = Replace(MyBook, MyTyp, "") '============================ NewName = MyPath & Nm_Fil & MyTyp If Dir(NewName, vbDirectory) = vbNullString Then ThisWorkbook.SaveAs Filename:=NewName Kill MyPath & MyBook MsgBox "تم إسترجاع اسم الملف", vbOKOnly, "الحمدلله" End If '============================ Err_kh_Name: If Err Then MsgBox "Err.Number : " & Err.Number Err.Clear End If End If End Sub

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