Search Down Column, Activate Row from Columns A:X and Add Selection to Listbox

Hello! Fairly new to VBA and appreciative of any help! Basically, I am trying to search down a column on a spreadsheet and add the rows that correspond to the search criteria into a listbox.

Objective:
1. User enters number on UserForm in text box
2. User hits "Generate Report" button and the macros searches down column C of the active spreadsheet (there is only one worksheet)
3. Once a match is found, the entire row is selected from columns A to X and the row added to a listbox on the UserForm

Problems:
1. I have been able to code and display the what I searched for in the first column, but not the entire row using the code. This finds the correct number of entries, but displays them in the first column of the listbox only where I want the entire row displayed.

Private Sub cmdGenerateReport_Click()
Dim x As String
strSearch = LotNumberTxt.Text
A = 3
Do
x = Cells(A, 3).Value
If x = "" Then Exit Sub
If x = strSearch Then Me.ListBoxReport.AddItem x
A = A + 1
Loop Until Cells(A, 3).Value = ""

End Sub


2. When I activate the row from columns A to X the "Object Required" Error comes up even though I defined y (new variable) as a range.

Private Sub cmdGenerateReport_Click()
Dim x As String
Dim y As Range
strSearch = LotNumberTxt.Text
A = 3
Do
x = Cells(A, 3).Value
If x = "" Then Exit Sub
If x = strSearch Then Cells(A, 3).Select
Set y = Range("A" & ActiveCell.Row & ":X" & ActiveCell.Row).Select
A = A + 1
Loop Until Cells(A, 3).Value = ""

End Sub



So, if anybody can help me select the range and add it to the listbox (I thought AddItem would work but it does not seem to) that would be great! Any suggestions are appreciated. Thanks!

Thank you very much for your reply! This helped a bit, adding what I wanted into the listbox, but the first column is blank and everything is shifted over one column. Also, for the Worksheet Row number I want to use a variable (A) so that when the program finds the search query that row is copied. When I add this variable for the row number it does not work. Also, though unrelated, I am getting a Loop Until Without Do Error even though there is clearly a Do in the code. There is probably an easy explanation for this, I am just not familiar. Here is what I have:

Dim x As String
strSearch = TextBox1.Text
A = 3
ListBox1.ColumnCount = Range("A:X").Columns.Count
x = Cells(A, 3).Value
Do
If x = "" Then Exit Sub
If x = strSearch Then
Me.ListBox1.AddItem
For ColumnNumber = 1 To 24
Me.ListBox1.List(Me.ListBox1.ListCount - 1, ColumnNumber) = Cells(A, ColumnNumber)
Next ColumnNumber
A = A + 1
Loop Until Cells(A, 3).Value = ""
End If


End Sub


Sorry for writing the code out like this, I am new to this forum and have not been able to find the button to insert the code. Your help is greatly appreciated and I will continue to work at this

Thanks again! Getting closer, but now the search engine does not work. I have made a generic file to show my problem and have attached it here. I also have a header (the titles of each column) that should come up each time the button is clicked. However, this only works when the first column searched matches the search criteria. And then it displays all of the rows, not just the ones that match in "Column C". The code is:

Please Login or Register  to view this content.

In short, the results are in the right place now, but the right results are not displayed. Thanks for your help also with posting code in the forum.

Fantastic! Thank you very much for your help, this works great!