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

Comentar

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