Buscarv y repetidos en matriz

Ya te he enviado la solución

Recuerda finalizar la consulta

grandioso si funciona!!! XD

gracias gracias mil gracias graciassssss

por ultimo estoy mirando que es necesario que los datos buscados se pasen a una hoja nueva en este caso hoja2, como te había mencionado es una matriz grande ($f$2:$z$18450). ademas que valor = Range("d3").Value sea des de hoja 2 celda i7

es decir realizar los procesos en hoja2 buscando en datos en hoja1.

gracias

es normal qu e se demore mucho en procesar la información?

Sub prueba()
'por luismondelo
Sheets("Hoja2").Select
Range("e3").ClearContents
Sheets("Hoja2").Select
valor = Range("d3").Value
Sheets("Hoja1").Select
Set busca = ActiveSheet.Range("f2:z1000").Find(valor, LookIn:=xlValues, lookat:=xlWhole)
If Not busca Is Nothing Then
ubica = busca.Address
Do
lista = lista & "," & busca.Offset(0, 1)
Sheets("Hoja1").Select
Set busca = ActiveSheet.Range("f2:z1000").FindNext(busca)
Loop While Not busca Is Nothing And busca.Address <> ubica
End If
lista = Mid(lista, 2, Len(lista) - 1)
lista = Split(lista, ",")
Sheets("Hoja2").Select
Range("e3").Select
For x = 0 To UBound(lista)
ActiveCell.Value = lista(x)
ActiveCell.Offset(1, 0).Select
Next
End Sub