Do Until Statements

[waxb18]

Ive read up a little bit about Do Until statements,

What i wanted to know was how would i go about combining a vlookup statement with a "do until" the date = 30/11/2010

the date is in column P

 

[Trevor G]

What do you want to do once it finds the cell value?

 

[mikerickson]

One of the purposes of VLOOKUP is to avoid Do...Loop Until loops.

Dim i As Long

i = 1
Do
    If Cells(i, 1) = "cat" Then 
        MsgBox Cells(i, 3)
        Exit Sub
    End If
    i = i + 1
Loop Until Cells(i, 1) = vbNullString

does the same thing as

MsgBox WorksheetFunction.VLookup("cat", Range("A1:C9999"), 3, False)

 

[waxb18]

What do you want to do once it finds the cell value?

nothing...just to stop

 

[waxb18]

its ok i sussed it:

Range("AD2").Select
ActiveCell.FormulaR1C1 = _
"=VLOOKUP(RC[-26],'[FM REPORT 2011-12 TEMPLATE =.xlsm] Raw Data'!C4:C30,27,FALSE)"

Range("P2").Select
Do Until Left(ActiveCell * 1, 5) * 1 >= 40513
ActiveCell.Offset(1, 0).Select
Loop

myrow = ActiveCell.Row - 3

Range("AD2").Select
Range(ActiveCell, ActiveCell.Offset(myrow, 0)).Select
Selection.FillDown
ActiveSheet.Calculate