طلب تصحيح كود نتائج البحث

[ع_ حسام]

السلام عليكم

إخواني أساتذة هذا المنتدى طلب مساعدة في تصحيح كود  نتائج البحث

الموجود في الليست بوكس أي عدد صفوف الموجود افي لليست بوكس

وشكرا

 

تم تعديل ديسمبر 13, 2015 بواسطه ع_ حسام

[الصـقر]

اخى الكريم استبدل كود التغيير فى التكست بهذا الكود

Private Sub TextBox1_Change()
ListBox1.Clear
For Each f In Range("a1:a100")
x = InStr(1, f.Value, TextBox1.Text)
If x > 0 Then
ListBox1.AddItem f
End If
Next f
L_Count1.Caption = ListBox1.ListCount
End Sub

ستلاحظ انه تم حذف الاسطر من بعد Next f 

ووضع هذا السطر بدلا منهم

L_Count1.Caption = ListBox1.ListCount

تقبل تحياتى