Gmal samy

اذا كان المبلغ المستحق سداده 655 ولكن المبلغ المسدد 600 فقط ... كيف اجعل اولوية السداد في الغرامة ثم الفائدة والباقي في الاصل .... حسب الملف المرفق .. وشكرا السداد.xlsx

Sub Find_Between() Dim First_Sh, Sec_Sh As Worksheet Dim First_Rg, Sec_Rg As Range Dim My_Min As Long, My_Max, x As Long Dim lr, m, i As Integer Application.ScreenUpdating = False Set First_Sh = Sheets("ÇáÈíÇäÇÊ"): Set Sec_Sh = Sheets("ÇáÐíä ÇÓÊáãæÇ ÇÌæÑåã") My_Min = First_Sh.Range("k2"): My_Max = First_Sh.Range("l2") Set First_Rg = First_Sh.Range("a1").CurrentRegion.Offset(1) Set Sec_Rg = Sec_Sh.Range("a1").CurrentRegion.Offset(1) Sec_Rg.ClearContents lr = First_Rg.Rows.Count - 1 m = 2 For i = 1 To lr x = CDate(First_Rg.Cells(i, 1)) If First_Rg.Cells(i, 1) >= My_Min And First_Rg.Cells(i, 1) <= My_Max Then Sec_Sh.Cells(m, "a").Resize(1, 9).Value = First_Rg.Cells(i, 1).Resize(1, 9).Value m = m + 1 End If Next Application.ScreenUpdating = True End Sub ممكن شرح للكود

ممكن شرح للجزء ده

كيف يمكن ترحيل رصيد اخر المدة خلال العام ليكون رصيد اول المدة في العام التالي ترحيل رصيد.zip

كيف يمكن ترحيل رصيد اخر الفترة الي رصيد اول الفترة في السنة الجديدة ؟ وشكرا

يا استاذ محمد في الصف الثاني 50 - 20 = 1030

عند الطباعة كان يظهر المجموع خطأ كما هو مبين بالصورة ( جمال ) فقمت بتغير المعادلة لتصبح Total3: Nz(DSum("nz([Debit])-nz([Credit])";"JournalEntry";"JournalEntry![EmpID]=" & JournalEntry!EmpID & "and [Account]=" & [Account]);0) ولكن عند تطبيقها في البرنامج الاصلي تظهر الخطأ في المشاركة السابقة فاريد طريقة مختلفة تستخدم في التقرير لعدم ظهور الصف الذي به رصيد صفر وشكرا db1.rar

عند التطبيق علي البرنامج تعطي هذه الرسالة فهل هناك طريقة لتنفيذ المعادلة من التقرير وليس الاستعلام وشكرا db1.zip

شكرا استاذ محمد ابوعبد الله ممكن بس شرح التعديل علي اخر ملف

بعد اضافة نموذج للطباعة اصبحت المعادلة لا تعمل برجاء المساعدة وشكرا db1.zip

شكرا استاذ محمد ابوعبد الله

ممكن توضيح

شكرا استاذ محمد هل هذه المعادلة سليمة Total: Nz(DSum("nz([Debit])-nz([Credit])";"JournalEntry";"JournalEntry![EmpID]=" & JournalEntry!EmpID & "JournalEntry![Accounts]=" & JournalEntry!Accounts & "#");0)

اذا كنت اريد ان اضيف للمعادلة في الاستعلام اكثر من شرط مثل فترة بين تاريخين ونوع الحساب فكيف ستكون المعادلة وشكرا

شكرا علي الاستجابة السريعة هذا هو المطلوب