Guru do Excel e Power BI

Olá, gente!!


Queria fazer uma rotina que, pelo data, identifique o mes e colocar certinho todos os dias daquele mes em uma determinada planilha dentro do arquivo excel. Isso será acionado por um botão de um form.

Tipo, na data 01/04/2021. Queria que ele identificasse o mes 04. Identificado, em uma coluna, coloca em cada linha dela em uma célula determinada pra iniciar essa ação, para cada linha a partir dessa celula de inicio, escrever na vertical todos os dias do mes. Se houver valores(data) nas celulas que isso será feito, então colar por cima no formato dd/mm/aaa.

Bom dia
Como vc não postou uma planilha com os detalhes necessários, deixo uma rotina básica que gera os
dias, conforme o mês escolhido.
Adapte conforme a sua necessidade.

Sub TodosDias()
Dim XDias() As Date
Dim DiasnoMes As Long, i As Long
Dim XAno As Long, XMes As Long
XAno = 2021
XMes = 4
DiasnoMes = DateSerial(XAno, XMes + 1, 1) - DateSerial(XAno, XMes, 1)
ReDim XDias(1 To DiasnoMes)
For i = 1 To DiasnoMes
XDias(i) = Format(DateSerial(XAno, XMes, i), "mm/dd/yyyy")
Next
ActiveCell.Value = MonthName(XMes)
Range(Cells(ActiveCell.Row + 1, ActiveCell.Column), Cells(ActiveCell.Row + 1, ActiveCell.Column)).Resize(UBound(XDias)) = Application.Transpose(XDias())
End Sub

Até

Foxtri

#
Em A1 ~~~> 01/04/2021