Goals:To display C,D,E and the rest of the column at the at row if any of it is entered at the textbox. Even though there are 2 same variables, for example the date, both rows and columns information can be displayed at a textbox,label or msgbox. I really need help with this as its a proj assignement.

Problem: i have to search all the values in Sheet1, there's where all my information are in, for the problem that is if there is 2 or more same values i cannot get the answers i want. In sheet 2, i have a textbox which determines the value. I have around 4000 cells information already keyed in Sheet1. So i have to extract them out.

C D E F G

US 5,843,808 Jan 11, 1996 US 08/585, 134 Jan 11, 1996 Grant US5843808 A Dec 1, 1998
US 6,111,324 Feb 5, 1998 US 09/020,903 Feb 5, 1998 Grant US6111324 A Aug 29, 2000
US 6,284,569 Feb 5, 1998 09/020,903, US 09/309,248 May 10, 1999 Grant US6284569 B1 Sep 4, 2001
US 6,229,200 Jun 10, 1998 US 09/095,803 Jun 10, 1998 Grant US6229200 B1 May 8, 2001
US 6,242,281 Jun 10, 1998 09/020,903, US 09/363,249 Jul 28, 1999 Grant US6242281 B1 Jun 5, 2001
US 6,498,099 Jun 10, 1998 09/095,803, US 09/288,352 Apr 8, 1999 Grant US6498099 B1 Dec 24, 2002
US 7,482,690 Jun 10, 1998 10/757,499, US 11/071,737 Mar 3, 2005 Grant US7482690 B1 Jan 27, 2009
US 6,285,075 Nov 2, 1998 US 09/184,787 Nov 2, 1998 Grant US6285075 B1 Sep 4, 2001
US 6,326,678 Sep 3, 1993 US 08/116,305 Sep 3, 1993 Grant US6326678 B1 Dec 4, 2001
US 6,294,100 Jun 10, 1998 09/288,352, US 09/454,794 Dec 3, 1999 Grant US6294100 B1 Sep 25, 2001
US 6,635,957 Jun 10, 1998 09/288,352, US 09/802,679 Mar 9, 2001 Grant US6635957 B2 Oct 21, 2003
US 6,933,594 Jun 10, 1998 09/095,803, US 09/802,678 Mar 9, 2001 US 2001/0008305 A1 Grant Jul 19, 2001 US6933594 B2 Aug 23, 2005
US 8,330,270 Jun 10, 1998 09/095,803, US 11/008,593 Dec 9, 2004 Grant US8330270 B1 Dec 11, 2012
US 6,585,905 Jun 10, 1998 09/095,803, US 10/115,228 Apr 3, 2002 Grant US6585905 B1 Jul 1, 2003
US 6190943 Jun 8, 2000 US 09/589,197 Jun 8, 2000 Grant US6190943 B1 Feb 20, 2001
US 8,071,426 May 22, 2008 12/154’483’ US 12/838,252 Jul 16, 2010 US 2010/0311208 A1 Grant Dec 9, 2010 US8071426 B2 Dec 6, 2011
US6326700 Aug 15, 2000 09/ 639,202 US 09/639,202 Aug 15, 2000 Grant US6326700 B1 Dec 4, 2001
US 6,429,048 Dec 5, 2000 US 09/730,440 Dec 5, 2000 Grant US6429048 B1 Aug 6, 2002
US 6,545,347 Mar 6, 2001 US 09/799,968 Mar 6, 2001 Us 2002/0125559 A1 Grant Sep 12, 2002 US6545347 B2 Apr 8, 2003

this is the information in sheet 1

this is my code.
what works is that i can only display 1 row and columns variables not 2 or more

Private Sub searchCommandButton_Click()
Dim firstfound As String
Dim FoundCell As Range, rng As Range
Dim myRange As Range, LastCell As Range
Dim fnd As String
Dim iRow As Long
iRow = 3

fnd = variableTextBox.Text

Set myRange = Sheets("Combined patent list").UsedRange
Set LastCell = myRange.Cells(myRange.Cells.Count)
Set FoundCell = myRange.Find(what:=fnd, after:=LastCell)

'Test to see if anything was found
If Not FoundCell Is Nothing Then
firstfound = FoundCell.Address
Else
GoTo NothingFound
End If
Set rng = FoundCell

'Loop until cycled through all unique finds
Do Until FoundCell Is Nothing
'Find next cell with fnd value
Set FoundCell = myRange.FindNext(after:=FoundCell)

'Add found cell to rng range variable
Set rng = Union(rng, FoundCell)

'Test to see if cycled through to first found cell
If FoundCell.Address = firstfound Then Exit Do

Loop

Do
DoEvents
iRow = iRow + 1

Loop Until fnd = Sheets("Combined patent list").Cells(iRow, 3) Or variableTextBox.Text = Sheets("Combined patent list").Cells(iRow, 4) Or variableTextBox.Text = Sheets("Combined patent list").Cells(iRow, 5) Or variableTextBox.Text = Sheets("Combined patent list").Cells(iRow, 6) Or variableTextBox.Text = Sheets("Combined patent list").Cells(iRow, 7) Or variableTextBox.Text = Sheets("Combined patent list").Cells(iRow, 8) Or variableTextBox.Text = Sheets("Combined patent list").Cells(iRow, 9) Or variableTextBox.Text = Sheets("Combined patent list").Cells(iRow, 10) Or variableTextBox.Text = Sheets("Combined patent list").Cells(iRow, 11) Or variableTextBox.Text = Sheets("Combined patent list").Cells(iRow, 12) Or variableTextBox.Text = Sheets("Combined patent list").Cells(iRow, 13) Or variableTextBox.Text = Sheets("Combined patent list").Cells(iRow, 14) Or variableTextBox.Text = Sheets("Combined patent list").Cells(iRow, 15) Or variableTextBox.Text = Sheets("Combined patent list").Cells(iRow, 16)

TextBox2.Text = Sheets("Combined patent list").Cells(iRow, 3)
TextBox3.Text = Sheets("Combined patent list").Cells(iRow, 4)
TextBox4.Text = Sheets("Combined patent list").Cells(iRow, 5)
TextBox5.Text = Sheets("Combined patent list").Cells(iRow, 6)
TextBox6.Text = Sheets("Combined patent list").Cells(iRow, 7)
TextBox7.Text = Sheets("Combined patent list").Cells(iRow, 8)
TextBox8.Text = Sheets("Combined patent list").Cells(iRow, 9)
TextBox9.Text = Sheets("Combined patent list").Cells(iRow, 10)
TextBox10.Text = Sheets("Combined patent list").Cells(iRow, 11)
TextBox11.Text = Sheets("Combined patent list").Cells(iRow, 12)
TextBox12.Text = Sheets("Combined patent list").Cells(iRow, 13)
TextBox13.Text = Sheets("Combined patent list").Cells(iRow, 14)
TextBox14.Text = Sheets("Combined patent list").Cells(iRow, 15)
TextBox15.Text = Sheets("Combined patent list").Cells(iRow, 16)