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

28 Comments

  1. martin Reply
    • Oscar Reply
  2. Diego Reply
  3. Pamela Reply
  4. El_Pake Reply
    • TodoExcel Reply
  5. mario oviedo Reply
    • alejandra Reply
    • Ismael Ureta Reply
  6. Gustavo Reply
  7. Andres Ortiz Reply
  8. nelson Reply
    • todoexcel Reply
    • Pedro Reply
  9. kraken Reply
  10. fernando Reply
    • todoexcel Reply
  11. helenn Reply
  12. Maria Alejandra Reply
    • todoexcel Reply
  13. EDGAR VILCA Reply
    • todoexcel Reply
  14. Giovanni Hernandez Reply
    • todoexcel Reply
    • Igor Gutiérrez Reply
  15. Felix Reply
  16. fernando Reply

Leave a Reply

Recibe avisos de nuevas descargas, trucos y tutoriales Excel