Macro para Buscar

Amigos de Excel
Necesito una Macro que me tome el nombre de una celda en la Columna "J" y
vaya a buscarlo en la Columna "F".
Es que Activar Celda, Copiar => Ctrl+B => pegar => Buscar Siguiente es muy
dispendioso.

Lo necesito: Activar Celda => Macroy ya!.

Ojalá me puedad ayudar
Gracias

Oscar

Hola Compumakro,

Que tal algo asi:

Sub Test()
With Columns("F:F")
.Find( _
What:=ActiveCell, _
After:=.Cells(2), _
LookIn:=xlValues, _
LookAt:=xlWhole, _
SearchDirection:=xlNext _
).Activate
End With
End Sub

Saludos,
KL


"Compumakro" wrote in message
news:

Amigos de Excel
Necesito una Macro que me tome el nombre de una celda en la Columna "J" y
vaya a buscarlo en la Columna "F".
Es que Activar Celda, Copiar => Ctrl+B => pegar => Buscar Siguiente es
muy dispendioso.

Lo necesito: Activar Celda => Macroy ya!.

Ojalá me puedad ayudar
Gracias

Oscar