VBA Loops - Help Needed!

[biddum]

Hello. I realized with the problem I have I can not solve with formulas due to a need for a loop.
Currently I have a database full of food, each records has food ID, food name, group (healthy/unhealthy), and price.
I have a user enter in an amount of money they have, then I want a random meal to be generated. Right now i have randomized meals appearing which is good, but price has not been considered... I think this is where my loop and VBA skills are needed.
I layout everything in the workbook below. Thank You your help really is apperciated!
example2.xlsx

[Special-K]

Assuming the Food Names are unique (as they indeed are at the moment)

in H4
=INDEX(C$2:C$18,MATCH(G4,B$2:B$18,0),1)

this will get you the price

Mm, I'm guessing you want to pick a selection of meals within the user's budget that they enter. . .

[biddum]

@ Special-K. Thank you, I know how to access the price value, but I want the formula I have (the meal generator) to take in account the number inputted by the user
EX: User enters $3.50
The randomly generated meal that is < = 3.50
I feel this should be simple to do but I do not know how to do it. (at this point, press DELETE in an empty cell for the forumal to generate a new food item)
Thank You!

[Deamo]

If you sort the items in ascending order by their price, you could use something like this:

=INDEX(B2:B18,RANDBETWEEN(2,MATCH(G1,C2:C18,1)),1)

G1 being where i put the price

[biddum]

Unfortunatley I cannot mess around with the layout of the database..

[xladept]

what about taxes and tips???

[biddum]

my updated takes cares of tax, tip it does not. It is not a requirement needed for this system

[benishiryo]

hi biddum. not sure if you received my PM. seems to have problems lately sending out messages. you could provide me a link to the thread you need help with next time. i'm now just guessing it's this one.

i placed a validation in G1 that it cannot be below the minimum amount of both meals. i also did a VLOOKUP to find the prices of the random meals. then i did a coding to recalculate until it is lesser or equals to the Input Amount.

the code is as such:

Sub RandLoop()

Calculate
Do Until Cells(4, "H") + Cells(5, "H") <= Cells(1, "G")
    Calculate
Loop

End Sub

[biddum]

yes thank you! This was the final step I was looking for! Thank you so much for your help