ياسر خليل أبو البراء

عوداً حميداً أخي الغالي أبو حنين افتقدت وجودك كثيراً الأيام الماضية .. لا تغيب عن إخوان يشتاقون لرؤيتك على الدوام أشهد الله أني أحبك في الله

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

وجزيت خيراً بمثل ما دعوت لي أخي الكريم الحمد لله الذي بنعمته تتم الصالحات تقبل تحياتي

قم بالتغيير في هذا السطر DefPath = ThisWorkbook.Path & "\مجلد النسخ الاحتياطية\" ضع المسار المطلوب بين أقواس تنصيص بهذا الشكل defpath = "D:\مجلد النسخ الاحتياطية\" تقبل تحياتي

ممكن مثال وتعطي النتيجة المتوقعة ..!!

أخي الكريم وعليكم السلام يرجى وضع الأكواد بين أقواس الكود لتظهر بشكل منضبط جرب الكود التالي Private Sub Workbook_BeforeClose(Cancel As Boolean) Dim strDate As String, DefPath As String Dim FileNameZip, FileNameXls Dim oApp As Object If ActiveWorkbook Is Nothing Then Exit Sub On Error Resume Next DefPath = ThisWorkbook.Path & "\مجلد النسخ الاحتياطية\" MkDir DefPath On Error GoTo 0 If Len(DefPath) = 0 Then MsgBox "Please Save Activeworkbook Before Zipping" & Space(12), vbInformation, "Zipping" Exit Sub End If If Right(DefPath, 1) <> "\" Then DefPath = DefPath & "\" End If strDate = Format(Now, " dd_mm_yyyy, hh.mm AMPM ") FileNameZip = DefPath & Left(ActiveWorkbook.Name, Len(ActiveWorkbook.Name) - 4) & strDate & ".zip" FileNameXls = DefPath & Left(ActiveWorkbook.Name, Len(ActiveWorkbook.Name) - 4) & strDate & ".xls" If Dir(FileNameZip) = "" And Dir(FileNameXls) = "" Then ActiveWorkbook.SaveCopyAs FileNameXls newzip (FileNameZip) Set oApp = CreateObject("Shell.Application") oApp.Namespace(FileNameZip).CopyHere FileNameXls On Error Resume Next Do Until oApp.Namespace(FileNameZip).items.Count = 1 Application.Wait (Now + TimeValue("0:00:01")) Loop On Error GoTo 0 Kill FileNameXls MsgBox "Completed Zipped : " & vbNewLine & FileNameZip, vbInformation, "Zipping" Else MsgBox "FileNameZip Or/And FileNameXls Exist", vbInformation, "Zipping" End If End Sub Private Sub newzip(sPath) If Len(Dir(sPath)) > 0 Then Kill sPath Open sPath For Output As #1 Print #1, Chr$(80) & Chr$(75) & Chr$(5) & Chr$(6) & String(18, 0) Close #1 End Sub تقبل تحياتي

الغريب أنك لم ترد على المشاركة التي أدرجت فيها هذه المعادلة لا بالإيجاب ولا بالسلب أخي الكريم جرب المعادلة التالية وهي تفي بالغرض للاحتمالات إن شاء الله =ROUND(-3*C3*(C4>3)+(1+(C4>3))*C3*(C4+C5/12+C6/365),2) جرب وأعلمنا بالنتائج إذا لم تعمل المعادلة قم باستبدال الفاصلة العادية بفاصلة منقوطة تقبل تحياتي

بارك الله فيكم إخواني وجزيتم خيراً على التهنئة لأخونا العزيز عبد السلام .. أين اختفى ؟ يبدو أنه لم ينتبه بعد للموضوع أو ربما يكون منشغلاً بأمور خاصة .. وفقه الله لما يحب ويرضى في انتظار العريس .. المعازيم كتروا والعريس غايب (لعل غيابه خير إن شاء الله)

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

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

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

الناتج في الحالة الأولى لديك 1720.66 والصحيح 1220.66 وفي الحالة الثانية الناتج لديك 4019.18 وهو ناتج صحيح

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

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

إذاً أخي العزيز رفيع سعد لا سبيل إلى ذلك إلا بالكود لأن المعادلة ستعتمد على دالة اليوم Today ومع كل يوم جديد من الطبيعي أن تتجدد النتائج .. ما المشكلة في استخدام الكود؟

جرب التعديل التالي في الكود Sub Goal_Seek_Tax() Dim Opt_a, Opt_b, Opt_c, T As Integer, I As Integer Dim A As Single, B As Single, C As Single Application.ScreenUpdating = False Range("D10:F14").ClearContents For I = 10 To 14 Range("E" & I).Formula = "=(C" & I & "-D" & I & "*5%-F" & I & "*25%)/10%" For T = Int(Range("B" & I).Value / 2) To Range("B" & I).Value Range("D" & I).Value = T Range("G" & I).GoalSeek Goal:=1, ChangingCell:=Range("F" & I) A = Round(Range("D" & I).Value, 2) B = Round(Range("E" & I).Value, 2) C = Round(Range("F" & I).Value, 2) If A > 0 And B > 0 And C > 0 And A = Int(A) And B = Int(B) And C = Int(C) Then A = Range("D" & I).Value B = Range("E" & I).Value C = Range("F" & I).Value GoTo 10 End If Next T 10 If B < 0 Then Range("D" & I).Value = Int(Range("B" & I).Value / 4) Range("G" & I).GoalSeek Goal:=1, ChangingCell:=Range("F" & I) A = Round(Range("D" & I).Value, 2) B = Round(Range("E" & I).Value, 2) C = Round(Range("F" & I).Value, 2) End If Range("D" & I).Value = A Range("E" & I).Value = B Range("F" & I).Value = C Next I Application.ScreenUpdating = True End Sub أرجو أن يفي بالغرض إن شاء الله

أخي الكريم هشام الأرقام السالبة للأسف تظهر بسبب أن الأرقام التي بهذه الصفوف 413.60 و 70.05 لا يوجد لها احتمالات أرقام صحيحة فيأتي آخر احتمال .. عموماً سأحاول العمل مرة أخرى على الملف ..رغم أنه لا يوجد منطق ثابت للعمل وهذا ما يضعني في حيرة من أمري تقبل تحياتي

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

بارك الله فيك أخي الكريم سليم بالنسبة للجزء الأول سليم من حيث النتائج أما الجزء الثاني فأعتقد أنه غير صحيح بالنسبة للنتائج حيث أنه من المتوقع بالنسبة للمثال الثاني 5 سنوات و 6 أشهر و 7 أيام أن يكون الناتج 4019.18 ولكن الناتج في معادلتك 4278.77 جرب المعادلة التالية حسب المثال الأول في الخلية C7 في المرفق الأول في المشاركة الأولى ضع المعادلة التالية =ROUND(-3*C3*(C4>3)+(1+(C4>3))*C3*(C4+C5/12+C6/365),2) تقبل تحياتي

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

تم التثبيت للموضوع المشار إليه وإلغاء التثبيت لهذا الموضوع تقبل تحياتي

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

الحمد لله الذي بنعمته تتم الصالحات وأعتذر عن الإلحاح في التوضيح أكثر من مرة أخي أبو حمادة .. طلب التوضيح لدي عادة سيئة وأحاول التخلص منها ، ولكن يبدو أنني ميئوس من حالته تقبل وافر تقديري واحترامي

أخيراً ظهرت على الشاشة ..فينك يا حاج والله جيت في بالي أكتر من 40 مرة (شفت الدقة دي) خير اللهم اجعله خير ..لعل غيابك عن إخوانك خير إن شاء الله لكم افقتدت وجودك فيما بيننا

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