Ir ao conteúdo
  • Cadastre-se
AdrianoPires

Excel RESOLVIDO Adicionar um botão "+1" no Excel

Recommended Posts

Oi Gente, estou fazendo uma tabela no excel,  e preciso colocar um botão com uma Funcionalidade " +1 " ou seja, a cada vez que apertar esse botão ele vai somar mais uma unidade na célula selecionada. Alguém me ajuda? 

idenizações.png

Compartilhar este post


Link para o post
Compartilhar em outros sites

Boa tarde, amigo.

 

Sub somaum() 
Range( "a1" ).Value = Range( "a1" ).Value + 1 

End Sub 

Substitua o A1 pela célula que tu queres.

Para criar a macro, você tecla ALT+F11, vai em "inserir módulo" e poôe esse código aí. 

Em seguida, é só ir na parte de controles, colocar um botão na sua planilha e associá-lo a macro que você acabou de criar. 

 

  • Curtir 1

Compartilhar este post


Link para o post
Compartilhar em outros sites
42 minutos atrás, Niê disse:

Boa tarde, amigo.

 

Sub somaum() 
Range( "a1" ).Value = Range( "a1" ).Value + 1 

End Sub 

Substitua o A1 pela célula que tu queres.

Para criar a macro, você tecla ALT+F11, vai em "inserir módulo" e poôe esse código aí. 

Em seguida, é só ir na parte de controles, colocar um botão na sua planilha e associá-lo a macro que você acabou de criar. 

 

Amigo, coloquei o macro super funcionou, porém ao atribuir um novo macro para o botão seguinte o mesmo substitui o anterior, desculpa a ignorância é que sou da área de marketing, estou enferrujado em excel, você teria uma sugestão de como posso por a função nos outros botões? Sendo que minha planilha tem 70 botões.

Compartilhar este post


Link para o post
Compartilhar em outros sites
14 horas atrás, Patropi disse:

@AdrianoPires

 

Se você anexar a planilha aqui no fórum, fazemos para você.

 

[]s

@Patropi Agradeço muito se poder ajudar, segue o arquivo. 

Planilha para vendas FÓRUM.xlsx

adicionado 1 minuto depois

@Niê Bom dia Niê, vi as respostas agora, devido ao excesso de trabalho, anexei o arquivo para o amigo, caso queira da uma olhadinha também, fique a vontade. Abraço.

Compartilhar este post


Link para o post
Compartilhar em outros sites
7 minutos atrás, AdrianoPires disse:

@Patropi Agradeço muito se poder ajudar, segue o arquivo. 

Planilha para vendas FÓRUM.xlsx

adicionado 1 minuto depois

@Niê Bom dia Niê, vi as respostas agora, devido ao excesso de trabalho, anexei o arquivo para o amigo, caso queira da uma olhadinha também, fique a vontade. Abraço.

Puts, esse LibreOffice me deixa maluco. ahuauhauh

  • Curtir 1

Compartilhar este post


Link para o post
Compartilhar em outros sites

Seguinte, @AdrianoPires;

 

O jeito vai ser você criar um "Sub somab" diferente para cada botão da seguinte forma:

image.thumb.png.2fb913ef1f0cf8298e1a9ebc09447c65.png

 

Vai dar trabalho, mas dá certo. Indico nomear todos os módulos de forma que não te deixe confuso mais pra frente, caso queira mudar algo.

 

Depois de digitado, você pode atribuir aos botões as funções:

 

image.thumb.png.e6b41b9536abfd6d56c3b5294bc6419b.png

 

Sub somab6()
Range("b6").Value = Range("b6").Value + 1

End Sub

Sub somab7()
Range("b7").Value = Range("b7").Value + 1

End Sub

Planilha para vendas FÓRUM1.rar

Veja acima o que eu já fiz, está em .rar pois salvei de um jeito que o macro não desliga ao fechar a planilha.

 

 

image.png

  • Obrigado 1

Compartilhar este post


Link para o post
Compartilhar em outros sites
8 minutos atrás, Niê disse:

Seguinte, @AdrianoPires;

 

O jeito vai ser você criar um "Sub somab" diferente para cada botão da seguinte forma:

image.thumb.png.2fb913ef1f0cf8298e1a9ebc09447c65.png

 

Vai dar trabalho, mas dá certo. Indico nomear todos os módulos de forma que não te deixe confuso mais pra frente, caso queira mudar algo.

 

Depois de digitado, você pode atribuir aos botões as funções:

 

image.thumb.png.e6b41b9536abfd6d56c3b5294bc6419b.png

 


Sub somab6()
Range("b6").Value = Range("b6").Value + 1

End Sub

Sub somab7()
Range("b7").Value = Range("b7").Value + 1

End Sub

Planilha para vendas FÓRUM1.rar

Veja acima o que eu já fiz, está em .rar pois salvei de um jeito que o macro não desliga ao fechar a planilha.

image.png

Lollllllllllllllllllll!!!! kkk Obrigado caraaaa! Rapaz, pensei nessa possibilidade mas desconhecia a existência dessa lista no atribuir macro! Obrigado cara!! Sucesso. 

adicionado 11 minutos depois

obrigado niê obrigado também pratopi, sucesso pra vocês. 
muitíssimo grato pela ajuda. 

  • Curtir 1

Compartilhar este post


Link para o post
Compartilhar em outros sites

@AdrianoPires Fico feliz em ter ajudado, ahuahuauh.

 

Aqui, segue esse passo pra finalizar o post; 

 

  • Curtir 1

Compartilhar este post


Link para o post
Compartilhar em outros sites

Daria também pra fazer só com uma macro geral, ao invés de uma pra cada botão. Usando a propriedade Application.Caller dá pra saber qual botão foi clicado e em qual célula ele está, aí é só usar o Offset pra acrescentar o valor +1 à célula vizinha ao botão.

Mas como a solução proposta já atendeu, isso é o que importa...

  • Amei 2

Compartilhar este post


Link para o post
Compartilhar em outros sites

Crie uma conta ou entre para comentar

Você precisar ser um membro para fazer um comentário

Criar uma conta

Crie uma nova conta em nossa comunidade. É fácil!

Crie uma nova conta

Entrar

Já tem uma conta? Faça o login.

Entrar agora





Sobre o Clube do Hardware

No ar desde 1996, o Clube do Hardware é uma das maiores, mais antigas e mais respeitadas publicações sobre tecnologia do Brasil. Leia mais

Direitos autorais

Não permitimos a cópia ou reprodução do conteúdo do nosso site, fórum, newsletters e redes sociais, mesmo citando-se a fonte. Leia mais

×