Macro para encontrar la fecha más cercana a otra

[Gsus]

Buenas,

Hice una macro para encontrar la fecha más cercana a un listado de fechas que tengo en la columna A de hoja Inicio buscando en hoja BBDD o en hoja BBDD_2, y me ponga en columna B de hoja Inicio la fecha más cercana.

El caso es que si solo pongo fechas del mismo año lo hace correctamente, pero en el momento que trabajo con fechas del año anterior o el siguiente no.

He probado de dos formas: Con datos de hoja BBDD y hoja BBDD_2. En ambas el resultado no es correcto y no consigo solucionarlo. ¿Alguna idea de cómo hacer esto?

Os adjunto ejemplo.

Gracias!

Ejemplofechas.zip

[Antoni]

Prueba a ver si es esto para la BBDD.

Para la BBDD2, solo tienes que cambiar Hoja2 por Hoja3.

Sub MinFechaBBDD()
Application.ScreenUpdating = False
For x1 = 2 To Hoja1.Range("A" & Rows.Count).End(xlUp).Row
   dif = 9999999
   For x2 = 2 To Hoja2.Range("A" & Rows.Count).End(xlUp).Row
      If Hoja1.Range("A" & x1) > Hoja2.Range("A" & x2) Then
         días = Hoja1.Range("A" & x1) - Hoja2.Range("A" & x2)
      Else
         días = Hoja2.Range("A" & x2) - Hoja1.Range("A" & x1)
      End If
      If días < dif And días > 0 Then
         dif = días
         fecha = Hoja2.Range("A" & x2)
      End If
   Next
   Hoja1.Range("B" & x1) = fecha
Next
End Sub

 

[JasallBcn]

Buenas, ya que lo tenia lo paso. veo que es la misma idea que la de @Antoni .

saludos

 

Ejemplofechas.xlsm

[Gsus]

Gracias a los dos!