Fóruns
Microsoft Excel - 2...
Formulários
Somando Textbox
 
Notifications
Clear all

Somando Textbox

 
Formulários
Post Recente por FabioPrade 13 anos atrás
5 Posts
2 Usuários
0 Reactions
1,550 Visualizações
RSS
 FabioPrade
(@fabioprade)
Posts: 273
Reputable Member
Topic starter
 

Bom dia amigos, trago uma questão que acho ser simples mas que ainda não consegui resolver.

Preciso somar os valores de algumas textbox, textbox1 + textbox2 = textbox3, mas considerando que nem sempre o textbox2 ou se necessario outros textbox para serem somados tenham valores digitados, podem estar em branco, então, este codigo precisaria ja transportar o valor da textbox1 para a textboxTotal assim que a mesma for preenchida, porque aconteceram exemplos onde somente aquele sera o valor total e outras e serao somados varios textbox.

Mais uma vez obrigado pela ajuda dos colegas.

Fabio Pradella

 
Postado : 18/04/2012 6:44 am
 Fernando Fernandes
(@fernandofernandes)
Posts: 43750
Illustrious Member
 

Segue uma possibilidade

Private Sub TextBox1_AfterUpdate()
Me.TextBox3 = CDec(TextBox1.Value) + CDec(texbox2)
End Sub

Private Sub TextBox2_AfterUpdate()
TextBox3 = CDec(TextBox1) + CDec(TextBox2)
End Sub
 
Postado : 18/04/2012 7:01 am
 FabioPrade
(@fabioprade)
Posts: 273
Reputable Member
Topic starter
 

Reinaldo bom dia,

E exatamente isso, so que no meu projeto nao deu, da erro, resumi o projeto na userform de competencia e estou anexando para gentilmente voce dar uma olhada.

Muito obrigado.

 
Postado : 18/04/2012 8:12 am
 Fernando Fernandes
(@fernandofernandes)
Posts: 43750
Illustrious Member
 

Teste assim:

Private Sub Txtvalor1_AfterUpdate()
If txtvalor2 = "" Then txtvalor2 = 0
Me.txtTotal = CDec(txtvalor1.Value) + CDec(txtvalor2)
End Sub
 
Postado : 18/04/2012 8:47 am
 FabioPrade
(@fabioprade)
Posts: 273
Reputable Member
Topic starter
 

Perfeito Reinaldo,

Meu muito obrigado mais uma vez.

Fabio Pradella

 
Postado : 18/04/2012 9:04 am
Forum Jump:
  Tópico Anterior
Próximo Tópico