هاني بدر

الكود موجود في 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

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

عزيزي Benaouda ارجو منك اعطائي ناتج مكان المعادله التي تعطي #value ختى يتسنى لي فهم المطلوب لان معادلة sumproduct انا ارى معادلة Sumifs افضل منها بكثير وكما شاهدت في مثالك المرفق لم نستخدم اى من تلك المعادلات فارجو منك التوضيح اكثر باعطائي ناتج نهائي حتى يتسنى لي ولباقي الاعضاء الكرام مساعدتك وتقبل تحياتي

جرب المرفق ( لم يتم استبعاد الاصفار من السلسله الثانيه بالضغط على الكوماند اللبني ) لكن انا اسف مافهمتش المقصود بتسمية السلسله التانيه وتوظيفها في الكود ؟؟ sumproduct.rar

انا تحت امرك في اى وقت

تفضل اخي الكريم  sumproduct.rar

على كل حال دي محاوله قد تنفع جربها وقول رائيك والباقي انا سالتك عنه الناتج ايه وهيكون في اى الاعمده يعني حضرتك عاوز المجموع النهائي ولا عمود فيه حاصل ضرب القيم ؟؟ sumproduct.xlsm

حدد لنا الناتج هيكون كام وهنحطه فين في المثال

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

السلام عليكم ورحمة الله وبركاته في المرفق كود ميزان مراجعه للعلامه الكبير عبدالله باقشير والمطلوب تطويع الكود لعرض النتائج حسب متغير التاريخ ورقم العميل او المورد test trial by dates.rar

غالبا تاتي عندما يكون المدى غير موحد مثال = sumifs (A11:A10000,B11:B500,B1)