طلب تعديل كود بحت في ليست بوكس

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