SOMAR VARIOS TEXTBOX DENTRO DO FORMULARIO
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
Alguém poderia me ajudar?
Segue em anexo o exemplo.
jsilva
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
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