Saltar al contenido

Sumar varios Textbox con formato de miles "### ### ###"

publicado

Hola solicito ayuda ******* por favor, tengo dos textbox a los cuales les di el siguiente formato:

Private Sub Textbox1_BeforeUpdate(ByVal Cancel As MSForms.ReturnBoolean)

TextBox1.Text = Format(TextBox1, "### ### ###")

End Sub

Private Sub Textbox2_BeforeUpdate(ByVal Cancel As MSForms.ReturnBoolean)

TextBox2.Text = Format(TextBox2, "### ### ###")

End Sub

cuando quiero sumarlos no sale, dice que no coinciden los tipos de datos en:

Label1.caption = cdbl(textbox1)+cdbl(textbox2)

Como lo puedo solucionar?

Featured Replies

publicado

Re: Sumar varios Textbox con formato de miles "### ### ###"

_

Label1.Caption = CDbl(Replace((TextBox1), " ", "")) + CDbl(Replace((TextBox2), " ", ""))

Recuerda subir el archivo la próxima vez.

_

  • 2 weeks later...

Archivado

Este tema está ahora archivado y está cerrado a más respuestas.