مستحقات الوكلاء

[الشيباني1]

أخواني الاعزاء تحية طيبه ارجو المساعده بكود او دالة اخرى لو امكن لايجاد مستحقات الوكلاء الذين يتضمنهم الجدول المرفق خلال الفترة المثبته حيث ان استخدام الداله (sumproduct )لاكثر من (300) وكيل وفي هذا الجدول يؤدي الى تأخير في عمل البرنامج لا اعرف لماذا.

جدول.zip

[عبدالله المجرب]

أخواني الاعزاء تحية طيبه ارجو المساعده بكود او دالة اخرى لو امكن لايجاد مستحقات الوكلاء الذين يتضمنهم الجدول المرفق خلال الفترة المثبته حيث ان استخدام الداله (sumproduct )لاكثر من (300) وكيل وفي هذا الجدول يؤدي الى تأخير في عمل البرنامج لا اعرف لماذا.

جرب المرفق بدالة sumproduct في عمود المستحق ودالة SUMIF في عمود المسدد

والله اعلم

جدول.zip

[الشيباني1]

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

[يحيى حسين]

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

أخي للحل بالأكواد جرب الكود التالي :

Sub Test()

Dim LR As Long, cLR As Long, c As Range, d As Range, DateF As Date, DateT As Date

Dim pLR As Long, e As Range

LR = Range("H" & Rows.Count).End(xlUp).Row

cLR = Range("E" & Rows.Count).End(xlUp).Row

pLR = Range("N" & Rows.Count).End(xlUp).Row

 DateF = Range("j3").Value

 DateT = Range("l3").Value

Range("j6:k25").ClearContents

For Each c In Range("H6:H" & LR)

    For Each d In Range("E6:E" & cLR)

        If d.Value = c.Value And d.Offset(, -3).Value >= DateF _

        And d.Offset(, 1).Value <= DateT Then

            c.Offset(, 2).Value = d.Offset(, -1).Value + c.Offset(, 2).Value

        End If

    Next d

Next c

For Each c In Range("H6:H" & LR)

    For Each e In Range("N6:n" & pLR)

        If e.Offset(, 3).Value = c.Value And e.Value >= DateF And e.Value <= DateT Then

            c.Offset(, 3).Value = e.Offset(, 2).Value + c.Offset(, 3).Value

        End If

    Next e

Next c

End Sub

===========

دمتم في حفظ الله

[ياسر الحافظ]

الاخوة الاساتذة : عبد الله المجرب - يحيى حسين

جزاكم الله كل الخير

وفقكم الله

ياسر الحافظ " ابو الحارث "

[الشيباني1]

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

[MAHMOUD ALI YOUSSEF]

السلام عليكم

الاخوة الاساتذة

عمل اكثر من رائع

جزاكم الله كل خير