الشيباني1 قام بنشر يوليو 24, 2011 قام بنشر يوليو 24, 2011 أخواني الاعزاء تحية طيبه ارجو المساعده بكود او دالة اخرى لو امكن لايجاد مستحقات الوكلاء الذين يتضمنهم الجدول المرفق خلال الفترة المثبته حيث ان استخدام الداله (sumproduct )لاكثر من (300) وكيل وفي هذا الجدول يؤدي الى تأخير في عمل البرنامج لا اعرف لماذا. جدول.zip
عبدالله المجرب قام بنشر يوليو 24, 2011 قام بنشر يوليو 24, 2011 أخواني الاعزاء تحية طيبه ارجو المساعده بكود او دالة اخرى لو امكن لايجاد مستحقات الوكلاء الذين يتضمنهم الجدول المرفق خلال الفترة المثبته حيث ان استخدام الداله (sumproduct )لاكثر من (300) وكيل وفي هذا الجدول يؤدي الى تأخير في عمل البرنامج لا اعرف لماذا. جرب المرفق بدالة sumproduct في عمود المستحق ودالة SUMIF في عمود المسدد والله اعلم جدول.zip
الشيباني1 قام بنشر يوليو 24, 2011 الكاتب قام بنشر يوليو 24, 2011 استاذنا الكريم مع جزيل شكري وامتناني لسرعة الرد اتساءل عن امكانية حل الموضوع بالاكواد حيث انني لو رغبت في تغيير التاريخ المتعلق ب (الى )الى اي تاريخ سابق لتاريخ اليوم لن تعمل الدالة (sumif )مع التغيير مع التقدير
يحيى حسين قام بنشر يوليو 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 =========== دمتم في حفظ الله
ياسر الحافظ قام بنشر يوليو 24, 2011 قام بنشر يوليو 24, 2011 الاخوة الاساتذة : عبد الله المجرب - يحيى حسين جزاكم الله كل الخير وفقكم الله ياسر الحافظ " ابو الحارث "
الشيباني1 قام بنشر يوليو 25, 2011 الكاتب قام بنشر يوليو 25, 2011 استاذنا الكبير الشكر قليل بحقك على هذا الكود الرائع وهذا الابداع جزاك الرحمن كل خير وابعد عنك كل مكروه وجزى الله خيرا اخينا العزيز عبد الله المجرب على هذا التألق والهمة العاليه في اسعاف المحتاجين وادام لناهذا المنتدى البديع
MAHMOUD ALI YOUSSEF قام بنشر يوليو 25, 2011 قام بنشر يوليو 25, 2011 السلام عليكم الاخوة الاساتذة عمل اكثر من رائع جزاكم الله كل خير
الردود الموصى بها
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.