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