Code or Name Search

[josros60]

HI,

i have the code below, how can I change it that I can search for either the Vendor name or code cells (the two cells in green?.

here is the code:

Private Sub SearchButton_Click()Dim totRows As Long, i As Long


totRows = WorksheetFunction.CountA(Range("A:A"))


If VendorTextBox.Value = "" Then
 MsgBox "Enter the name you wish to search!"
End If


For i = 2 To totRows
If Trim(Sheet1.Cells(i, 2)) <> Trim(VendorTextBox.Value) And i = totRows Then
MsgBox "Name not found!"


End If
If Trim(Sheet1.Cells(i, 2)) = Trim(VendorTextBox.Value) Then
[COLOR=#008000][B]CodeTextBox.Value = Sheet1.Cells(i, 2)
VendorTextBox.Value = Sheet1.Cells(i, 1)[/B][/COLOR]
BillCycleTextBox.Value = Sheet1.Cells(i, 3)
NotesTextBox.Value = Sheet1.Cells(i, 4)
BankNoTextBox.Value = Sheet1.Cells(i, 5)
TransitNoTextBox.Value = Sheet1.Cells(i, 6)
AccountNoTextBox.Value = Sheet1.Cells(i, 7)
EmailAddressTextBox.Value = Sheet1.Cells(i, 8)
ContactTextBox.Value = Sheet1.Cells(i, 9)
CCEmailTextBox.Value = Sheet1.Cells(i, 10)

Thank you,