SOMAR VARIOS TEXTBOX DENTRO DO FORMULARIO

JSILVA 11/10/2012 21:39:13
#411882
Olá Pessoal, estou gatinhando no vba Excel, pois tenho duvidas como fazer a soma de vários Textboxes, já vi alguns exemplos, mas não sei onde empregar, como por exemplo <<<TextBox6.Text = Format(CDBL(TextBox1.Text) + CDBL(TextBox2.Text) + CDBL(TextBox3.Text)+CDBL(TextBox4.Text) + CDBL(TextBox5.Text), [Ô]#.##0,00[Ô])>>>, achei este exemplo aqui neste fórum, mas não entendi onde colocar, se é no TextBox6 onde será o resultado ou UserForm1, em qual procedimento?

Alguém poderia me ajudar?

Segue em anexo o exemplo.



jsilva
JSILVA 11/10/2012 22:11:43
#411884
Pessoal consegui este exemplo e deu certo. obrigado


Private Sub TextBox1_AfterUpdate()
TextBox6.Value = Val(TextBox1.Value) + Val(TextBox2.Value) + Val(TextBox3.Value) + Val(TextBox4.Value) + Val(TextBox5.Value)
End Sub

Private Sub TextBox2_AfterUpdate()
TextBox6.Value = Val(TextBox1.Value) + Val(TextBox2.Value) + Val(TextBox3.Value) + Val(TextBox4.Value) + Val(TextBox5.Value)
End Sub

Private Sub TextBox3_AfterUpdate()
TextBox6.Value = Val(TextBox1.Value) + Val(TextBox2.Value) + Val(TextBox3.Value) + Val(TextBox4.Value) + Val(TextBox5.Value)
End Sub

Private Sub TextBox4_AfterUpdate()
TextBox6.Value = Val(TextBox1.Value) + Val(TextBox2.Value) + Val(TextBox3.Value) + Val(TextBox4.Value) + Val(TextBox5.Value)
End Sub

Private Sub TextBox5_AfterUpdate()
TextBox6.Value = Val(TextBox1.Value) + Val(TextBox2.Value) + Val(TextBox3.Value) + Val(TextBox4.Value) + Val(TextBox5.Value)
End Sub
Tópico encerrado , respostas não são mais permitidas