So I don't know exactly what you want to search for, what data you want displayed as a result of the search, nor what criteria you want to use in your search.
That being said, I took a guess. The following fills in the CHEQUE NO / CHEQUE DATE / CHEQUE AMOUNT field for every cheque that it finds for a given company when you select that company. Hopefully you can modify/expand it to do the searches and results that you want.
Also, you'll want to change "lists"'s properties so that MultiLine = True to have it display properly.
Private Sub SERC_Click()
Dim ws1 As Worksheet
Dim c As Range
Dim FirstAdd As String
Set ws1 = Worksheets("search")
lists.Value = ""
With ws1.Range("C2:C" & ws1.Cells(Rows.Count, "C").End(xlUp).Row)
Set c = .Find(SER.Value)
If Not c Is Nothing Then
FirstAdd = c.Address
Do
lists.Value = lists.Value & c.Offset(0, 2).Value & _
vbTab & vbTab & c.Offset(0, -1).Value & _
vbTab & vbTab & c.Offset(0, 3).Value & vbNewLine
Set c = .FindNext(c)
Loop While Not c Is Nothing And c.Address <> FirstAdd
End If
End With
End Sub
Bookmarks