اخي الفاضل
يوجد كود في حدث التغيير في الكومبوبوكس اي يعمل بمجرد التغيير في الكمومبوبوكس والكود هو
Private Sub ComboBox1_Change()
On Error Resume Next
Range("Database").AdvancedFilter Action:=xlFilterCopy, _
CriteriaRange:=Range("Criteria"), CopyToRange:=Range("H1"), Unique:=True
End Sub
وهو عبارة عن تصفية متقدمة للبيانات في النطاق المسمى Database حسب الشرط في النطاق Criteria وهو عبارة عن الدالة
=ISNUMBER(SEARCH($A$2;E2))
بعد التصفيه هناك ربط للناتج المصفى ليصبح النطاق Name وهو مربوط بالقائمة الخاصة بالكمبوبوكس (كما في الصورة)
هناك شرح للاستاذ كيماس لعمل التصفية المتقدمة فيديو هذا رابطه
http://www.officena.net/ib/index.php?showtopic=35371