Encontrar fecha cercana

[CarlosKurt]

Hola a tod@s.

Estoy buscando la forma de como encontrar la fecha anterior mas cercana del 2019-01-01 del siguiente listado en la columna A:

FECHA

2017-10-17
2017-10-23
2018-10-31
2019-01-21
2019-01-21
2019-02-28

Resultado:
Seleccionar la fecha 2018-10-31

Saludos

 

[Gerson Pineda]

Hola

Entre varias formas, prueba con:

vf = Application.Match(Range("B1"), Range("A:A"), 1)
Cells(vf, "A").Select

 

Saludos

[CarlosKurt]

Hola @Gerson Pineda, muchas gracias por el aporte. Buscando por otros sitios web agregue algo mas al codigo

Dim c As Date
c = #1/1/2019#
        vf = Application.Match(CLng(c), Range("A:A"), 1)
        Cells(vf, "A").Select

Sin embargo, me pregunto, en caso el listado no estaria en orden como el siguiente:
21/01/2019
17/10/2017
23/10/2017
21/01/2019
31/10/2018
28/02/2019

El resultado seria 23/10/2017 en vez de 31/10/2018

Saludos

[Gerson Pineda]

Carlos

No entiendo porque buscas hacerlo de esa forma, porque se convierte en algo estático y no una variable

Prueba asi

c = VBA.CLng(#1/1/2019#)

 

Saludos