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 Responder
    • Oscar Responder
  2. Diego Responder
  3. Pamela Responder
  4. El_Pake Responder
  5. mario oviedo Responder
    • alejandra Responder
    • Ismael Ureta Responder
  6. Gustavo Responder
  7. Andres Ortiz Responder
  8. nelson Responder
    • todoexcel Responder
    • Pedro Responder
  9. kraken Responder
  10. fernando Responder
  11. helenn Responder
  12. Maria Alejandra Responder
  13. EDGAR VILCA Responder
  14. Giovanni Hernandez Responder
    • todoexcel Responder
    • Igor Gutiérrez Responder
  15. Felix Responder
  16. fernando Responder

Comentar

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

Recibe avisos de nuevas descargas, trucos y tutoriales Excel

* Podrás darte de baja cuando quieras!