hello
could help me anybody i would adjust my code when i choose in combobox and write data in textbox i want show the all of data in listbox it shows me error in this line code
If Application.WorksheetFunction.Search(M, Q, 0) = 1 Then "run time error 1004"
i try attaching file or images but the web is problem
for more clearing i have sheet contains data from b3:j20000
and userform contains combobox1 & textbox1 and listbox 1 the combobox contains the header of topics from b2:j2
this is my code
could help me anybody i would adjust my code when i choose in combobox and write data in textbox i want show the all of data in listbox it shows me error in this line code
If Application.WorksheetFunction.Search(M, Q, 0) = 1 Then "run time error 1004"
i try attaching file or images but the web is problem
for more clearing i have sheet contains data from b3:j20000
and userform contains combobox1 & textbox1 and listbox 1 the combobox contains the header of topics from b2:j2
this is my code
Code:
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 Long
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