نادر سليم

الإسـتاذ محمد أبو البراء أنتم جميعاً فى هذا المنتدى الذى أصفة بإنه كنز لا يفنى ولا ينضب أساتذتنا تعلمنا منكم الكثير ولا تستأذنى فى علم تمدنى به وتمد به كل من كان فى إحتياجة ولك منى جزيل الشكر

السلام عليكم ورحمة الله الاخ الكريم habub يجب تغييرالإسم للغة العربية طبقاً لقوانين المنتدى وإاليك الحل لعلة يكون المطلوب Book1.rar

الأخ abdelmalik السلام عليكم ورحمة الله لعل ما تطلبة موجود فى هذا الرابط http://www.officena.net/ib/index.php?app=downloads&showfile=109

هذا هو المرفق بعد التعديل لتعم الفائدة وشكراً جزيلا ل أستاذ طارق وشكراً لكل أساتذة المنتدى الذين اضافو النور الى طريقنا 11_New.rar

الى الاستاذ طارق اسمح لى بأننى أضفت تعديل بسيط فى الكود لكى يعمل بالصورة المطلوبة Sub ConvertFunction() Dim H, B, C, J, K, M As Range With Sheet1 Set H = .Range("H:H"): Set B = .Range("B:B") Set C = .Range("C:C"): Set J = .Range("J:J") Set K = .Range("K:K"): Set M = .Range("M:M") End With LR = [b65536].End(xlUp).Row If LR <= 5 Then MsgBox "No data to retreive": Exit Sub For r = 5 To LR cl = Cells(r, 2) cr1 = [">="&C1]: cr2 = ["<="&C2] cr3 = [">="&G1]: cr4 = ["<="&G2] Cells(r, 3) = WorksheetFunction.SumIfs(H, B, cl, C, cr1, C, cr2) Cells(r, 4) = WorksheetFunction.SumIfs(J, B, cl, C, cr1, C, cr2) Cells(r, 6) = WorksheetFunction.SumIfs(K, B, cl, C, cr1, C, cr4) Cells(r, 7) = WorksheetFunction.SumIfs(M, B, cl, C, cr1, C, cr4) Next End Sub

المرفق 11_New.rar

الحل جميل ولكن يوجد مشكله لا أعرف حلها وهى ان الشرط المراد البحث عنة وهو بين تاريخين محددين لم يتحقق كما فى المرفق مثلاً الصنف1 اردت البحث بين تاريخين لتجميع النتائج ولكنها لم تظهر بشكل صحيح ظهر تجميع الفترة بالكامل ولك منى جزيل الشكر

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

السلام عليكم ورحمة الله وبركاتة الف مبروك ووفقك الله فى الخير

السلام عليكم ورحمة الله وبركاتة إلى أساتذة المنتدى الكرام فى المرفق معادلات للدالة Sumifs هلى يمكن تحويلها الى كود وذلك لكثرة البيانات التى تحققها هذة الدالة والتى قد يصل مدخلاتها الى 50000 حركة ونتائجها تستخلص ل 4000 صنف ويعجز لسانى عن الشكر لكل اعضاء وأساتذة المنتدى الكرام 11.rar

الاخ الفاضل أستاذ محمد رسلان لعل الحل الذى تريدة من اساتذتنا الكرام موجود فى هذا الرابط http://www.officena.net/ib/index.php?showtopic=50050 الله الموفق

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

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

السلام عليكم ورحمة الله اعلم انى اثقلت عليكم اساتذتى الكرام القائمة التى قام بعملها أستاذ حمادة لا توصف الا بانها روعة ولكن اريد التعديل بحيث استطيع اضافة بلد جديدة فى عامود البلد وتظهر فى combo box وايضا بالنسبة للمحافظات والمناطق وهنا سؤال ايضا عن طريق جلب الكود المقابل لللاسم كاملا وبنفس التنسيقات التى قام بها الاستاذ حمادة بارك الله فيكم قائمة2.rar

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