macros: codigo buscar

[javiergal]

hola

necesito buscar en una columna de excel pero solo en una columna de tal manera:

id fecha
1 12-10-04
2 13-10-04
3 14-10-04

solo quiero buscar en la columna id para poder compararlo con otro valor y mostrar el valor de la fecha correspondiene al id, quiero que no se busque en la columna fecha y esto codigo de macros (micorosft visual basic)

agradezco de antemano su ayuda

[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