Search to return multuiple values

daddyfoxuk

Board Regular
Joined
Nov 18, 2016
Messages
68
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 NumberPallet NumberTime StampSearch BelowPallet NumberPallet NumberPallet NumberPallet NumberPallet NumberTime Stamp
1234561005/12/2016 17:14


6543212006/12/2016 16:14
9876543005/12/2016 19:14
1234564005/12/2016 10:14
6543215005/12/2016 16:14
9876546005/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>
 

Excel Facts

Copy formula down without changing references
If you have =SUM(F2:F49) in F50; type Alt+' in F51 to copy =SUM(F2:F49) to F51, leaving the formula in edit mode. Change SUM to COUNT.
How about a simple Autofilter?

Try this:

Code:
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
 
Upvote 0

Forum statistics

Threads
1,213,501
Messages
6,114,010
Members
448,543
Latest member
MartinLarkin

We've detected that you are using an adblocker.

We have a great community of people providing Excel help here, but the hosting costs are enormous. You can help keep this site running by allowing ads on MrExcel.com.
Allow Ads at MrExcel

Which adblocker are you using?

Disable AdBlock

Follow these easy steps to disable AdBlock

1)Click on the icon in the browser’s toolbar.
2)Click on the icon in the browser’s toolbar.
2)Click on the "Pause on this site" option.
Go back

Disable AdBlock Plus

Follow these easy steps to disable AdBlock Plus

1)Click on the icon in the browser’s toolbar.
2)Click on the toggle to disable it for "mrexcel.com".
Go back

Disable uBlock Origin

Follow these easy steps to disable uBlock Origin

1)Click on the icon in the browser’s toolbar.
2)Click on the "Power" button.
3)Click on the "Refresh" button.
Go back

Disable uBlock

Follow these easy steps to disable uBlock

1)Click on the icon in the browser’s toolbar.
2)Click on the "Power" button.
3)Click on the "Refresh" button.
Go back
Back
Top