Buscar y seleccionar una celda

hola, Cesar !

Tengo un archivo con una formula en la celda L2
Necesito por medio de una macro buscar el valor del resultado de esa formula (que es variable)
en la columna A de otro archivo y en caso de encontrarlo posicionarme en la celda a la derecha
es decir en la misma fila pero en la columna B.
Como puedo hacerlo?

(p.e.) OJO con los nombre de "el otro libro" y "la hoja X" -???-

Sub Encontrar_en_otro_libro_abierto()
With Workbooks("el otro libro").Worksheets("la hoja X")
If Application.CountIf(.Range("a:a"), Range("L2")) Then
With .Columns("a").Find(ThisWorkbook.ActiveSheet.Range("L2"))
.Parent.Activate
.Offset(, 1).Select
End With
Else
MsgBox "No existe " & Range("L2")
End If
End With
End Sub

saludos,
hector.

Hector el caso concreto es el siguiente:

Tengo un valor en la celda L2 de la hoja "Prestamo" del archivo "Formato
Nota de Prestamo Portatiles.xls"
Debo buscar el valor en la columna A del archivo "Control de Prestamos.xls"
Hoja "Sheet1" y pocisionarme en la celda de la derecha.
Puedes validarme el comando nuevamente?
Gracias y disculpa la molestia.


"Héctor Miguel" wrote:

hola, Cesar !

> Tengo un archivo con una formula en la celda L2
> Necesito por medio de una macro buscar el valor del resultado de esa formula (que es variable)
> en la columna A de otro archivo y en caso de encontrarlo posicionarme en la celda a la derecha
> es decir en la misma fila pero en la columna B.
> Como puedo hacerlo?

(p.e.) OJO con los nombre de "el otro libro" y "la hoja X" -???-

Sub Encontrar_en_otro_libro_abierto()
With Workbooks("el otro libro").Worksheets("la hoja X")
If Application.CountIf(.Range("a:a"), Range("L2")) Then
With .Columns("a").Find(ThisWorkbook.ActiveSheet.Range("L2"))
.Parent.Activate
.Offset(, 1).Select
End With
Else
MsgBox "No existe " & Range("L2")
End If
End With
End Sub

saludos,
hector.

hola, Cesar !

... el caso concreto es el siguiente:
Tengo un valor en la celda L2 de la hoja "Prestamo" del archivo "Formato Nota de Prestamo Portatiles.xls"
Debo buscar el valor en la columna A del archivo "Control de Prestamos.xls" Hoja "Sheet1" y pocisionarme en la celda de la derecha.
Puedes validarme el comando nuevamente?

la instruccion es "la misma"... solo cambia los nombres en la primera linea...
de:
With Workbooks("el otro libro").Worksheets("la hoja X")
a:
With Workbooks("control de prestamos.xls").Worksheets("sheet1")

y... la macro debe estar en un modulo de codigo estandar en el libro donde buscas el resultado de la formula en "L2"
y... la hoja donde esta la celda "L2" con la formula cuyo resultado se busca, debe estar como la hoja "activa"

saludos,
hector.

__ OP __

Tengo un archivo con una formula en la celda L2
Necesito por medio de una macro buscar el valor del resultado de esa formula (que es variable)
en la columna A de otro archivo y en caso de encontrarlo posicionarme en la celda a la derecha
es decir en la misma fila pero en la columna B.
Como puedo hacerlo?

(p.e.) OJO con los nombre de "el otro libro" y "la hoja X" -???-

Sub Encontrar_en_otro_libro_abierto()
With Workbooks("el otro libro").Worksheets("la hoja X")
If Application.CountIf(.Range("a:a"), Range("L2")) Then
With .Columns("a").Find(ThisWorkbook.ActiveSheet.Range("L2"))
.Parent.Activate
.Offset(, 1).Select
End With
Else
MsgBox "No existe " & Range("L2")
End If
End With
End Sub