Estimados Expertos Muy cordiales saludos.

Me encuentro entrampado en algo muy simple, pero que no había tocado, búsqueda de fecha usando application.Worksheetfunction.Vlookup

Me propuse un cuadro simple, para buscar fechas, para tratar de ser más simple posible, pero aún así no doy con el error.

Esta es la macro:

Sub prueba()
    Dim FeCha As Date
    FeCha = cDate("02/10/2022")
    Range("C2").Value = Application.WorksheetFunction.VLookup(FeChita, Range("A2:B20"), 2, 0)
End Sub

 

Donde el Rango A2:B20 contiene fechas en la columna A y datos en la B, pero siempre me sale error. Es frustrante. Gracias adelantadas por su apoyo en la respuesta

BUSQUEDA.xlsx

Te recomiendo usar Find() en lugar de VlookUp() para hacer búsquedas desde VBA.

Así, me ha funcionado.

Sub prueba()
   fecha = "01/10/2022"
   Set resultado = Range("A2:B10").Find(fecha, , xlValues, xlWhole)
   If Not resultado Is Nothing Then
      Range("C2") = resultado.Offset(, 1)
   Else
      resultado.Offset(, 1) = ""
      MsgBox "Fecha " & fecha & " no encontrada", vbInformation
   End If
End Sub

 

Gracias por la pronta respuesta Antoni. Dios lo bendiga.