Senhores bom dia está é minha primeira experiência em um Fórum, tenho pouca intimidade com o Excel VBA, mas venho utilizando em minhas atividades, para simplificar meu dia a dia estou criando um formulário e preciso de ajuda neste tópico.
Revendo a postagem inicial frente a pouca explicação feita, refiz a dissertação da postagem e sendo possível solicita a ajuda de algum excerpt no assunto.
Desde já agradeço a atenção.
Os valores da ComboBox1 são os mesmo e podem ser usados para a multiplicação com as TextBox1, 3 e 5, com resultados diferentes.
Como estou aplicando a formula no momento:
Private Sub CommandButton1_Click()
TextBox2.Text = Val(TextBox1.Text) * Val(ComboBox1.Text)
TextBox2.Text = Format(TextBox2.Text, "R$#,###.00")
End Sub
Private Sub CommandButton2_Click()
TextBox4.Text = Val(TextBox3.Text) * Val(ComboBox1.Text)
TextBox4.Text = Format(TextBox4.Text, "R$#,###.00")
End Sub
Private Sub CommandButton3_Click()
TextBox6 = TextBox5 * ComboBox1
TextBox6.Text = Format(TextBox6.Text, "R$#,###.00")
End Sub
Private Sub CommandButton4_Click()
TextBox8 = TextBox7 * ComboBox1
TextBox8.Text = Format(TextBox8.Text, "R$#,###.00")
End Sub
Private Sub CommandButton5_Click()
TextBox9.Text = TextBox2 + TextBox4 + TextBox6 + TextBox8
End Sub
O resultado da Textbox9 vem aparecendo erro ele fica expresso assim.
R$20,00R$30,00R$45,00R$100,00
Quando ele deveria efetuar a soma com o resultado de R$ 205,00
O valor do TextBox9 deve ser gerado automaticamente em R$.
Nas TextBox3, TextBox 5 e TextBox 7 na maioria das vezes o valor será zero.