محتاج مساعدة فى الكود ده

[محمد جمال عبد العزيز]

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

إزيك يا جماعة الخير لو سمحتوا محتاج مساعدة فى الكود ده لو ينفع بالحلقات التكرارية أو يعمل أسرع

 

Private Sub TextBox15_Change()
'Call MG_Start
Application.Workbooks("El Dawliya Employee Data").Activate
On Error Resume Next
  Dim f As Variant
   ListBox1.RowSource = Empty
    ListBox1.Clear
     Sheets("Emp").Select
      For Each f In Range("A2:A" & Range("A700").End(xlUp).Row)
       If f Like TextBox15 & "*" Then
        listed = ListBox1.ListCount
         ' ListBox1.ColumnCount = 41
             ListBox1.AddItem
                ListBox1.List(listed, 0) = f
                 ListBox1.List(listed, 1) = f.Offset(0, 1)
                 ListBox1.List(listed, 2) = f.Offset(0, 2)
                  ListBox1.List(listed, 3) = f.Offset(0, 3)
                  ListBox1.List(listed, 4) = f.Offset(0, 4)
                  ListBox1.List(listed, 5) = f.Offset(0, 5)
                  ListBox1.List(listed, 6) = f.Offset(0, 6)
                  ListBox1.List(listed, 7) = f.Offset(0, 7)
                  ListBox1.List(listed, 😎 = f.Offset(0, 😎
                  ListBox1.List(listed, 9) = f.Offset(0, 9)
                  ListBox1.List(listed, 10) = f.Offset(0, 10)
                  ListBox1.List(listed, 11) = f.Offset(0, 11)
                  ListBox1.List(listed, 12) = f.Offset(0, 12)
                  ListBox1.List(listed, 13) = f.Offset(0, 13)
                  ListBox1.List(listed, 14) = f.Offset(0, 14)
                  ListBox1.List(listed, 15) = f.Offset(0, 15)
                  ListBox1.List(listed, 16) = f.Offset(0, 16)
                  ListBox1.List(listed, 17) = f.Offset(0, 17)
                  ListBox1.List(listed, 18) = f.Offset(0, 18)
                  ListBox1.List(listed, 19) = f.Offset(0, 19)
                  ListBox1.List(listed, 20) = f.Offset(0, 20)
                  ListBox1.List(listed, 21) = f.Offset(0, 21)
                  ListBox1.List(listed, 22) = f.Offset(0, 22)
                  ListBox1.List(listed, 23) = f.Offset(0, 23)
                  ListBox1.List(listed, 24) = f.Offset(0, 24)
                  ListBox1.List(listed, 25) = f.Offset(0, 25)
                  ListBox1.List(listed, 26) = f.Offset(0, 26)
                  ListBox1.List(listed, 27) = f.Offset(0, 27)
                  ListBox1.List(listed, 28) = f.Offset(0, 28)
                  ListBox1.List(listed, 29) = f.Offset(0, 29)
                  ListBox1.List(listed, 30) = f.Offset(0, 30)
                  ListBox1.List(listed, 31) = f.Offset(0, 31)
                  ListBox1.List(listed, 32) = f.Offset(0, 32)
                  ListBox1.List(listed, 33) = f.Offset(0, 33)
                  ListBox1.List(listed, 34) = f.Offset(0, 34)
                  ListBox1.List(listed, 35) = f.Offset(0, 35)
                  ListBox1.List(listed, 36) = f.Offset(0, 36)
                  ListBox1.List(listed, 37) = f.Offset(0, 37)
                  ListBox1.List(listed, 38) = f.Offset(0, 38)
                  ListBox1.List(listed, 39) = f.Offset(0, 39)
                  ListBox1.List(listed, 40) = f.Offset(0, 40)
                End If
                  Next
'Call MG_End
End Sub

[حسونة حسين]

ارفق ملف اخى الكريم لنفهم المطلوب جيدا