Vlookup Date

[mezzy01]

Hi board,

Can you tell me why this code can not look up dates. I've got a date in A1 and dates in A:B (Column A). It would be very much appreciated....thanxs

Sub Example_of_Vlookup()
Dim lookFor As Range
Dim rng As Range
Dim col As Integer
Dim found As Variant

Set lookFor = Sheets("Sheet1").Range("A1")
Set rng = Sheets("b").Columns("A:B")
col = 2

On Error Resume Next
found = Application.VLookup(lookFor.Value, rng, col, 0)
If IsError(found) Then
MsgBox lookFor & " not found"
Else: MsgBox "The look-up value of " & lookFor & " is " & found & " in column " & col
End If
On Error GoTo 0
End Sub

 

[Norie]

What problems are you having?

 

[Von Pookie]

You are missing the word WorksheetFunction.

It should be Application.WorksheetFunction.Vlookup

 

[Norie]

Kristy

Well spotted, didn't even see that.

 

[mezzy01]

Thanxs for the fix.

Now that's working, how can I paste a range from Sheets("Sheet1")to the right of the date found in Sheets("b")

Would appreciate some help

thanxs

 

[Juan Pablo González]

You are missing the word WorksheetFunction.

It should be Application.WorksheetFunction.Vlookup

Actually, that's not required. And I'm really surprised that it works with the WorksheetFunction and not without it, that's the first time I've seen that.

 

[Von Pookie]

I couldn't get it to work correctly until I added WorksheetFunction. *shrug*

I usually leave off Application and just use WorksheetFunction, myself