استاذى القدير
شوقى ربيع
عمل اكثر من رائع وهذا ما تعودناه منكم
زادكم الله علما
اذا سمحت لى باضافه بسيطه واكيد انت اعلم بها منى وما العبد الا قطره فى بحر علمكم الفياض
يمكن استبدال هذا السطر
d = UCase(Me.ComboBox1) & "*"
بالسطر التالى
d = UCase("*" & (Me.ComboBox1) & "*")
للبحث عن الحرف فى اى كلمة من الخلية فى النطاق المحدد
مرفق ملف
كمبوبوكس بالبحث.zip