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

21 Comments

  1. fernando Responder
  2. Felix Responder
  3. Giovanni Hernandez 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
  13. El_Pake Responder

Comentar

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