Saltar al contenido

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


Recommended Posts

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?

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.

×
×
  • Crear nuevo...

Información importante

Echa un vistazo a nuestra política de cookies para ayudarte a tener una mejor experiencia de navegación. Puedes ajustar aquí la configuración. Pulsa el botón Aceptar, si estás de acuerdo.