البحث عن طريق الليست بوكس

Private Sub ButtonFind_Click()

Dim Ary()

Dim r As Long, rr As Long, Lr As Long

Dim C As Integer

Dim txt As String

Dim i As Integer



txt = Me.TextFind

Me.ListBox1.Clear



With Sheets("البيانات")

    Lr = .Cells(.Rows.Count, "A").End(xlUp).Row



    For r = 4 To Lr

           

      If .Cells(r, "A") = txt Then





            rr = rr + 1

            ReDim Preserve Ary(1 To Cont, 1 To rr)

            For C = 1 To Cont

                Ary(C, rr) = .Cells(r, C).Value

            Next

        End If

    Next

    

End With



If rr Then

Me.ListBox1.Column = Ary

Else

MsgBox "لم يتم العثور على الكود"

End If

Erase Ary

End Sub