Fórmula excel

Si me dices los rangos de donde están los datos te paso la fórmula
pero eso si en ningún caso te dará más que el 1º valor encontrado si se repiten tendríamos que ir a fórmulas coincidir etc o bien a macros
si lo prefieres pásame tu archivo y te lo adapto
d2enrique arroba hotmail.com

Buenas tardes,
no tengo el archivo original, pero te he mandado uno que es "igual" al que necesito introducir las fórmulas.
Miles de gracias por tu ayuda!
Saludos

Hola,
Me gustaría saber si has recibido el archivo y si hay alguna fórmula para lo que estoy buscando...
Gracias de nuevo

Si recibí tu archivo ya te lo mande por correo en el te pongo las explicaciones
Como con fórmulas no resulta fácil te cree un código que te busca el dato y te devuelve el valor de fecha y hora, la macro se ejecuta sola cuando introduces un dato en B2
Pruébalas y ya me cuentas

Buenos días,
millones de gracias! ¿Solamente una preguntilla más... la macro la podría exportar a otros archivos?(Soy un tanto pez en enstas cosas, por no decir nula...)

Si claro que puedes solo has de copiarla y pegarla
cuando habrás excel pulsa ctrl + F11 en la ventana que se te abrirá pinchas en insertar
y en modulo
en la hoja blanca que se te abrirá pegas este código
'busca un dato y copia 1º valor columna y fila
Sub busco_y_copio()
'desarrollada por d2enri 5-4-2011
Dim n As Range
    Application.ScreenUpdating = False
    palabra_a_buscar = Range("B2").Value
    If palabra_a_buscar = "" Then Exit Sub
    Set n = Worksheets("Hoja1").Cells.Find(What:=palabra_a_buscar)
    If n Is Nothing Then
        MsgBox "No he encontrado nada. Lo siento."
    Else
'posicionarse en el dato encontrado:
Sheets("Hoja1").Select
n.Select
       ' fila = n.Row
n.EntireRow.Select
ActiveCell.Select
ActiveCell.Copy
Sheets("Hoja2").Select
Range("B3").Select
ActiveSheet.Paste
    Application.CutCopyMode = False
Sheets("Hoja1").Select
n.Select
n.EntireColumn.Select
ActiveCell.Select
ActiveCell.Copy
Sheets("Hoja2").Select
Range("B4").Select
ActiveSheet.Paste
    Application.CutCopyMode = False
Application.ScreenUpdating = True
End If
End Sub
Luego ha la izquierda veras las hojas haces doble clic en Hoja2 y en la ventana blanca que se te abrirá pegas este otro
  If Target.Address = "$B$2" And Target.Value <> "" Then
busco_y_copio
End If
End Sub
Cierras y ya lo tienes si te parece complicado siempre te queda la opción de copiar todos los datos del otro archivo y pegarlos en el que ya tiene las macros
Si necesitas alguna aclaración más dímelo