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