بحث فى الليست بوكس list box

[الفارس محمد رجب]

السلام عليكم  ورحمة الله وبركاته اخوانى الاعزاء

مرفق ملف اكسيل وهو عبارة عن ملف به فورم يتكون من list box--text box وقد استطعت عمل عناصر الليست بوكس ----والليست بوكس تاخذ عناصرها من اسماء العاملين

والمطلوب هو كود يقوم ب:( عند كتابة اسم اى موظف فى التكست بوكس يتم البحث بمجرد كتابة اول حرف فى التكسن بوكس  (البحث فى عناصر الليست بوكس)

اسماء العاملين.xlsm

[محمد هشام.]

وعليكم السلام ورحمة الله تعالى وبركاته

تفضل اخي

Private Sub UserForm_Initialize()
  Me.ListBox1.List = [liste].Value
End Sub
'''''''''''''''''''''''''''''''''''''''''
Private Sub TxtSearch_Change()
   Me.ListBox1.Clear
   i = 0
   For Each c In Application.Index([liste], , 1)
     If UCase(c) Like UCase(Me.TxtSearch) & "*" Then
        Me.ListBox1.AddItem
        Me.ListBox1.List(i, 0) = c.Value
        i = i + 1
     End If
  Next c
End Sub

 

اسماء العاملين.xlsm

[الفارس محمد رجب]

شكرا لك اخى Mohamed Hicham وجعله الله فى ميزان حسناتك