اذهب الي المحتوي
أوفيسنا

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


الردود الموصى بها

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

جدول.zip

رابط هذا التعليق
شارك

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

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

والله اعلم

جدول.zip

رابط هذا التعليق
شارك

استاذنا الكريم مع جزيل شكري وامتناني لسرعة الرد اتساءل عن امكانية حل الموضوع بالاكواد حيث انني لو رغبت في تغيير التاريخ المتعلق ب (الى )الى اي تاريخ سابق لتاريخ اليوم لن تعمل الدالة (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



===========

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

رابط هذا التعليق
شارك

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

رابط هذا التعليق
شارك

من فضلك سجل دخول لتتمكن من التعليق

ستتمكن من اضافه تعليقات بعد التسجيل



سجل دخولك الان
  • تصفح هذا الموضوع مؤخراً   0 اعضاء متواجدين الان

    • لايوجد اعضاء مسجلون يتصفحون هذه الصفحه
×
×
  • اضف...

Important Information