Guru do Excel e Power BI

Enviado: **09 Jan 2023 às 16:24**

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á.

Enviado: **09 Jan 2023 às 19:55**

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

Enviado: **10 Jan 2023 às 09:10**

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

Guru do Excel e Power BI

Criar botão para mudar data

Criar botão para mudar data

Re: Criar botão para mudar data

Re: Criar botão para mudar data