AYUDA CON MACRO SENCILLA

Hola Javier, a continuación está la macro, pero hay que tener algunas cosas en cuenta que lso nombres de las hojas no debes de cambiar(Hoja1, Hoja2) y que siempre buscará en la columna "B".

Sub Busca_Valor()
Dim rango As Range

Sheets("Hoja1").Activate
valor_buscado = ActiveCell.Value
Set rango = Sheets("Hoja2").Columns(2).Find(what:=valor_buscado)
If rango Is Nothing Then
MsgBox "El valor buscado no existe en la Hoja2"
Exit Sub
End If
fila = rango.Row
Application.GoTo Sheets("Hoja2").Range("B" & fila), True

End Sub

Este es una forma, tal vez otras personas del grupo tengan una mejor forma de realizar al macro.

Espero te sirva, saludos

El viernes, 6 de noviembre de 2015, 11:52:51 (UTC-5), Javier Lopez escribió:

Muchas gracias por atenderme, a ver si alguien me lo soluciona. No soy experto con macros...

Necesito una macro que al ejecutarla me busque el valor de la celda que tenga activa en la columna b de la hoja2 y se coloque en la primera celda que tenga ese valor.

Gracias