Mostrar datos en base a el valor de una celda

[Monimo]

Lo ideal seria recorrer toda la hoja con next y next asi:

supongamos que tienes tres columnas llenas de datos a,b y c y en c tienes la ubicacion. Podrias leer, todas las celdas de la columna c y donde valor_celda_de_la_columna_c="Paris" traer todo el renglon.

si lo encuentras muy trabajoso podrías intetntar esta macor:


on error resume next
Cells.Find(What:="Paris", After:=ActiveCell, LookIn:=xlFormulas, LookAt:= _
xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:=False _
, SearchFormat:=False).Activate
y ke lo haga mientras no haya error.
* aqui escribes en la otra hoja.....
*seleccionas la hoja 2 de nuevo

Cells.FindNext(After:=ActiveCell).Activate