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

[TABLE="class: grid, width: 500"]
<TBODY>[TR]
[TD]Date
[/TD]
[TD]DID#
[/TD]
[TD]Location
[/TD]
[TD]Type
[/TD]
[TD]Owner
[/TD]
[/TR]
[TR]
[TD]12/13/14
[/TD]
[TD]123
[/TD]
[TD]Anywhere
[/TD]
[TD]Flooring
[/TD]
[TD]RL
[/TD]
[/TR]
[TR]
[TD]2/8/14
[/TD]
[TD]567
[/TD]
[TD]Springfield
[/TD]
[TD]Painting
[/TD]
[TD]SA
[/TD]
[/TR]
[TR]
[TD]4/1/14
[/TD]
[TD]123
[/TD]
[TD]Anywhere
[/TD]
[TD]Break/Fix
[/TD]
[TD]SL
[/TD]
[/TR]
[TR]
[TD]3/16/14
[/TD]
[TD]490
[/TD]
[TD]Somewhere
[/TD]
[TD]Flooring
[/TD]
[TD]RL
[/TD]
[/TR]
</TBODY>[/TABLE]

 

[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