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

Página única

Tópico encerrado , respostas não são mais permitidas

Voltar