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

15 respuestas a Replicar BUSCARV con macros

Deja un comentario

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

Puedes usar las siguientes etiquetas y atributos HTML: <a href="" title=""> <abbr title=""> <acronym title=""> <b> <blockquote cite=""> <cite> <code> <del datetime=""> <em> <i> <q cite=""> <strike> <strong>