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

27 Comments

  1. martin Responder
  2. Diego Responder
  3. Pamela Responder
  4. El_Pake Responder
  5. mario oviedo Responder
    • alejandra Responder
    • Ismael Ureta Responder
  6. Gustavo Responder

Comentar

Tu dirección de correo electrónico no será publicada. Los campos obligatorios están marcados con *