Macro para buscar desde una hoja datos de otra

hola, Jorge !

... estoy trabajando en Estado.xls y a cada rato alguien llega a preguntar en que fecha se incluyo el rol xxx en el estado.
Eso me obliga a cambiarme de hoja para realizar la busqueda, encontrarla, cerrarla, etc...

copia/pega (o escribe) la siguiente macro en el mismo modulo donde esta la macro anterior
(la ejecutas cada vez que te pregunten por algun "rol" desde cualquiera de las hojas -Estado p.e.-)

Sub Busca_Fecha_Rol()
Dim Rol As Integer, Fila As Integer, Msj As String
Rol = CInt(Trim(InputBox("Ingresa el Rol a buscar...")))
If Rol = 0 Then Exit Sub Else On Error GoTo NoExiste
Msj = "El Rol Buscado: " & Rol
With Worksheets("historico")
Fila = .Columns("b").Cells.Find(Rol).Row
MsgBox Msj & " fue registrado el: " & Format(.Range("a" & Fila), "dd-mmm-yy")
End With
Exit Sub
NoExiste:
MsgBox Msj & " No existe !!!"
End Sub

saludos,
hector.