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,010 Visualizações

RSS

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

(@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

(@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