Correcto formato para Buscar Fechas con VLookup en Excel VBA
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:B10 contiene fechas en la columna A y datos en la B, pero siempre me sale error. Es frustrante.
3 Respuestas
I. Hola Juan, en mi caso no soy conocedor sólo lector pero quisiera trasladarle la información en Inglés y español que vi sobre este tema por si pudiese serle de alguna utilidad mientras le atiende un experto de primera mano. Le ruego me disculpe las molestias de lectura y la imprecisión, suerte.
https://stackoverflow.com/questions/20961614/unable-to-lookup-a-date-using-vba-vlookup
https://stackoverflow.com/questions/58513353/excel-vba-vlookup-to-find-row-of-date-in-date-range-table
https://www.pk-anexcelexpert.com/how-to-automate-vlookup-in-excel-with-vba/
https://www.youtube.com/watch?v=t39GJ_XmX8I
https://www.youtube.com/watch?v=F8qvhZyaWC8
https://www.youtube.com/watch?v=Bc6fDwP1uF8
https://es.stackoverflow.com/questions/346234/macro-para-doble-buscarv-en-visual-basic
https://www.todoexpertos.com/categorias/tecnologia-e-internet/software-y-aplicaciones/microsoft-excel/respuestas/5mm4fqc8wr8bg/ayuda-vlookup-usado-con-vba
https://es.linkedin.com/pulse/c%C3%B3mo-mejorar-la-funci%C3%B3n-buscarv-de-excel-con-vba-visual-moreno
https://www.mrexcel.com/board/threads/using-vlookup-worksheetfunction-in-vba-to-look-up-a-date-in-a-worksheet.758749/
https://es.stackoverflow.com/questions/396612/vlookup-de-fechas-en-macros-de-2-libros-diferentes
https://exceleinfo2.rssing.com/chan-28593200/all_p5.html
Hola Juan Colqui y bienvenido al foro!
Revisa lo siguiente:
1. Utiliza la instrucción Option Explicit al inicio del código.
Aquí explico las ventajas:
Consejos para empezar a programar
2. Declaraste la variable Fecha como Date, en este caso debe ser como Long.
3. Utilizas la variable Fecha para poner la fecha, pero para buscar pusiste Fechita.
5. Revisa que tengas fechas del año 2023.
Prueba el siguiente código actualizado:
6. Te recomiendo utilizar el método FIND en lugar de Vlookup, aquí explico cómo utilizarlo y unos ejemplos:
Sal u dos
Dante Amor
4. Utiliza Application. VLookup en lugar de Application. WorksheetFunction. VLookup
Si no encuentra la fecha, en la celda C2 te devolverá #N/A
Código actualizado:
Código
Sub prueba()
Dim FeCha As Long
FeCha = CDate("03/10/2023")
Range("C2").Value = Application.VLookup(FeCha, Range("A2:B20"), 2, 0)
End Sub
La variable FeChita no está definida, y en su lugar, estás usando FeCha para buscar en el rango