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

[AdrianoPires]

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? 

[Niê]

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. 

 

[AdrianoPires]

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.

[Niê]

Amigo, segue a postagem com informações mais detalhadas:

http://bastidoresdoturismo.blogspot.com.br/2013/06/como-criar-planilha-vba-com-botao-de.html?m=1

 

Não estou em casa, senão te ajudava 100%.

[Patropi]

@AdrianoPires

 

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

 

[]s

[Niê]

Você conseguiu? @AdrianoPires

 

[AdrianoPires]

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.

[Niê]

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

[AdrianoPires]

Imagine pra mim que mal uso o excel pelo ao menos uma década kkk. 

[Niê]

Seguinte, @AdrianoPires;

 

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

 

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:

 

 

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.

 

 

[AdrianoPires]

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:

 

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:

 

 

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.

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. 

[Niê]

@AdrianoPires Fico feliz em ter ajudado, ahuahuauh.

 

Aqui, segue esse passo pra finalizar o post; 

 

[Edson Luiz Branco]

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

[thaisilro]

Boa tarde,

 

Estou tentando fazer a mesma coisa, mas a soma está sendo feita em outra celula, e não na que eu preciso.

 

Alguém pode me ajudar?

 

Obrigada,

 

Thaís

[Patropi]

@thaisilro , boa tarde

 

Seja bem-vinda ao fórum!

 

Se tivesse anexado a planilha Excel eu já teria tentando ajudar.

 

[]s