Fóruns
Microsoft Excel - 2...
2024 - VBA & Macros
Soma de duas TextBo...
 
Notifications
Clear all

Soma de duas TextBox

 
2024 - VBA & Macros
Post Recente por Leluir 9 anos atrás
3 Posts
2 Usuários
0 Reactions
923 Visualizações
RSS
 Leluir
(@leluir)
Posts: 24
Eminent Member
Topic starter
 

Ola bom dia, estou com mais um problema que não consigo resolver tenho um form.com TextBox1, TextBox2 e o 3º para resultado da soma só que o resultado é sempre
R$ 00 veja meu codigo, onde eu errei obrigado

Private Sub CommandButton1_Click()
TextBox3 = Val(TextBox1) + Val(TextBox2)
TextBox3 = Format$(TextBox3, "R$ ##,####.00")
End Sub
Private Sub TextBox1_BeforeUpdate(ByVal Cancel As MSForms.ReturnBoolean)
TextBox1 = Format$(TextBox1, "R$ ##,####.00")
End Sub

Private Sub TextBox2_BeforeUpdate(ByVal Cancel As MSForms.ReturnBoolean)
TextBox2 = Format$(TextBox2, "R$ ##,####.00")
End Sub

 
Postado : 23/03/2016 8:42 am
 Fernando Fernandes
(@fernandofernandes)
Posts: 43750
Illustrious Member
 

Você já tinha dado como resolvido no tópico abaxio, era só ter seguido a mesma lógica ou ter utilizado a dica do Reinaldo :
somar 2 Txbox= Txbox valor total [Resolvido]
viewtopic.php?f=10&t=19580&p=99171#p99171

Altere a Função "Val" pela "CDbl"

Private Sub CommandButton1_Click()
    TextBox3 = CDbl(TextBox1) + CDbl(TextBox2)
    TextBox3 = Format$(TextBox3, "R$ ##,####.00")
End Sub
 
Postado : 23/03/2016 10:52 am
 Leluir
(@leluir)
Posts: 24
Eminent Member
Topic starter
 

Muito obrigado desculpe é que em lógica eu sou um fracasso, da próxima vou pensar melhor

 
Postado : 23/03/2016 11:31 am
Forum Jump:
  Tópico Anterior
Próximo Tópico