Este fórum está sendo desativado

[Celsosilverio]

Olá amigos do fórum!
Estou precisando de um código para criar um botão (VBA) para mudar a data numa célula, conforme exemplo disponibilizado. Essa data sempre será mudada toda vez que clicar em avançar no botão ou retroceder. Essa data também sempre será dia primeiro de cada mês. Exemplo: 01/01/2020, ao avançar me retorna em 01/02/2020, e se avançar de novo 01/03/2020 e em retroceder o resultado será inverso.
Agradeço desde já.

[osvaldomp]

Olá, Celso.

1. cole uma cópia do código abaixo em um módulo comum, por exemplo no Módulo1.
2. vincule o Controle ~~~> clique com o direito sobre o Controle giratório já existente na sua planilha | Atribuir macro | selecione AlteraData | OK
3. vincule a célula E4 ao Controle ~~~> clique co o direito | Formatar controle | em Vínculo da célula coloque $E$4 | OK

obs. o código irá utilizar a célula E5 como auxiliar (escolhi E4 e E5 pois elas ficarão ocultas pelo Controle, altere se desejar)

Código: Selecionar todos

Sub AlteraData()
 If [E5] > [E4] Then [A2] = DateAdd("m", -1, [A2]) Else: [A2] = DateAdd("m", 1, [A2])
 [E5] = [E4]
End Sub

[Celsosilverio]

Perfeito Osvaldo, era isso mesmo que eu queria. Muito grato