الشيباني1 قام بنشر يوليو 24, 2011 مشاركة قام بنشر يوليو 24, 2011 أخواني الاعزاء تحية طيبه ارجو المساعده بكود او دالة اخرى لو امكن لايجاد مستحقات الوكلاء الذين يتضمنهم الجدول المرفق خلال الفترة المثبته حيث ان استخدام الداله (sumproduct )لاكثر من (300) وكيل وفي هذا الجدول يؤدي الى تأخير في عمل البرنامج لا اعرف لماذا. جدول.zip رابط هذا التعليق شارك More sharing options...
عبدالله المجرب قام بنشر يوليو 24, 2011 مشاركة قام بنشر يوليو 24, 2011 أخواني الاعزاء تحية طيبه ارجو المساعده بكود او دالة اخرى لو امكن لايجاد مستحقات الوكلاء الذين يتضمنهم الجدول المرفق خلال الفترة المثبته حيث ان استخدام الداله (sumproduct )لاكثر من (300) وكيل وفي هذا الجدول يؤدي الى تأخير في عمل البرنامج لا اعرف لماذا. جرب المرفق بدالة sumproduct في عمود المستحق ودالة SUMIF في عمود المسدد والله اعلم جدول.zip رابط هذا التعليق شارك More sharing options...
الشيباني1 قام بنشر يوليو 24, 2011 الكاتب مشاركة قام بنشر يوليو 24, 2011 استاذنا الكريم مع جزيل شكري وامتناني لسرعة الرد اتساءل عن امكانية حل الموضوع بالاكواد حيث انني لو رغبت في تغيير التاريخ المتعلق ب (الى )الى اي تاريخ سابق لتاريخ اليوم لن تعمل الدالة (sumif )مع التغيير مع التقدير رابط هذا التعليق شارك More sharing options...
يحيى حسين قام بنشر يوليو 24, 2011 مشاركة قام بنشر يوليو 24, 2011 السلام عليكم و رحمة الله أخي للحل بالأكواد جرب الكود التالي : 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 =========== دمتم في حفظ الله رابط هذا التعليق شارك More sharing options...
ياسر الحافظ قام بنشر يوليو 24, 2011 مشاركة قام بنشر يوليو 24, 2011 الاخوة الاساتذة : عبد الله المجرب - يحيى حسين جزاكم الله كل الخير وفقكم الله ياسر الحافظ " ابو الحارث " رابط هذا التعليق شارك More sharing options...
الشيباني1 قام بنشر يوليو 25, 2011 الكاتب مشاركة قام بنشر يوليو 25, 2011 استاذنا الكبير الشكر قليل بحقك على هذا الكود الرائع وهذا الابداع جزاك الرحمن كل خير وابعد عنك كل مكروه وجزى الله خيرا اخينا العزيز عبد الله المجرب على هذا التألق والهمة العاليه في اسعاف المحتاجين وادام لناهذا المنتدى البديع رابط هذا التعليق شارك More sharing options...
MAHMOUD ALI YOUSSEF قام بنشر يوليو 25, 2011 مشاركة قام بنشر يوليو 25, 2011 السلام عليكم الاخوة الاساتذة عمل اكثر من رائع جزاكم الله كل خير رابط هذا التعليق شارك More sharing options...
الردود الموصى بها
من فضلك سجل دخول لتتمكن من التعليق
ستتمكن من اضافه تعليقات بعد التسجيل
سجل دخولك الان