طلب كود اظهار القيم فى listbox عند فتح الفورم

[sherif ahmed mohamed]

السلام عليكم

ده كود بحث وفلترة فى listbox2 شغال تمام

المطلوب

عمل كود فى userform_activate علشان القيم تظهر فى listbox2 عند فتح الفورم

وشكرا للجميع

Private Sub TextBox1_Change()
On Error Resume Next
ThisWorkbook.Activate

Dim v As Integer, LastRow As Integer
Dim M As String
Dim Q, F
ListBox2.Clear
With Da
If TextBox1.Text = "" Then GoTo 1


LastRow = .Range("cc1000").End(xlUp).Row
Set sp = .Range("cc5:cc" & LastRow)



M = TextBox1.Text



Set Q = sp.Find(M)


If Not Q Is Nothing Then
F = Q.Address
Do
If Application.WorksheetFunction.Search(M, Q, 0) = 1 Then
'هنا في حالة انني اريد البحث على اساس اي حرف بالكلمه
'====================================================================

'وهذا الكود اذا اردت البحث باول حرف من الكلمه ولاحظ هنا ان الرقم تغير من صفر الى واحد في الاقواس
'====================================================================
ListBox2.AddItem Q.Value
'هذا خاص باضافة عمود البحث وهنا يكون العمود الاول من الليست بوكس
ListBox2.List(v, 0) = Q.Offset(0, -2).Value
ListBox2.List(v, 1) = Q.Value
طلب كود اظهار القيم فى listbox عند فتح الفورمListBox2.List(v, 2) = Q.Offset(0, 2).Value
ListBox2.List(v, 3) = Q.Offset(0, 3).Value
' ListBox2.List(v, 3) = Q.Offset(0, 2).Value

v = v + 1
'وهذا المتغير ضروريان يكون كماهو لانه يعني ظهور الداتا لكامل عدد الاعمده في الليست بوكس
End If
Set Q = sp.FindNext(Q)
'وهذا السطر يجب ان يكون موجود وهو خاص بالبحث التالي للكلمات، يعني لو حذفت هذا السطر لن يعطيك تكرار للبحث
'ويجب ان تراعي ان تغير معطيات الكود في حال غيرت اسماء المتغيرات وايضا في حال غيرة عمود البحث
Loop While Not Q Is Nothing And Q.Address <> F
Me.ListBox2 = ""

طلب كود اظهار القيم فى listbox عند فتح الفورمEnd If
End With

1 End Sub

كلمة المرور 123

 

اساسى_تعديل.rar