buscar fecha por codigo

"cpjcarlos" escribió en el mensaje
news:

como busco una fecha en una columna por codigo lo intente por
"Selection.Find(What:="16 abr 10, pero a pesar de que la fecha esta
ahi
no se posiciona en la celda tambien agregue datevalue creo que es un
problema
de formato

Hola,

lo más importante es 'qué comparas con qué'. Si los datos que tienes en la
columna son fechas (números de serie) al final debes compararlo con algo del
mismo estilo.
Hay una instrucción, Dateserial(año, mes, día), que devuelve la fecha como
un número de serie.

El siguiente ejemplo busca la fecha definida por el año, mes y día en la
variable mifecha en el rango A1:A50 de valores definidos como fecha.
En caso de no encontrar el dato da error.

Sub test()

Dim c As Range
Dim mifecha As Date

mifecha = DateSerial(2010, 4, 16)

Set c = Range("A1:A50").Find(mifecha, LookIn:=xlValues, lookat:=xlWhole)
Debug.Print c.Row
c.Select

End Sub

Un saludo,
Juan