Para DANTE AMOR Macro que me rellene secuencia de fechas
De antemano muchas gracias, solicito que por favor me ayude en la creación de una macro en VBA Excel, donde sabiendo una fecha inicial y una fecha final me rellene las celdas con una secuencia de fechas.
En la celda "C2" se coloca 23/12/2014 como fecha inicial
En la celda "D2" se coloca 02/01/2015 como fecha final
A partir de la celda "A2" debe rellenarse de la siguiente manera:
23/12/2014
24/12/2014
25/12/2014
26/12/2014
27/12/2014
28/12/2014
29/12/2014
30/12/2014
31/12/2014
01/01/2015
02/01/2015
Tener en cuenta que las fechas tanto inicial como la fecha final, son fechas que varían, se deben tener en cuenta también años bisiestos.
Esto lo requiero para que al contar número de días transcurridos me salte ese rango de fechas, por asunto de Vacaciones, ésta última parte ya la tengo solucionada, solo requiero ayuda para rellenar la secuencia de fechas descritas en el ejemplo.
Mil gracias.
1 Respuesta
Te anexo la macro
Sub RellenarFechas() 'Por.Dante Amor Dim fini As Date, ffin As Date ' fini = [C2] ffin = [D2] j = 2 Range([a2], "A" & Rows.Count).ClearContents If fini > ffin Then Exit Sub ' Do While fini <= ffin Cells(j, "A") = fini fini = fini + 1 j = j + 1 Loop End Sub
Saludos.Dante Amor
Recuerda valorar la respuesta.
¡Gracias! Excelente y ágil Ayuda. Mil Gracias.
Podría pedirte de favor que valores la respuesta:
Al final de mi respuesta dice: “Es una buena respuesta” y puedes seleccionar una de 3 opciones:
- Excelente
- Si
- No
Si ya la valoraste, también puedes cambiar la valoración.
