Somar TextBox VBA Excel

[JOSIMAR MEDEIROS DOS SANTO]

Bom dia Estou necessitando de uma ajuda. Criei um aplicativo no VBA Excel para facilitar o preenchimento de um formulário, com várias textbox que estão formatadas em moeda, porém quando clico no botão para somar e dar o resultado porém não mostra os valores dos centavos conforme exemplo. 65,00 * 500 = 3.250,00 Na textbox do resultado apresenta = 3.250 Você podem me ajudar.

[Agostinho Paula Filho]

uai....mas 65*500 dá 32.500

;;; bom, quando ao problema...

esse resultado é em um textbox mesmo ou em célula do excel?

caso seja em textbox.... então, no código a seguir, eu tenho um formulário com tres textbox.... (textbox1, textbox2 e textbox3), e um botão de comando (commandbutton1).... o código foi aplicado ao botão no evento click, primeiro ele multiplica os valores, depois ele formata os dados.

os textbox1 e 2 receberam formatação, ao perder o foco, ou após atualizar seus valores.

Private Sub CommandButton1_Click()
TextBox3 = TextBox1 * TextBox2
TextBox3 = Format$(TextBox3, "R$ ##,####.00")
End Sub
Private Sub TextBox1_BeforeUpdate(ByVal Cancel As MSForms.ReturnBoolean)
TextBox1 = Format$(TextBox1, "R$ ##,####.00")
End Sub

Private Sub TextBox2_BeforeUpdate(ByVal Cancel As MSForms.ReturnBoolean)
TextBox2 = Format$(TextBox2, "R$ ##,####.00")
End Sub