Fóruns
Microsoft Excel - 2...
2024 - VBA & Macros
Macro exibir data d...
 
Notifications
Clear all

Macro exibir data do mês anterior

 
2024 - VBA & Macros
Post Recente por JeanJ. 8 anos atrás
4 Posts
2 Usuários
0 Reactions
1,000 Visualizações
RSS
JeanJ.
 JeanJ.
(@jeanj-2)
Posts: 35
Eminent Member
Topic starter
 

Boa tarde,

Estive trabalhando em uma fórmula =MÊS(HOJE()) e na opção de formatar a célula eu escolhido "mm" para exibir 08, mas somente exibe 01.
Então parti para macro e elaborei o seguinte:

Sub data_anterior()

[A1].Select

ActiveCell.Offset(1, 0).Select

ActiveCell.Value = Year(Date) & Format(Month(Date) - 1, "MM")

End Sub

Mas infelizmente ao invés de aparecer 07 (mês anterior a este) na célula A1, o Format não aceita exibindo novamente 01.
Agradeço desde já a quem puder ajudar.

 
Postado : 31/08/2016 11:44 am
Fernando Fernandes
 Fernando Fernandes
(@fernandofernandes)
Posts: 43750
Illustrious Member
 


Boa tarde.

Tentou Personalizar para 00 ?

Existem mil maneiras de preparar Neston. Invente a sua!
http://www.youtube.com/ExpressoExcel

 
Postado : 31/08/2016 12:42 pm
Fernando Fernandes
 Fernando Fernandes
(@fernandofernandes)
Posts: 43750
Illustrious Member
 

Ao utilizar a formula Mês, o retorno passa a ser um numero, o do mês, não mais data; por isso o retorno 01.
Para "ter" o mês com duas casas, você pode utilizar Hoje() e formatar a celula para "mm"; ou utilizar associado a Função Texto --> TEXTO(MÊS(HOJE());"00")
Na rotina, pelo mesmo motivo (Month retorna apenas o numero do mês), deve utilizar assim: ActiveCell.Value = Year(Date) & Format(Month(Date) - 1, "00")

Existem mil maneiras de preparar Neston. Invente a sua!
http://www.youtube.com/ExpressoExcel

 
Postado : 31/08/2016 1:17 pm
JeanJ.
 JeanJ.
(@jeanj-2)
Posts: 35
Eminent Member
Topic starter
 

Edson e Reinaldo,

Algo mais simples a que eu esperava, problema resolvido!
Muito obrigado a vocês!

[]s

 
Postado : 31/08/2016 1:21 pm
Forum Jump:
  Tópico Anterior
Próximo Tópico