Macro para función buscarv de una hoja a otra
Quisiera me apoyaran con una macro con la función buscarv, tengo hoja llamada "base", con varias columnas, en la columna "A2" tengo los códigos, en la columna "B2" pondría su descripción, hasta que no haya datos en la columna "A", que los obtendría de otra hoja llamada "DAT" que contiene 3 columnas (A, B, C), y la descripción esta en la columna B, en un rango de "A85:C25000", espero me haya dado a entender y agradezco su valiosa ayuda.
Respuesta de Dante Amor
1
H o l a:
Te anexo la macro
Sub Buscar()
'Por.Dante Amor
Set h1 = Sheets("base")
Set h2 = Sheets("DAT")
'
For i = 2 To h1.Range("A" & Rows.Count).End(xlUp).Row
u = h2.Range("A" & Rows.Count).End(xlUp).Row
Set b = h2.Range("A85:A" & u).Find(h1.Cells(i, "A"), lookat:=xlWhole)
If Not b Is Nothing Then
h1.Cells(i, "B") = h2.Cells(b.Row, "B")
Else
h1.Cells(i, "B") = "No existe"
End If
Next
MsgBox "Fin"
End Sub
