MoshAna

شكرا ا/محمد كود حضرتك تمام المشكلة كانت فى اصدار الاوفيس اللى كنت شغال عليه لا يدعم دالة MAXIFS جزاكم الله كل الخير وجعل كل ما تقدمونه من مساعدات فى ميزان حسناتكم

السلام عليكم ورحمة الله وبركاته ...تحية الى جميع الاخوة الاعضاء احاول انشاء برنامج صغير للحسابات واحاول ايجاد طريقة لاستدعاء اكبر قيمة الى TextBox بشرط محتوي ComboBox ' كود لا يعمل بشكل صحيح a = ComboBox1.Value b = formulaarry = "=Max(IF(a = (c2:c), (a2:a) + 1, 1))" TextBox1.Value = b Label1.Caption = b وصلت الى حل عن طريق معادلة فى خلية فى شيت اكسيل 'كود بمعادلة وسيطة فى شيت اكسيل Sheet1.[f2].FormulaArray = "=MAX(IF(g2= (sheet2!c2:c100),(sheet2!a2:a100)+1,1))" Sheet1.[g2] = ComboBox1.Value TextBox2.Value = Sheet1.[f2].Value Label2.Caption = Sheet1.[f2].Value لكن ما ابحث عنه هو طريقة للحصول على الناتج بدون الاحتياج الى معادلات وسيطة فى شيت الاكسيل مرفق ملف يوضح ما سبق ..شكرا جزيلاً ....انتبه من فضلك, تــــم تعديل وضع الأكواد بالمشاركة والطريقة كما بالصورة المرفقة Test01.xlsm

السلام عليكم ورحمة الله وبركاته شاكر للجميع مساعداتهم ومقدر الجهد للكل وان كان هناك تقصير منى فأأسف عليه دا ملف الى حد كبير فيه اللى كنت بدور عليه حبيت اشاركه مع المنتدي فيه بعض العيوب لكن ان شاء الله تتحل عن قريب العيوب - فى حالة الغاء كامل محتوي الكمبوبوكس بزر BACKSPACE لا يعض كامل النتائج مرة اخي حتى الخروج من الفروم واعادة تشغيله - يظهر الفراغات والاسماء المكررة Searchable Combobox Test.xlsm

السلام عليكم ورحمة الله وبركاته ...دا ملف الاكسيس اللى فيه الكود ...بس انا محتاج كود يعطى نفس النتيجة ولكن لفورم اكسيل ..شكرا للجميع دا كود من تصميم اخونا سعيد صواب لكمبوبوكس فى قاعدة بيانات اكسيس كنت محتاج كود لكمبوبوكس فى اكسيل يؤدي نفس النتيجة Tst.accdb

السلام عليكم ورحمة الله وبركاته الاخوة الاعزاء موضوع شيق ونتيجة مثمرة وفقكم الله جميعا بس هل فيه كود يعطي نفس النتيجة لـ Combobox فى اكسيل بدون الاستعانة بـ Listbox ارجو الافادة شكرا جميعا على المجهور الرائع