VLOOKUP en VBA en diferentes hojas

Mi código no funciona

Function bsimplex(CODIGO As String)
    Dim buscar As Variant
    buscar = Application.WorksheetFunction.VLookup(CODIGO, Workbooks("Prueba.xls").Sheets("Simplex").Range("A"), 2, False)
    If IsError(buscar) Then
        MsgBox ("No se encuentra Codigo")
    End If
    Debug.Print buscar
End Function

1 Respuesta

Respuesta
1

Cambia range a esto:

Range("A:B")

Añade tu respuesta

Haz clic para o

Más respuestas relacionadas