Run macro until row is empty

Hi.

Need a macro that will run until next row is empty.
two inputs are needed...if the two inputs are present in the databse, then it will show the other details

my idea is using VLOOKUP

if(item = item and month= month, vlookup(???????), "")

Please see attachment

TIA

You will have to make sure the entries are the same as the items in the data Sheet.
I used an example of DataValidation to Make sure the Items to find were the same as the items in the Data sheet.

Originally Posted by smalltime

davesexcel

thanks..it works perfectly

about data validation..my file already has one.


thanks

I did a double check, your example had "Pencil" instead of "pencil",
I checked for data Validation the worksheet did not have one.

i suppose this code would work, when running it XL will assume it is for the active worksheet.

Sub Button1_Click()
    Dim r As Range, i As Range, m As Range, c As Range, ws1 As Worksheet
    Set ws1 = Worksheets("Database")
    Set i = Range("B1")
    Set m = Range("B2")
    Set r = ws1.Range("B5", ws1.Range("B65536").End(xlUp))
        Range("A5:G65536").Clear

    For Each c In r.Cells
        If c = i Then
            If c.Offset(0, 5) = m Then
                c.Offset(0, -1).Range("A1:G1").Copy Destination:=Range("A65536").End(xlUp).Offset(1, 0)
            End If
        End If

    Next c
End Sub