Fóruns
Microsoft Excel - 2...
2024 - VBA & Macros
Dia do mês e da sem...
 
Notifications
Clear all

Dia do mês e da semana

 
2024 - VBA & Macros
Post Recente por JokerPot 10 anos atrás
3 Posts
2 Usuários
0 Reactions
867 Visualizações
RSS
 JokerPot
(@jokerpot)
Posts: 132
Estimable Member
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
 laennder
(@laennder)
Posts: 62
Trusted Member
 

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
 JokerPot
(@jokerpot)
Posts: 132
Estimable Member
Topic starter
 

laennder Bom Dia!

Exatamente isso que precisava. Muito obrigado.
Abraços,

 
Postado : 13/04/2015 5:05 am
Forum Jump:
  Tópico Anterior
Próximo Tópico