Replicar BUSCARV con macros

Con esta macro se pueden hacer búsquedas, similar a lo que se hace usualmente con la función Excel BUSCARV.

 

Sub Buscar()
‘Definimos variables
Dim lookupvalue As Variant, value As Variant, lookupRange As Range

value = Range(“A1”).value ‘celda con el valor que buscamos

Set lookupRange = Range(“A10:C100”) ‘rango donde buscar

‘Queremos la columna 3
lookupvalue = Application.VLookup(value, lookupRange, 3, False)

‘Si no encuentra valor finaliza
If IsError(lookupvalue) Then
Exit Sub

‘Si lo encuentra lo devuelve
Else
MsgBox lookupvalue
End If

End Sub