Skip to content

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