بحث مخصص من جوجل فى أوفيسنا
Custom Search
|
-
Posts
1 -
تاريخ الانضمام
-
تاريخ اخر زياره
بحث مخصص من جوجل فى أوفيسنا
Custom Search
|
محتاج مساعدة فى الكود ده
في منتدى الاكسيل Excel
قام بنشر
السلام عليكم ورحمة الله
إزيك يا جماعة الخير لو سمحتوا محتاج مساعدة فى الكود ده لو ينفع بالحلقات التكرارية أو يعمل أسرع
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