السلام عليكم اخي ياسر جزاك الله حيرا على الاهتمام بالموضوع
لكن اخي هده طريقة في الموضوع لا تناسب طلبي اوملف العمل الخاص لدي
اريد الغاء اختيا نوع البحت من الكومبو بوكس نهائيا اريد البحث بتيكست بوكس اريد لما اقوم بكتابه رقم كود صنف او حرف يتم فلترات البيانات في اللست بوكس دون اختيار نوع البحث من الكومبو بوكس
Private Sub TextFind_Change()
Dim MyValue
Dim MyAr() As String
Dim R As Integer, i As Integer, ii As Integer
Dim MyColmnFind As Integer, LastRow As Integer
MyColmnFind = Me.ComboFind.ListIndex + 1
If MyColmnFind = 0 Then Exit Sub
If MyColmnFind = 3 Then Me.TextFind = ""
Me.ListFind.Clear
With Rng.Worksheet
LastRow = .Range("A65536").End(xlUp).Row
End With
Colmn = ""
With Rng
For R = 2 To LastRow
If .Cells(R, MyColmnFind) Like "*" & TextFind & "*" Then
Colmn = Colmn & R & " "
ii = ii + 1
ReDim Preserve MyAr(1 To ContColmn, 1 To ii)
For i = 1 To ContColmn
MyValue = .Cells(R, i).Value2
MyAr(i, ii) = MyValue
Next
End If
Next
End With
If ii Then Me.ListFind.Column = MyAr: Me.ListFind.ListIndex = 0
End Sub
Private Sub UserForm_Activate()
Set Rng = Sheet2.Range("A1").Resize(1, 2)
With Me.ComboFind
.Column = Rng.Value
.ListIndex = 1
.Style = 2
End With
R = Range("D62").End(xlUp).Row
Label15.Caption = 60 - R
TextFind_Change
End Sub