Notifications
Clear all
2024 - VBA & Macros
3
Posts
2
Usuários
0
Reactions
882
Visualizações
Topic starter
Pessoal, podem me ajudar com um código em que na coluna A de uma aba ela me traga os dias do mês em que está sendo gerada e na coluna B os dias da semana?
Exemplo, hoje é dia 13.04.2015, e ao acionar macro ela me traria do dia 01 ao dia 30.04, e na coluna B como segunda , terça e assim por diante. Se a macro for executada no mês 05, todos os dias do mês 05, e assim por diante.
Postado : 12/04/2015 9:07 pm
Veja se isso atende...
Sub PreecheDias() QtdeDias= Day(Application.WorksheetFunction.EoMonth(Date, 0)) For i = 1 To QtdeDias ActiveSheet.Cells(i, 1) = DateAdd("d", i, Date - Day(Date)) ActiveSheet.Cells(i, 2) = Format(DateAdd("d", i, Date - Day(Date)), "dddd") Next i End Sub
Laennder Alves
Microsoft MVP
Postado : 13/04/2015 4:21 am
Topic starter
laennder Bom Dia!
Exatamente isso que precisava. Muito obrigado.
Abraços,
Postado : 13/04/2015 5:05 am