Help on setting up a search page

[RandyL21]

I am trying to setup a search page in a worksheet on a document. I want to be able to search by an indicator (DID#), but there maybe multiples of the same (DID#) in the data. I want to be able to have each instance of the multiples displayed on the search page. In addition, I want to reference other data that matches that (DID#) in seperate cells.

Please see below, I want to have a search area that I can input the DID# and have a return of the corresponding info for that row. If I search "123" there are 2 entries and will need both displayed. The data is much bigger, but this is just a sample.

Can someone please help me with this, I would prefer a formula based solution, but I am OK with VBA.

Thanks,
Randy

Date	DID#	Location	Type	Owner
12/13/14	123	Anywhere	Flooring	RL
2/8/14	567	Springfield	Painting	SA
4/1/14	123	Anywhere	Break/Fix	SL
3/16/14	490	Somewhere	Flooring	RL

<TBODY>
</TBODY>

 

[richarddec]

An easy way to do this would be an advanced filter. The link I used to figure it out is below. I hope this helps and if you have anyother questions after trying it out, please let me know.

Filter by using advanced criteria - Excel

 

[ttdk1]

Date	DID#	Location	Type	Owner	​	​
​	​	​	​	​	Search	Clear
​	​	​	​	​	​	​
Date	DID#	Location	Type	Owner	​	​
########​	123​	Anywhere	Flooring	RL	​	​
2/8/2014​	567​	Springfield	Painting	SA	​	​
4/1/2014​	123​	Anywhere	Break/Fix	SL	​	​
########​	490​	Somewhere	Flooring	RL	​	​
​	​	​	​	​	​	​
​	​	​	​	​	​	​
​	​	​	​	​	​	​

<tbody>
</tbody>

Sub clear_filter()
With ActiveSheet
.AutoFilterMode = False
.Range("A5:E1000").AutoFilter
.Range("A2:E2").ClearContents
End With
End Sub


Sub search_filter()
With ActiveSheet
.AutoFilterMode = False
If .Range("A2").Value <> "" Then .Range("A5:E1000").AutoFilter Field:=1, Criteria1:=.Range("A2").Value
If .Range("B2").Value <> "" Then .Range("A5:E1000").AutoFilter Field:=2, Criteria1:=.Range("B2").Value
If .Range("C2").Value <> "" Then .Range("A5:E1000").AutoFilter Field:=3, Criteria1:=.Range("C2").Value
If .Range("D2").Value <> "" Then .Range("A5:E1000").AutoFilter Field:=4, Criteria1:=.Range("D2").Value
If .Range("E2").Value <> "" Then .Range("A5:E1000").AutoFilter Field:=5, Criteria1:=.Range("E2").Value
End With
End Sub

Assign the macros to the search and clear button. You can input any combination of five criterias