Please, I have been trying to create a search form but not getting result.
Below is my sample code:
Private Sub cmdbtn_Enter_Click()
Dim ColNum As Long
Dim LastRow As Long
ColNum = 1
LastRow = Range("A5" & Rows.Count).End(xlUp).Value
Do Until Cells(LastRow, 9).Value = ""
If InStr(1, Cells(LastRow, 1).Value, txtSearch_Word.Value, vbTextCompare) > 0 Then
Worksheets("Search_Results").Value = Cells(ColNum, 1).Value
Worksheets("Search_Results").Value = Cells(ColNum, 2).Value
Worksheets("Search_Results").Value = Cells(ColNum, 3).Value
Worksheets("Search_Results").Value = Cells(ColNum, 4).Value
Worksheets("Search_Results").Value = Cells(ColNum, 5).Value
Worksheets("Search_Results").Value = Cells(ColNum, 6).Value
Worksheets("Search_Results").Value = Cells(ColNum, 7).Value
Worksheets("Search_Results").Value = Cells(ColNum, 8).Value
Worksheets("Search_Results").Value = Cells(ColNum, 9).Value
Worksheets("Search_Results").Value = Cells(ColNum, 10).Value
Worksheets("Search_Results").Value = Cells(ColNum, 11).Value
Worksheets("Search_Results").Value = Cells(ColNum, 12).Value
Worksheets("Search_Results").Value = Cells(ColNum, 13).Value
Worksheets("Search_Results").Value = Cells(ColNum, 14).Value
ColNum = ColNum + 1
End If
Loop
listDisplay.RowSource = "Search_Results!A1:N43"
If LastRow = 1 Then
MsgBox ("Data Not Available")
End If
End Sub