هاني بدر

الكود موجود في Shape اسم المطعم Dim a, b Application.ScreenUpdating = False With ActiveSheet a = .Range("C4:C43").Value CloneArray a, .Range("AI4"), 18, True b = Application.Transpose(Range("D3:U3").Value) CloneArray b, .Range("AW4"), UBound(a, 1), False End With Application.ScreenUpdating = True End Sub Sub CloneArray(ByVal arr, ByVal rngT As Range, ByVal n As Integer, ByVal allItems As Boolean) Dim i As Long, ii As Long, k As Long ReDim b(1 To UBound(arr, 1) * n, 1 To 1) If allItems Then For i = 1 To n For ii = LBound(arr, 1) To UBound(arr, 1) k = k + 1 b(k, 1) = arr(ii, 1) Next ii Next i Else For i = LBound(arr, 1) To UBound(arr, 1) For ii = 1 To n k = k + 1 b(k, 1) = arr(i, 1) Next ii Next i End If rngT.Resize(UBound(b, 1), UBound(b, 2)).Value = b '============================================ Range("AD4:AD" & [AI5000].End(xlUp).Row).Value = Range("L2").Value Range("BL4:BL" & [AI5000].End(xlUp).Row).Value = Range("AW4:AW" & [AI5000].End(xlUp).Row).Value Range("AW4:AW" & [AI5000].End(xlUp).Row).Value = "" Range("AJ4:AJ" & [AI5000].End(xlUp).Row).FormulaR1C1 = _ "=""مبيعات شهر "" & "" …. "" & MONTH(R2C10) & "" لــــــــ "" & R2C3 &"" … "" &RC[28]" Range("AJ4:AJ" & [AI5000].End(xlUp).Row).Value = Range("AJ4:AJ" & [AI5000].End(xlUp).Row).Value End Sub INCOME JV April test.xlsb

في المرفق في تعليقي السابق تم تغيير مكان وضع النتائج وكانت كما هو مطلوب تماما مع تغيير بسيط وهو نقل مكان اسم المطعم الى العمود BL , وكذلك تغيير مكان اسم الحساب الى العمود AI ومتبقي فقط عملية التجميع حسب اسم الحساب وحسب توصيفه وحسب اسم المطعم

Dear lionheart First of all you have all greetings from me suppose that the majority of members are not experts I already tried to change variables to get results as i wish and don't forget i asked you to be patient with me many thanks for being helpful here are what i get and still need your help to end that subject please check the attached file INCOME JV April test.xlsb

عزيزي lionheart بداية كل الشكر على التفاعل والاهتمام وارجو ان تتحملني للنهاية لاهمية الموضوع للشركات التي تملك فروعا متعدده عند تطبيق الكود لم تتغير البيانات في اى من العمودين AI and AM ولو حضرتك جربت وحذفت البيانات اللي في العمودين AI and AM وطبقت الكود ستظل الاعمده المطلوبه خاليه

لتوضيح الفكره خلينا ناخدها جز ء جزء كما هو موضح بالمطلوب في عمود AI وعمود AMINCOME JV April test.xlsb

السلام عليكم ورحمة الله وبركاته في المرفق مطلوب تحويل قيد يوميه من جدول الى شكل اليوميه الفرنسيه وشكرا للمساعده INCOME JV April test.xlsb

للرفع

للرفع

السلام عليكم ورحمة الله وبركاته في المرفق كود ميزان مراجعه لاستاذ ياسر خليل والمطلوب تصحيح الخطا عند تطبيق الكود على البيانات المرفقه test trial.rar

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

للــــــــــــــــــــــــــــــــــرفع

المقصود بالوارد والمنصرف والرصيد هو مقسم الى قسمين قسم للعدد وهو الموجود في صفحة قاعدة البيانات ( Data ) في عمود جرد مدين وجرد دائن والفرق بينهم هو الرصيد للعدد والقسم الثاني هو للقيمه وهو الموجود في قاعدة البيانات في عمود مدين ودائن والفرق بينهم هو الرصيد بالقيمه وليس بالاعداد ومشكلة الكود المرفق هو انه يحقق النتائج على كل صغحة قاعدة البيانات وليس حسب فتره محدده بين تاريخين

للــــــــــــــــــــــــــــــــــرفع

وعليكم السلام ورحمة الله وبركاته اعتذر لك فانا لم ارى مشاركتك والحمد لله اننا وجدنا الماء ليبطل التيمم جعله في ميزان حسناتك

تفضل عزيزي استاذ جمال مع ملاحظة عدم تكرار بيانات الجدول الرئيسي حتى يتم عمل الكود والمعادله بالشكل الصحيح sumproduct3.rar