نادر سليم

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

السلام عليكم ورحمة الله الاخ الكريم 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

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

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

استاذنا القدير حمادة اشكرك على سعة صدرك واتمنى ان اكون واحداً من تلاميذك http://www.officena.net/ib/index.php?showtopic=50119#entry306582

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

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

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

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

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