Run code and show the result in listbox

[abdelfattah]

hello
i need help about this code it doesn't work and no error when i choose in the combobox1 and write data in textbox 1 based on data of sheet

Private Sub ListBox1_DblClick(ByVal Cancel As MSForms.ReturnBoolean)
    On Error Resume Next
    ii = 2
    For i = 0 To Me.ListBox1.ColumnCount
        Me.Controls("TextBox" & ii).Value = Me.ListBox1.List(ListBox1.ListIndex, i)
        ii = ii + 1
    Next
End Sub
Private Sub TextBox1_Change()
    On Error Resume Next
    Dim ws As Worksheet
    Dim V As Integer
    Dim LastRow As Integer
    Dim M As String
    Dim Q, F
    ListBox1.Clear
    If TextBox1.Text = "" Then GoTo 1
    M = TextBox1.Text
    Set ws = Sheets("Data")
    With ws
        x = ComboBox1.ListIndex + 2
        LastRow = .Cells(.Rows.Count, "B").End(xlUp).Row
        Set Q = Range(.Cells(2, x), .Cells(LastRow, x)).Find(M)
        If Not Q Is Nothing Then
            F = Q.Address
            Do
                If Application.WorksheetFunction.Search(M, Q, 0) = 1 Then
                    ListBox1.AddItem Q.Row
                    ListBox1.List(V, 1) = .Cells(Q.Row, 2).Value
                    ListBox1.List(V, 2) = .Cells(Q.Row, 3).Value
                    ListBox1.List(V, 3) = .Cells(Q.Row, 4).Text
                    ListBox1.List(V, 4) = .Cells(Q.Row, 5).Value
                    ListBox1.List(V, 5) = .Cells(Q.Row, 6).Value
                    ListBox1.List(V, 6) = .Cells(Q.Row, 7).Value
                    ListBox1.List(V, 7) = .Cells(Q.Row, 8).Value
                    ListBox1.List(V, 8) = .Cells(Q.Row, 9).Value
                    V = V + 1
                End If
                Set Q = Range(.Cells(2, x), .Cells(LastRow, x)).FindNext(Q)
            Loop While Not Q Is Nothing And Q.Address <> F
        End If
    End With
1 End Sub

 

[abdelfattah]

i need help

 

[abdelfattah]

when i delete line code on error it gives me error run time error 6 overflow

 

[Norie]

Changing Integer to Long in your declarations will fix that particular error but it might not help with populating the listbox.

What are you actually trying to populate the listbox with?

 

[abdelfattah]

Changing Integer to Long in your declarations will fix that particular error but it might not help with populating the listbox.

What are you actually trying to populate the listbox with?

the code became slow to show the result and restart the file what i try to show data of sheet in the listbox about 9 columns
attached my file

Uploadfiles.io - Upload files, for free, securely, anonymously, without limits

Upload files, for free, securely, anonymously, without limits. @UploadFilesFree

ufile.io

 

[Fluff]

While we do not prohibit Cross-Posting on this site, we do ask that you please mention you are doing so and provide links in each of the threads pointing to the other thread (see rule 13 here along with the explanation: Forum Rules). This way, other members can see what has already been done in regards to a question, and do not waste time working on a question that may already be answered.

Pleas supply links to ALL other sites where you have asked this question.

 

[abdelfattah]

Excuse me, buddy , I did not get any answer. If you had obtained the answer, I wouldn't have posted my question on this site, so putting the topic link will not help anything.

 

[Fluff]

You may feel it's not necessary to includes the links, but we do. All sites have a similar policy regarding cross posting, so please supply the links as requested.

 

[abdelfattah]

this is the link
help adjust code show the data on listbox

 

[Fluff]

I asked you to supply ALL links, not just one of them.