hi
I'm trying to create a search option from a database and using the following formula. It's working fine but I would like to define 7 search criteria and I wonder if someone can please help me with that. I have attached a screenshot to show how it will look. Also out of 7 criteria - the system should show either an exact match or whichever meets or closer. Really appreicate your help.
I'm trying to create a search option from a database and using the following formula. It's working fine but I would like to define 7 search criteria and I wonder if someone can please help me with that. I have attached a screenshot to show how it will look. Also out of 7 criteria - the system should show either an exact match or whichever meets or closer. Really appreicate your help.
VBA Code:
Sub searchdata()
Dim erow As Long
Dim ws As Worksheet
Dim lastrow As Long
Dim count As Integer
lastrow = Sheets("Database").Cells(Rows.count, 1).End(xlUp).Row
count = 0
For x = 2 To lastrow
If Sheets("Database").Cells(x, 1) = Sheets("Search").Range("E4") Then
Sheets("Search").Range("A15") = Sheets("Database").Cells(x, 1)
Sheets("Search").Range("B15") = Sheets("Database").Cells(x, 2)
Sheets("Search").Range("C15") = Sheets("Database").Cells(x, 3)
Sheets("Search").Range("d15") = Sheets("Database").Cells(x, 4)
Sheets("Search").Range("e15") = Sheets("Database").Cells(x, 5)
Sheets("Search").Range("F15") = Sheets("Database").Cells(x, 6)
Sheets("Search").Range("G15") = Sheets("Database").Cells(x, 7)
Sheets("Search").Range("H15") = Sheets("Database").Cells(x, 8)
Sheets("Search").Range("I15") = Sheets("Database").Cells(x, 9)
Sheets("Search").Range("J15") = Sheets("Database").Cells(x, 10)
Sheets("Search").Range("K15") = Sheets("Database").Cells(x, 11)
Sheets("Search").Range("L15") = Sheets("Database").Cells(x, 12)
Sheets("Search").Range("M15") = Sheets("Database").Cells(x, 13)
Sheets("Search").Range("N15") = Sheets("Database").Cells(x, 14)
Sheets("Search").Range("O15") = Sheets("Database").Cells(x, 15)
Sheets("Search").Range("P15") = Sheets("Database").Cells(x, 16)
Sheets("Search").Range("Q15") = Sheets("Database").Cells(x, 17)
Sheets("Search").Range("R15") = Sheets("Database").Cells(x, 18)
Sheets("Search").Range("S15") = Sheets("Database").Cells(x, 19)
Sheets("Search").Range("T15") = Sheets("Database").Cells(x, 20)
Sheets("Search").Range("U15") = Sheets("Database").Cells(x, 21)
Sheets("Search").Range("V15") = Sheets("Database").Cells(x, 22)
Sheets("Search").Range("W15") = Sheets("Database").Cells(x, 23)
Sheets("Search").Range("X15") = Sheets("Database").Cells(x, 24)
Sheets("Search").Range("Y15") = Sheets("Database").Cells(x, 25)
Sheets("Search").Range("Z15") = Sheets("Database").Cells(x, 26)
Sheets("Search").Range("AA15") = Sheets("Database").Cells(x, 27)
Sheets("Search").Range("AB15") = Sheets("Database").Cells(x, 28)
Sheets("Search").Range("AC15") = Sheets("Database").Cells(x, 29)
Sheets("Search").Range("AD15") = Sheets("Database").Cells(x, 30)
Sheets("Search").Range("AE15") = Sheets("Database").Cells(x, 31)
Sheets("Search").Range("AF15") = Sheets("Database").Cells(x, 32)
Sheets("Search").Range("AG15") = Sheets("Database").Cells(x, 33)
count = count + 1
End If
Next x
End Sub