Busqueda y posicionamiento

No estoy seguro de haber entendido qué es lo que necesitas.
Si quieres obtener el número de fila en que aparece por primera vez una palabra en un rango de Hoja1, aunque Hoja1 no sea la hoja activa, el código podría ser:

Dim lngFila As Long
lngFila = Worksheets("Hoja1").Range("A1:C50").Find(What:="LoQueSeBusca", _
After:=Worksheets("Hoja1").Range("A1"), _
LookIn:=xlFormulas, _
LookAt:=xlPart, _
SearchOrder:=xlByRows, _
SearchDirection:=xlNext, _
MatchCase:=False, _
SearchFormat:=False).Row

Al ejecutar el código, la variable lngFila tendría almacenada el número de fila, pero ten en cuenta que si la palabra buscada pudiera no estar en el rango, habría que modificar el código para gestionar o prevenir el error que se produciría.
Un saludo.


Fernando Arroyo
MS MVP - Excel

"Gerardo Roda" escribió en el mensaje news:

Hola a todos
Tengo un problema con una busqueda, algo que pense que era facil y ahora no
me sale y es lo siguiente:
Tengo que buscar una palabra en una rango determinado de otra hoja, y
posicionarme sobre el dato.
Ahi terminaria el codigo que necesito, y lo uno con otro que ya tengo donde
me muestra en un formulario los datos de esa fila.-

gracias

gerardo