Este fórum está sendo desativado

[NemPensar]

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.

[Foxtri]

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

[osvaldomp]

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

Código: Selecionar todos

Sub ColocarCertinho()
 If [A2] <> "" Then Range("A2:A" & Cells(Rows.Count, 1).End(3).Row) = ""
 Range("A1").AutoFill Destination:=Range("A1").Resize(Day(Application.EoMonth([A1], 0))), Type:=xlFillDays
End Sub