جمع قيمة التاريخ المكرر؟

[عبدالعزيز محمد]

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

لدي ملف به بيانات وهي عبارة عن مبيعات يومية ولكن تتكرر المبيعات اليومية في نفس التاريخ فكيف يمكننا جمع(قيمة المبيعات) لكل يوم 

Aziz101.rar

[أبو عبد النور]

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

 

جرب هذا الكود :

Sub test()
    Dim Lr As Integer
    Dim Dt As Date
    Dim Tb()

    Lr = [B10000].End(xlUp).Row
    Set Rng = Range("B2:B" & Lr)
    Dt = Format("01/01/2016", "dd/mm/yyyy")
    
    For Each cel In Rng

        If cel <> Dt Then
            i = i + 1
            ReDim Preserve Tb(1 To 2, 1 To i)
            Tb(1, i) = Dt
            Tb(2, i) = cp

            Dt = cel
            cp = 1
        Else
            cp = cp + 1
        End If

    Next
    Range("H2").Resize(UBound(Tb, 2), UBound(Tb)) = Application.Transpose(Tb)
End Sub

 

[عبدالعزيز محمد]

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

أشكرك على سرعة الرد لو سمحت لو توضح أين أضع الكود وأين أجد النتيجة ؟

بعبارة أخرى نأمل الشرح أكثر

[أبو عبد النور]

تقضل :

 

 

مجموع حسب التاريخ_v001.rar

[سليم حاصبيا]

بمكنك استعمال هذه المعادلة و السحب نزولاً

=SUMIFS($C$2:$C$52,$B$2:$B$52,H2)

 

[عبدالعزيز محمد]

أخي سليم اين اضع الكود في أي خلية؟

قمت بنسخها ووضعها في خلية ظهرت رسالة كما في المرفق

[عبدالعزيز محمد]

أخي ابوعبدالنور لو سمحت أن تشرح لي الكود كيف يمكنني الأستفادة في ملفات أخرى لو أردت استخدامه في ملف آخر 

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

وفقك الله

[أبو عبد النور]

مجموع حسب التاريخ_v001.rar

[سليم حاصبيا]

1 ساعه مضت, عبدالعزيز محمد-محب البرمجة said:

أخي سليم اين اضع الكود في أي خلية؟

قمت بنسخها ووضعها في خلية ظهرت رسالة كما في المرفق

مرفق الحل

اذا لم تعمل معك المعادلة استبدل الفاصلة"," بفاصلة منقوطة";"

مجموع حسب التاريخ salim.rar

[عبدالعزيز محمد]

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

أخي أبوعبدالنور 

حاولت مع الكود حتى يتلائم مع ملفي فلم افلح.

في الكود 5 عناصر إن صحت التسمية الأول عمود التاريخ وهوB والثاني عمود القيمة وهو C والثالث عمود النتيجة وهو H والرابع عمود الذي تظهر فيه المجاميع وهوJ والعنصر الخامس الصف الذي بدأ من الجمع وهو الصف الثاني

عندي ملف به عدة أعمدة -7- أعمدة أريد تطبيق الكود عليه ولكن الأعمدة تختلف فكيف أقوم بتغير الكود حتى يتلائم الكود مع الملف 

باختصار:أريد معرفة الأسطر التي يتم تغييرها في الكود حتى تتلائم مع الأعمدة عندي 

أرجو أن يكون الشرح واضحا

[أبو عبد النور]

ارفق لي الملف الذس تعمل عليه

[عبدالعزيز محمد]

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

هذا المرفق

Aziz.rar

[أبو عبد النور]

في الصورة المرفقة وليس الملف كما طلبت هناك ثلاث اعمدة فقط وليس ثلاثة.

[عبدالعزيز محمد]

السلام عليكم

لم أفهم 

41 دقائق مضت, أبو عبد النور said:

في الصورة المرفقة وليس الملف كما طلبت هناك ثلاث اعمدة فقط وليس ثلاثة.

ولكني أرفقت الملف الي أود تطبيق الكود عليه ومن خلال التغيير في الكود في الملفين ربما اعرف ما طلبته سابقا وهذا المرفق مرة أخرى

Aziz.rar

[أبو عبد النور]

ارفق ملف اكسل وليس الصورة  :

https://www.officena.net/ib/uploads/monthly_2016_12/Aziz.png.3c080e3d747ecc76692b1edca67702af.png

[عبدالعزيز محمد]

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

متأسف على المرفق الخطأ وهذا الملف الذي أود تطبيق الكود السابق عليه

Aziz.rar

[أبو عبد النور]

تفضل :

Aziz_ر002.rar

[سليم حاصبيا]

بعد اذن اخي ابو عبد النور

هذا الملف ريما يكون المطلوب

 

Aziz salim.rar