macros: codigo buscar

[judoka]

hola , esta macro hace lo que pides...
para este ejemplo se supone que los ID estan en la columna A
y las fecha sen la columna B. y el ID a buscar esta en la celda D2


Sub Macro1()

' parte de celda a1 y busca la cantidad de datos en la columna
n = 0
Range("a1").Select
Do While Not IsEmpty(ActiveCell)
ActiveCell.Offset(1, 0).Select
n = n + 1
Loop
'ID a buscar ingresado en la celda D2
valor = Range("D2").Value
' recorre la columna 1 hasta el final buscando el valor
For i = 1 To n
Cells(i, 1).Select
If Cells(i, 1).Value = valor Then
' selecciona la celda de la derecha del valor buscado
ActiveCell.Offset(0, 1).Select
fecha = ActiveCell.Value
End If
Next

Range("d2").Select
' pone la fecha encontrada en la celda f2
Range("f2").Value = fecha

End Sub