Search to return multuiple values

[daddyfoxuk]

Good Afternoon, i stuck and really in need of some help.... I have part number in colum A (Thousands) and pallet numbers in B with a time stamp in C. What i would like to be able to do is type in a part number and then display all the results of that pallets which is taken from B. The same part number will be in the list a few times so i need it to dispaly all the result of that part. This would have to be done on a large scale as we can have upto 100 parts being searched for at any one point. Spread sheet looks something like the below. So when i type a part number in the search it will show the results of the pallet numbers this part has been in and the time at the end.

Hope this makes sense and someone can help me, this would be amazing!

Thank You!

Part Number	Pallet Number	Time Stamp		Search Below	Pallet Number	Pallet Number	Pallet Number	Pallet Number	Pallet Number	Time Stamp
123456	10	05/12/2016 17:14
654321	20	06/12/2016 16:14
987654	30	05/12/2016 19:14
123456	40	05/12/2016 10:14
654321	50	05/12/2016 16:14
987654	60	05/12/2016 16:14

<colgroup><col width="202" style="width: 152pt; mso-width-source: userset; mso-width-alt: 7387;"> <col width="153" style="width: 115pt; mso-width-source: userset; mso-width-alt: 5595;"> <col width="132" style="width: 99pt; mso-width-source: userset; mso-width-alt: 4827;"> <col width="14" style="width: 11pt; mso-width-source: userset; mso-width-alt: 512;"> <col width="123" style="width: 92pt; mso-width-source: userset; mso-width-alt: 4498;"> <col width="133" style="width: 100pt; mso-width-source: userset; mso-width-alt: 4864;" span="5"> <col width="96" style="width: 72pt; mso-width-source: userset; mso-width-alt: 3510;"> <tbody> </tbody>

 

[portews]

How about a simple Autofilter?

Try this:

Sub FilterTo1Criteria()
Dim x As Variant
x = InputBox("Input Part Number", "Part Number Search")


With ActiveSheet
            .AutoFilterMode = False
            .Range("A:K").AutoFilter
            .Range("A:K").AutoFilter Field:=1, Criteria1:=x
    End With
End Sub