يوسف احمد

سامحنى اخي الفاضل ولكن الملف مساحته كبيره و لن استطيع تحميله الآن انا مشكلتي في الكود الي بيقفل انا مش عارف اطبقه على الكومبو بوكس و لو حضرتك شوفت الشيت بتاعك هتلاقيه مش بيشتغل الا على المدى المذكور a4:a10 انا عايز اطبق الكود ده Private Sub ComboBox1_Change() For Each cl In [A4:A10] arr = arr & cl & "," Next x = UBound(Filter(Split(arr, ","), ComboBox1)) If x = -1 Then MsgBox "القيمة غير موجودة في القائمة": ComboBox1 = "" End Sub و مش عارف انا باخد مدى من شيت و بعدين الفورم بتضيف في شيت تاني شكرا انا عارف اني اثقلت عليك يا استاذي

بعد اذنك اخي الحبيب كيف يمكن تغيير المدى المذكور لمدى في شيت آخر و لك جزيل الشكر

Private Sub ComboBox1_Change() For Each cl In [A4:A10] arr = arr & cl & "," Next x = UBound(Filter(Split(arr, ","), ComboBox1)) If x = -1 Then MsgBox "القيمة غير موجودة في القائمة": ComboBox1 = "" End Sub شكرا لك اخي الحبيب اسف جدا جدا على ازعاجك ارجو من حضرتك شرح الكود بعاليه

شكرا لك اخي الفاضل اعتذر بشده فانا لم اري المرفق الكود ممتاز ... و لكن كيف يمكن تطبيقه لتحميل بيانات من شيت اخر و ارجو توضيح كيف يمكن تحديد المدى شكرا لذوقك و تعاونك

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

شكرا اخي الفاضل المقصود هو عدم السماح باضافة اي مدخل غير الموجود في المدى المحدد و شكرا

للرفع

الله المستعان

السلام عليكم بعد اذنكم يا اخواني الكرام اريد كود كود لملئ كومبو بوكس بنطاق معين و للتوضيح اريد كود يقوم بخاصية match require و خاصية fmStyleDropDownList من style معاً و شكراً

الله المستعان

الله المستعان

الله المستعان

الله المستعان

البقاء لله و الدوام لله اللهم ارحمه و وسع مدخله و اجعل قبره روضه من رياض الجنه اللهم امين

الله المستعان

الله المستعان

السلام عليكم و رحمة الله و بركاته المهندس / محمد طاهر شكرا جزيلا جزاك الله كل خير و بارك الله في حضرتك و السلام عليكم و رحمة الله و بركاته

الله المستعان

up

السلام عليكم لماذا لا استطيع اضافة اعجاب ؟؟ و تظهر لي الصوره في المرفق

up

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

مليار مبروك للأستاذ / حماده عمر

الله المستعان

UP