somando duas textbo...
 
Notifications
Clear all

somando duas textbox

8 Posts
2 Usuários
0 Reactions
3,451 Visualizações
(@fabioprade)
Posts: 273
Reputable Member
Topic starter
 

Mais uma vez aqui,

Tenho tres txtbox, gostaria que a terceira acumulasse o valor somado da 1 e da 2 ( txtValor1 + txtValor2 = txtTotal ).

Amigos, ja procurei na net, ate alguns exemplos aqui do forum, mas nao entendi ( para variar ), hehehe.

Obrigado.

Fabio Pradella

 
Postado : 06/03/2012 10:48 am
(@fernandofernandes)
Posts: 43750
Illustrious Member
 

Boa tarde!!
Veja se assim funciona.

Text3.Text = CDBL(Text1.text) + CDBL(Texto2.text)
 
Postado : 06/03/2012 10:54 am
(@fabioprade)
Posts: 273
Reputable Member
Topic starter
 

Ale,

Ja tinha visto este teu exemplo em um outro post do forum, mas da erro de execusao, 13...

Aonde estou errando???

 
Postado : 06/03/2012 10:57 am
(@fernandofernandes)
Posts: 43750
Illustrious Member
 

Boa tarde!!

já tentou assim

TextBox3.Value = CDbl(TextBox1.Value) + CDbl(TextBox2.Value)

 
Postado : 06/03/2012 11:01 am
(@fabioprade)
Posts: 273
Reputable Member
Topic starter
 

No userform, estou dando dois clicks na textbox3 e incluindo o codigo, e isto mesmo? se for nao deu certo nao.
Se nao for isso, desculpe a ignorancia...

 
Postado : 06/03/2012 11:07 am
(@fernandofernandes)
Posts: 43750
Illustrious Member
 

Boa tarde!!

Poderia usar um botão de comando ou não é isso que quer, poderia mudar o evento da txt para chang.

Para botãodecomando..

Option Explicit
Private Sub CommandButton1_Click()
Dim iNum(1 To 2) As Double
iNum(1) = TextBox1.Value
iNum(2) = TextBox2.Value
TextBox3.Value = iNum(1) + iNum(2)
End Sub
 
Postado : 06/03/2012 11:10 am
(@fernandofernandes)
Posts: 43750
Illustrious Member
 

Boa tarde!!

Fiz um exemplo meio que vagabundo, mas deu certo....
Ao sair da TextBox3, o valor digitado na TextBox1 e na TextBox2 será somado

Private Sub TextBox3_Exit(ByVal Cancel As MSForms.ReturnBoolean)
    With Me
        If Not IsNumeric(.TextBox1.Value) And (.TextBox2.Value) Then GoTo exit_ale
        .TextBox3.Value = Val(.TextBox1.Value) + Val(.TextBox2.Value)
        Exit Sub
exit_ale:
        MsgBox "Entre com os números nas caixas de texto", vbCritical, "Erro.."
End With
End Sub
 
Postado : 06/03/2012 11:27 am
(@fabioprade)
Posts: 273
Reputable Member
Topic starter
 

Ja resolve meu problema, um grande abraço Alexandre.

 
Postado : 06/03/2012 1:01 pm