هاني بدر

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

25 دقائق مضت, عبدللرحيم said:

أعلم أن الرصيد خطأ

للمراجعة وتوضيح 

م.س.و / م.س.م

السلام عليكم ورحمة الله وبركاته

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

ودعني اوضح لحضرتك الفكره وارجو ان لا اثقل عليك

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

وللتوضيح اكثر الكود الاصلي يجمع كل صنف على حده ويضع في كل سطر مجموع حركة الصنف ثم في السطر الذي يليه مجموع حركة الصنف التالي وهكذا 

اما عن م.س.و

فهو متوسط سعر الوارد من الصنف

و م.س.م

هو متوسط سعر المنصرف من الصنف الواحد

واكرر شكري وتقديري لتفاعلك واهتمامك 

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

2 ساعات مضت, عبدللرحيم said:

أستاذ هاني بدر

ما المقصود ب ( وارد - منصرف - رصيد)

هل تم جمع ماقبل التاريخ ليتم الخصم أو الإضافة فيه

المقصود بالوارد والمنصرف والرصيد

هو مقسم الى قسمين

قسم للعدد وهو الموجود في صفحة قاعدة البيانات ( Data ) في عمود جرد مدين وجرد دائن والفرق بينهم هو الرصيد للعدد

والقسم الثاني هو للقيمه وهو الموجود في قاعدة البيانات في عمود مدين ودائن والفرق بينهم هو الرصيد بالقيمه وليس بالاعداد

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

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

4 ساعات مضت, بن علية حاجي said:

لسلام عليكم

راجع الملف المرفق بعد التعديل عليه مع الملاحظة التي وضعتُها (فيما يخص نتيجة الكود)...

بن علية حاجي

وعليكم السلام ورحمة الله وبركاته 

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

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

sumproduct3.rar

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

تقبل تحياتي

sumproduct2 (1).rar

عزيزي Benaouda

ارجو منك اعطائي ناتج مكان المعادله التي تعطي  #value

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

جرب المرفق ( لم يتم استبعاد الاصفار من السلسله الثانيه بالضغط على الكوماند اللبني )

لكن انا اسف مافهمتش المقصود بتسمية السلسله التانيه وتوظيفها  في الكود   ؟؟

sumproduct.rar

26 دقائق مضت, benaouda said:

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

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

تفضل اخي الكريم 

sumproduct.rar

على كل حال دي محاوله قد تنفع جربها وقول رائيك

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

sumproduct.xlsm

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

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

السلام عليكم ورحمة الله وبركاته

في المرفق كود ميزان مراجعه للعلامه الكبير عبدالله باقشير 

والمطلوب تطويع الكود لعرض النتائج حسب متغير التاريخ ورقم العميل او المورد

test trial by dates.rar

1 ساعه مضت, KHALILOOO said:

VALUE

غالبا تاتي عندما يكون المدى غير موحد مثال

= sumifs (A11:A10000,B11:B500,B1)