Este fórum está sendo desativado

Depois de 9 anos, este fórum será desativado. Mas calma.... estamos migrando para uma comunidade no DISCORD. Junte-se a nós.

ENTRAR PARA DISCORD

Tópicos relacionados a códigos VBA, gravação de macros, etc.
  • Avatar do usuário
Avatar do usuário
Por Celsosilverio
Posts Avatar
#72679
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á.
Você não está autorizado a ver ou baixar esse anexo.
Por osvaldomp
#72681
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 agradeceu por isso

=SE(MÊS(A1)<7;"1º sem&a[…]

Bom Dia Senhores. Tenho uma macro que preciso dei[…]

Free relationships without drama and obligations. […]

Girar Imagem e Zoom

Boa noite Teria alguma forma de dar um "[…]

Valeu. Muito Obrigado!!!!!!!!

Pessoal, Ao clicar no botão Copiar (Guia C[…]

Procv com serro em vba

Resolvido

Bom dia, pessoal! com a data de nascimento e data […]

Estamos migrando para uma comunidade no Discord