Fóruns
Microsoft Excel - 2...
2024 - VBA & Macros
Auto Soma junto com...
 
Notifications
Clear all

Auto Soma junto com Textbox + CheckBox

 
2024 - VBA & Macros
5 Posts
2 Usuários
0 Reactions
1,548 Visualizações
RSS
 araujors
(@araujors)
Posts: 79
Estimable Member
Topic starter
 

Tenho um exemplo de autosoma automático que funciona perfeitamente quando se é inserido o valor na textbox. Coloquei dois CheckBox com valores que aparecem quando eu seleciono os mesmos e eles colocam os valores nas textbox, só que os valores quando aparecem nas textbox não se somam junto com os demais, se eu clicar no CheckBox1 por exemplo ela não soma junto mas se eu digitar na textbox soma normalmente, queria que quando eu seleciona-se um dos CheckBox ou os dois ele soma-se junto na sequencia.
Obrigado Galera espero que possam me ajudar.

MALOTE - PESO.rar
 
Postado : 03/02/2013 9:08 pm
Fernando Fernandes
 Fernando Fernandes
(@fernandofernandes)
Posts: 43750
Illustrious Member
 

Eu, particularmente, prefiro efetuar a soma em uma rotina especifica e nos eventos "chama-la". Veja se lhe atende

Existem mil maneiras de preparar Neston. Invente a sua!
http://www.youtube.com/ExpressoExcel

 
Postado : 04/02/2013 6:01 am
 araujors
(@araujors)
Posts: 79
Estimable Member
Topic starter
 

Puxa Reinaldo era bem isso que eu precisava mesmo muito obrigado pela dica, valeu.

 
Postado : 04/02/2013 5:08 pm
 araujors
(@araujors)
Posts: 79
Estimable Member
Topic starter
 

Reinaldo poderia me ajudar só em mais uma coisa, muito show o que vc fez por mim ta funcionando perfeitamente mas o valor na textbox 5 ta tipo 65 eu gostaria que fica-se no formato 0.65 ou 1,20 as resposta por exemplo que aparecessem no textbox5 até porque essa userform é em kilogramas tem que ser tudo com virgula, poderia me ajudar nessa formatação, obrigado

 
Postado : 04/02/2013 6:55 pm
Fernando Fernandes
 Fernando Fernandes
(@fernandofernandes)
Posts: 43750
Illustrious Member
 

Entre os valores com "," (virgula) e não "." (ponto), ou seja :

TextBox1.Value = "0,65"
If CheckBox1.Value = True Then TextBox2.Value = "0,65"
If CheckBox2.Value = True Then TextBox3.Value = "0,28"

E ao digitar outros valores tambem , utilize virgula

Existem mil maneiras de preparar Neston. Invente a sua!
http://www.youtube.com/ExpressoExcel

 
Postado : 05/02/2013 4:27 am
Forum Jump:
  Tópico Anterior
Próximo Tópico