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.
