mody200

يوجد خطاء عند الاستعلام وعملية البحث وجلب النتائج عزرا لانى جديد فى عمل الاكواد الرجاء المساعدة try.xlsm

احسنت السيد محمد هشام انت بجد روعه ومنقذ

الرجاء المساعدة بالنسبة للكود والفراغات عند كل عملية تصدير

انه يقوم بتصدير البينات بالفعل ولاكن يوجد فراغات بين البيانات وبين اجمالى القيم واجمالى قيم كل عمود كما هو موضح فى الصورةاريد القيم تكون فى اخر البيانات بدون فراغات

Private Sub b_recup_Click() On Error Resume Next Dim Y As Date Dim X As Integer Set fS = Sheets("تصدير بيانت اكسيل") For X = 0 To ListBox1.ListCount - 1 Ligs = fS.Range("A" & Rows.Count).End(xlUp)(2).Row fS.[A2:l10000].ClearContents r1 = Text_count.Value Sheet5.Range("a2:L3999").ClearContents hrd1 = Array("رصيد اول مدة") fS.[c2].Resize(1, 1) = hrd1 fS.Range("f2") = ("بيان رصيد اول مدة بتاريخ هذا اليوم") fS.Range("g2") = Text_count fS.Range("i2") = Text_count fS.Range("b2") = Format(DateAdd("d", -1, CDate(Me.DateMini.Value)), "dd/mm/yyyy") a = Me.ListBox1.List fS.[A3].Resize(UBound(a) + 1, UBound(a, 2) + 1) = a c = 0 For c = 1 To Irow fS.Cells(1, c) = Range(NomTableau).Offset(-1).Item(1, c) Next fS.Range("F" & Ligs) = ("اجمالى") fS.Range("g" & Ligs) = TextBox3 fS.Range("h" & Ligs) = TextBox2 fS.Range("i" & Ligs) = TextBox1 Next X ' f2.Cells.EntireColumn.AutoFit fS.Columns(13).ClearContents MsgBox "تم تصدير البيانات بنجاح" Unload Me Set Rng = fS.Range("A1").CurrentRegion fS.PageSetup.PrintArea = Rng.Address fS.PrintPreview fS.Zoom End Sub Copy of كشف حساب عميل & كارت صنف.xlsm

الف شكر لك السيد هشام محمد انت رائع حقا انه يعمل بكفائة لو تفضلت مشكورا طباعة التقرير بأكثر من خيار سواء Word او PDF مع المعاينة قبل الطباعة

انا اسف الخطاء منى انا اقصد الدائن والمدين وتم تعديل عمود 6/7 ولاكن فى التكست بوكس 1 اريد اظهار اخر قيمة فى الليست بوكس وذلك لمعرفة الرصيدالختامى للتاريخ الثانى كما هو موضح فى الصورة رصيد اول مده + المبيعات - التحصيلات يعطى الرصيد الختامى

السيد محمد هشام اشكرك على هذا المجهود الرائع انه يعمل شكر جزيلا لك ولاكن عند عملية البحث بين تاريخين فأن TextBox1,TextBox2,TextBox3 لايظهر قيم الليست بوكس من المبيعات والتخصيلات ورصيد ختامى

السيد محمد هشام اشكرك على هذا المجهود الرائع انه يعمل غير انى اود ان يكون الرصيد اول المدة الختامى قبل التاريخ الاول بيوم لوافترضنا ان تم اختيار التاريخ من 16/11/2023 حتى20/11/2023 فان الرصيد الختامى ليوم 16/11/2023 يكون74669.26 ولاكن اريد ان يكون الرصيد الختامى ليس فى نفس اليوم ولاكن يكون فى نهاية اليوم الذى قبله وهو 77054.46 كما هو موضح فى الصورة اما بخصوص التاريخ اريد ان يكون صيغتة كما هو موضح dd/mm/yyyy

الف شكر على المجهود الرائع السيد محمد هشام يالنسبة لرصيد الختمامى قبل تاريخ البداية وهو ( رصيد اول المدة ) لوافترضنا اننا نريد اظهار المديونية للعميل من يوم 19/11/2023 حتى 30/01/2024 نريد اظهار الرصيد الختامى قبلتاريخ 19/11/2023 وجد كود وارجو تعديله نظرا لخبرتى فى مجال الvba لاتكفى Sub The_balance_of_the_first_duration5() Dim x As String, z As String Dim ws As Worksheet Set ws = Sheets("كشف حساب") x = WorksheetFunction.SumIfs(ws.Range("g:g"), ws.Range("c:c"), ("قيد"), ws.Range("b:b"), "<" & CLng(CDate(DateMini.Value)), ws.Range("b:b"), "<" & CLng(CDate(DateMini.Value))) xx = WorksheetFunction.SumIfs(ws.Range("g:g"), ws.Range("c:c"), ("مبيعات"), ws.Range("b:b"), "<" & CLng(CDate(DateMini.Value)), ws.Range("b:b"), "<" & CLng(CDate(DateMini.Value))) z = WorksheetFunction.SumIfs(ws.Range("h:h"), ws.Range("c:c"), ("مردودات مبيعات"), ws.Range("b:b"), "<" & CLng(CDate(DateMini.Value)), ws.Range("b:b"), "<" & CLng(CDate(DateMini.Value))) zz = WorksheetFunction.SumIfs(ws.Range("h:h"), ws.Range("c:c"), ("سند قيد"), ws.Range("b:b"), "<" & CLng(CDate(DateMini.Value)), ws.Range("b:b"), "<" & CLng(CDate(DateMini.Value))) zzz = WorksheetFunction.SumIfs(ws.Range("h:h"), ws.Range("c:c"), ("سند قبض"), ws.Range("b:b"), "<" & CLng(CDate(DateMini.Value)), ws.Range("b:b"), "<" & CLng(CDate(DateMini.Value))) Me.Text_count.Value = Evaluate(x) + Evaluate(xx) - Evaluate(z) + Evaluate(zz) + Evaluate(zzz) End Sub ' (Call The_balance_of_the_first_duration5)ملحوظة وضعت الكود فى الفلتر Sub Filtre() If Me.DateMini = "" Or Me.DateMaxi = "" Then Exit Sub For I = 1 To 3 Me.Controls("TextBox" & I).Value = "" Next I S.Caption = "" Dim Tbl() cbx1 = Me.ComboBox1: cbx2 = Me.ComboBox2: cbx3 = Me.ComboBox3 n = 0 dMini = CDate(Me.DateMini): dMaxi = CDate(Me.DateMaxi) Cb = Array(1, 1, 1) For I = 0 To UBound(ColCombo): Cb(I) = ColCombo(I): Next I For I = 1 To UBound(TabBD) If TabBD(I, Cb(0)) Like cbx1 And TabBD(I, Cb(1)) Like cbx2 _ And TabBD(I, Cb(2)) Like cbx3 _ And TabBD(I, 2) >= dMini And TabBD(I, 2) <= dMaxi Then n = n + 1: ReDim Preserve Tbl(1 To Irow + 1, 1 To n) c = 0 For c = 1 To Irow: Tbl(c, n) = TabBD(I, c): Next c Tbl(c, n) = TabBD(I, Irow + 1) End If Next I If n > 0 Then Me.ListBox1.Column = Tbl SUMIF Else Me.ListBox1.Clear End If Call The_balance_of_the_first_duration5 End Sub Copy of كشف حساب عميل (1).xlsm

الرجاء مساعدتى Copy of كشف حساب عميل.xlsm

السلام عليكم ورحمة الله وبركاتة الف شكر لك السيد الكريم /محمد هشام اشكرك على هذه الاستجابة السريعة لطلبى والاهتمام بمساعدتى تكرما منك (TextBox4)اولا المقصود نقس فكرة كرت الصنف او رصيد الخزينة الذى يجلب القيمة فى اول المدة (TextBox1)وكذلك رصيد بعد نهاية المده لو استعلمنا عن مديونية عميل بعد طرح البيع من التحصيلات وجلبها فى الليست بوكس مع مراعات لو كانت يوجد مديونية قبل هذا التاريخ الذى تم تحديه فى خانتى التاريخ( Combobox10/Combobox2) كمثال نهاية المدة فى تاريخ19/11/2023 (74800.95) (TextBox4) القيمة فى اول المدة يتم اظهارها فى فى خالة اذا تم عملية البحث بعد هذا التاريخ 20/11/2024 حتى 30//11/2024 (TextBox1)ويظهر رصيد نهاية المدة فى (58009.31) وارجو ان اكون وفقت فى ايضاح طلبى وارجو ان يكون عملية البحث كفلتر للبيانات وشكر

عمل رائع

عمل رائع

السلام عليكم ورحمة الله وبركاتة معكم محمود حسين من اسوان انا جديد فى المنتدى وخبرتى فى مجال VBA قصيرة الرجاء مساعدتى مع الاستفادة من خبراتكم فى هذا العمل الرجاء مساعدتى فى اختيار بيانات بين تاريخين واختيار نوع الحدث سواء نوع المستند او اسم الصنف او اسم العميل او كل البيانات لجلب بيانات اعمار الديون مع اظهار رصيد اول مدة قبل التاريخ الاول من البيانات واظهار الرصيد الحالى اخر التاريخ الثانى مع اظهار اجمالى المبيعات واجمالى التحصيلات فى التكست بوكس المخصص لها اسفل الليست بوكس1 هو عبارة عن فورم كشف حساب وشكرا جزيلا للقائمين على هذا الصرح الرائع كشف حساب عميل.xlsm