Ciclo For Para Poner Días

 

Generar días del mes cada tres renglones poner el siguiente día.

Generar los días del mes dejar tres renglones y en cuarto poner el día del mes en una hoja de excel

Por ejemplo:

Fila uno: miércoles 1 de noviembre de 2023

Fila dos.

Fila tres

Fila cuatro

Fila cinco: jueves 2 de noviembre del 2023

Macro:

------------------------

Sub ponerdias()
  Dim dia As Long, finmes As Long, n As Long
  
  n = 1
  finmes = Day(WorksheetFunction.EoMonth(Date, 0))
  For dia = 1 To finmes
    Range("A" & n).Value = DateSerial(Year(Date), Month(Date), dia)
    n = n + 4
  Next
End Sub

------------------------

Para cualquier mes, cambia "dic" por el mes que necesitas

-----------------------

Sub ponerdias()
  Dim dia As Long, finmes As Long, n As Long
  Dim fecha As Date
  
  fecha = CDate("01/dic/2023")
  n = 1
  finmes = Day(WorksheetFunction.EoMonth(fecha, 0))
  For dia = 1 To finmes
    Range("A" & n).Value = DateSerial(Year(fecha), Month(fecha), dia)
    n = n + 4
  Next
End Sub

-----------------------