Vlookup Seems to Work, but Still Throws Error Code (1004)

[MarsBars]

Good Morning,

I have a vlookup that keeps throwing an error code, but only after it has completed it's job. It will populate all of the cells in the desired range with the correct values and then throw the error. Can anyone tell me what's going wrong with this?

Dim v As Integer
v = 2
Do While Cells(v, 1) <> ""
Dim Bvalue As String
Bvalue = Application.WorksheetFunction.VLookup(Report.Sheets(2).Cells(v, 1).Value, _
Workbooks("Internal.xls").Sheets(1).Range("A:G"), 7, False)
Report.Sheets(2).Cells(v, 2).Value = Bvalue
v = v + 1
Loop

Thanks in advance!

 

[ww4612]

why do you type "Report.sheets(2)"? why not sheets(2)?
in addition, change the range into

range(Workbooks("Internal.xls").Sheets(1).columns(1), Workbooks("Internal.xls").Sheets(1).columns(7))

 

[Norie]

Try this.

Dim v As Integer
Dim BValue As Variant

    v = 2
    
    Do While Cells(v, 1) <> ""

        With Report.Sheets(2).Cells(v, 1)

            BValue = Application.VLookup(.Value, Workbooks("Internal.xls").Sheets(1).Range("A:G"), 7, 0)

            If Not IsError(BValue) Then
                Report.Sheets(2).Cells(v, 2).Value = BValue
            End If

        End With

        v = v + 1

    Loop

 

[MarsBars]

Thanks for the help. Unfortunately my computer froze and I lost this part of the code (and more). I will reconstruct it tomorrow or monday, and let you know if one of those suggestions works. Sorry for the delay.