Macro de Busqueda Multiple EXCEL

[kekokeka]

HOLA, ME GUSTARIA QUE ALGUIEN ME AYUDARA FACILITANDOME LOS PASOS A SEGUIR PARA REALIZAR UNA MACRO DE BUSQUEDA DE ELEMENTOS EN UNA COLUMNA DE UNA HOJA EXCEL Y DAR EL RESULTADO EN OTRA HOJA.

LOS DATOS A BUSCAR TENDRIAN COMO ORIGEN OTRA HOJA O OTRO LIBRO EXCEL.

[lmg7]

A ver si te sirve ésto.
Esta rutinita busca el número dos en la columna A de la hoja Hoja1, y guarda el resultado (el número de la fila), en la columna A de la hoja Hoja2.

Código:

Sub Busqueda()
Dim Celda As Range
Dim PrimeraCelda As String
    'Los datos a buscar están en la Columna A de la Hoja1 
    With Worksheets(1).Range("A:A")
        'Se va a escribir en Hoja2, columna A, los números de filas
        'donde se encuentra el número dos. 
        Worksheets(2).Select
        Range("A1").Select
        'Busca la primera celda que contiene el número dos. 
        Set Celda = .Find(2)
        'Si Celda = Nothing no se encontró el valor 
        If Not Celda Is Nothing Then           
            PrimeraCelda = Celda.Address
            Do
                'Guarda el resultado 
                Selection.Value = Celda.Row
                'Baja una celda 
                Selection.Offset(1, 0).Activate
                Set Celda = .FindNext(Celda)
            'Termina cuando no existe otra celda con el valor, o
            'cuando encuentra el valor den la primera celda. 
            Loop While Not Celda Is Nothing And PrimeraCelda <> Celda.Address
        End If
    End With
End Sub 

Espero te sirva.