السلام عليكم ورحمة الله
إزيك يا جماعة الخير لو سمحتوا محتاج مساعدة فى الكود ده لو ينفع بالحلقات التكرارية أو يعمل أسرع
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