Olá galera,
Sou novato em VBA e preciso da ajuda de vcs.
Tenho um trabalho onde preencho os campos textbox1,textbox3,textbox4,textbox5,textbox6 e textbox7, e clico em calcular e faz o calculo perfeitamente.
Porem estou com dificuldade porque ele não soma os centavos.
Segue código abaixo, me ajudem a identificar onde esta o erro e corrigir ( lembrando que sou novo nisso e estou aprendendo rs)
Private Sub CommandButton1_Click() TextBox8.Text = Val(TextBox1.Text) + Val(TextBox2.Text) + Val(TextBox3.Text) + Val(TextBox4.Text) + Val(TextBox5.Text) + Val(TextBox6.Text) + Val(TextBox7.Text) TextBox9.Text = (TextBox8) / 0.82 TextBox11.Text = (TextBox9) / 100 TextBox12.Text = (TextBox11) * 70 TextBox10.Text = Val(TextBox12.Text) - Val(TextBox9.Text) TextBox13.Text = (TextBox12) * 18 TextBox16.Text = TextBox17.Text + TextBox17.Text + Label18 + Label20 + Label21 + Label22 + Label23 + Label24 + Label25 + Label26 + Label27 + Label28 + Label29 + Label30 + Label31 + Label32 + Label33 TextBox8.Text = Format(TextBox8, "R$ #,##0.00;(#,##0.00)") TextBox9.Text = Format(TextBox9, "R$ #,##0.00;(#,##0.00)") TextBox11.Text = Format(TextBox11, "R$ #,##0.00;(#,##0.00)") TextBox12.Text = Format(TextBox12, "R$ #,##0.00;(#,##0.00)") TextBox10.Text = Format(TextBox10, "R$ #,##0.00;(#,##0.00)") TextBox13.Text = Format(TextBox13, "R$ #,##0.00;(#,##0.00)") TextBox16.Text = Format(TextBox16, "R$ #,##0.00;(#,##0.00)") End Sub
Experimente:
CDbl(TextBox1.Text)
Osvaldo
Deu certo!!! Obrigado
Boa noite Wilson
Como você é novato, para facilitar a tua participação no fórum, sugiro tomar conhecimento do conteúdo dos links abaixo:
viewtopic.php?f=7&t=16757
viewtopic.php?f=7&t=203
viewtopic.php?f=7&t=7903
viewtopic.php?f=7&t=3841
viewtopic.php?f=7&t=12600
viewtopic.php?f=7&t=3371
[]s
Patropi - Moderador
Existem mil maneiras de preparar Neston. Invente a sua!
http://www.youtube.com/ExpressoExcel