ciclo for con fechas

[oruiz]

Buen día.

agradezco a quien pueda colaborarme. Deseo colocar unas fechas de mes en mes pero no me funciona esta macro:

Dim fecha As Date
fecha = #1/7/2017#
For i = 1 To 12
Cells(i + 1)...

Para poder visualizar el resto de este tema y sus adjuntos:
. Si nunca te has registrado puedes registrarte gratis aquí
. Si ya te has registrado debes iniciar sesión aquí

 

[Abraham.Valencia]

Hola

Si mal no te entendí, prueba así:

Sub Ejemplo()

Dim fecha As Date, i As Integer
Let fecha = #1/7/2017#
For i = 1 To 12
    Cells(i, 1) = fecha
    Let fecha = DateAdd("m", 1, fecha)...

Para poder visualizar el resto de este tema y sus adjuntos:
. Si nunca te has registrado puedes registrarte gratis aquí
. Si ya te has registrado debes iniciar sesión aquí

 

[Cacho R]

.
Hola! para "Ambos Dos" (Jejjjejejje). Y si deseas "escaparle" al bucle For-Next puedes probar:

With Range("a2").Resize(12)
  .Cells(1) = DateSerial(2017, 7, 1): .DataSeries...

Para poder visualizar el resto de este tema y sus adjuntos:
. Si nunca te has registrado puedes registrarte gratis aquí
. Si ya te has registrado debes iniciar sesión aquí

 

[Abraham.Valencia]

Hola Cacho, buena alternativa, no se me había ocurrido je je je

Saludos

Abraham Valencia

 

[Cacho R]

.

Hola Cacho, buena alternativa, no se me había ocurrido je je je

Si... ¡Me agarró "un ataque" de ingenio!
:mrgreen: :wink: :D