Buscar un registro con función VLookup VBA

 

Buscar VLookup

1.-Función buscar.

2.-Capture la clave que desea buscar.

3.-Matriz, rango o tabla donde están los datos.

4.-Número de columna donde esta el dato que se desea obtener.

5.-Decirle que la información esta revuelta.

Sub BuscarRegistro()

Dim articulos As Object

'Intriducimos la clave a buscar

strclave = 2

'Declaramos y ejecutamos la variable de tipo objeto

Set articulos = Hoja1.Range("A1:D20")

'Buscamos y almacenamos el nombre                      '1           2            3       4     5

strnombre = Application.WorksheetFunction.VLookup(strclave, articulos, 2, False)

'Enviamos el mensaje con el nombre encontrado

MsgBox "El nombre encontrado es: " & strnombre

End Sub

Nombre encontrado con VLookup