Quote Originally Posted by mehmetcik View Post
Right Click on your sheet name at the bottom of excel and select view code.

Paste this code in the window that opens and close the window.

Your data validation for types needs amending too



Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address <> "$B$1" Then Exit Sub

Set Z = Sheets("data").Rows(1).Find(Target.Value, LookIn:=xlValues, Lookat:=xlWhole)

T = Range(Cells(2, Z.Column), Cells(5, Z.Column)).Address

Range("B3:B6").Value = Sheets("data").Range(T).Value

End Sub
Thank you for your post! This did work to a degree. However, I would like to put them in the order the labels specify.

Where fruits data tab order is:

Fruits

banana
orange
apple
pear

I would like to know how to call them out of order. Item 1 would be banana, but the second label says Item 3 so the resulting default should be apple, and the third label says Item 4 so that would be pear, etc. Is there a way to do that?

Also, what if I decide to put in spaces for the food types(i.e "Juicy Fruits," "Wholesome Vegetables," "Hearty Meats") is this going throw a wrench in the whole thing?