Macro VBA para insertar fechas automáticamente
Ando buscando una macro o una guía para poder programar una macro en VBA que haga lo siguiente.
Tengo una fecha inicial y una fecha final. Quiero que dependiendo de los meses de diferencia entre las dos fechas, me agregue la cantidad de filas necesarias con las fechas correspondientes.
Fecha inicial: 01-02-2018
Fecha Final: 31-08-2018 Meses transcurridos= 7
Quiero que agregue la cantidad de 7 filas y en cada fila me coloque la fecha que corresponde, es decir:
a1= 01-03-2018
b1= 01-04-2018
C1=01-05-2018 y así sucesivamente hasta la fecha final.
Agradezco a quien me pueda ayudar con esta inquietud.
1 respuesta
Respuesta de Abraham Valencia
1
[Hola
No mencionas algunos detalles como que de dónde sacas las fechas, pero como para que te des una idea mira esto:
Sub Fechas()
Dim fecha1 As Date, fecha2 As Date
Dim x As Integer, y As Integer
Let fecha1 = #2/1/2018#
Let fecha2 = #8/31/2018#
Let y = 1
For x = Month(fecha1) + 1 To Month(fecha2) - 1
Range("A" & y) = DateSerial(2018, x, 1)
Let y = y + 1
Next x
End SubSaludos]
Abraham Valencia
