buscar el valor de una celda en otro libro con muchas hojas

[alexquaresma]

Hola, tengo un problema con el metodo find y no encuentro como solucuionarlo.

Hice una macro que me busca el valor de una celda en otro libro (base de datos) de excel y me copia la columna completa donde encuentra el valor. El problema es que no logro hacer que el metodo Find funcione. He intentado adaptar los codigos que encuentro de internet pero no he tenido éxito. Creo mis propias macros pero no tengo muchas experiencia en el campo aún.

Copio el código abajo para explicarme mejor. Espero alguien pueda ayudarme. Saludos.

Sub copiar_escenarios_matrices()
Dim x, y
Dim instrumento
Dim busqueda As Object
Dim basedatos As Excel.Workbook

Windows("VAR.xls").Activate
Sheets("lista").Select
While Range("j3").Offset(x, 1) <> ""
instrumento = Range("j3").Offset(x, 1).Value


Windows("conglomerado matrices.xls").Activate
Set basedatos = ActiveWorkbook

Set basedatos = .Find(instrumento, Cells(1, 1), xlWhole, xlPart, xlByRows, xlNext, False).Activate

ActiveCell.Select
Range(Selection, Selection.End(xlDown)).Select
Selection.Copy
Windows("VAR.xls").Activate
Sheets("calculadora var").Select
Range("a1").Offset(0, y + 1).Select
Selection.PasteSpecial Paste:=xlPasteValues

y = y + 1

x = x + 1
Sheets("lista").Select
Application.CutCopyMode = False
Wend

End Sub