Inconveniente con textbox

Necesito que en un formulario que cree con varios textbox me permita lo siguiente:
textbox1: textbox2: textbox3: textbox4: poder ingresar datos y que automaticamente quede como formato de moneda
textbox5: me sume los cuatro datos mientras los voy digitando y que tambien quede con el formato de moneda
Los primeros textbox les he colocado el siguiente codigo:

Private Sub TextBox1_Change()
TextBox1 = FormatCurrency(TextBox1)
TextBox5 = TextBox1 + TextBox2 + TextBox3 + TextBox4
TextBox5 = FormatCurrency(TextBox5)
End Sub

Pero solamente me permite ingresar un numero Ej ( $1,00 ) y no me permite ( $ 1000,00 )

hola, !

en lugar de usar el evento '_change' (por cada vez que tecleas algo en eltextbox)
=> usa el evento '_exit' (solo que el formato se aplicara cuando "salgas" del control)
     (no se que tan imprescindible sea visualizar "en tiempo real" la aplicacion de los formatos y la suma ???)

prueba con el siguiente codigo en el modulo del formulario:

Dim Uno As Double, Dos As Double, Tres As Double, Cuatro As Double
Private Sub TextBox1_Exit(ByVal Cancel As MSForms.ReturnBoolean)
  Uno = TextBox1: TextBox1 = Format(TextBox1, "currency"): Suma_en_5
End Sub
Private Sub TextBox2_Exit(ByVal Cancel As MSForms.ReturnBoolean)
  Dos = TextBox2: TextBox2 = Format(TextBox2, "currency"): Suma_en_5
End Sub
Private Sub TextBox3_Exit(ByVal Cancel As MSForms.ReturnBoolean)
  Tres = TextBox3: TextBox3 = Format(TextBox3, "currency"): Suma_en_5
End Sub
Private Sub TextBox4_Exit(ByVal Cancel As MSForms.ReturnBoolean)
  Cuatro = TextBox4: TextBox4 = Format(TextBox4, "currency"): Suma_en_5
End Sub
Private Sub Suma_en_5()
  TextBox5 = Format(Uno + Dos + Tres + Cuatro, "currency")
End Sub

saludos,
hector.

__ OP __



> Necesito que en un formulario que cree con variostextboxme permita lo siguiente:
> textbox1: textbox2: textbox3: textbox4: poder ingresar datos y que automaticamente quede como formato de moneda
> textbox5: me sume los cuatro datos mientras los voy digitando y que tambien quede con el formato de moneda
> Los primerostextboxles he colocado el siguiente codigo:

> Private Sub TextBox1_Change()
> TextBox1 = FormatCurrency(TextBox1)
> TextBox5 = TextBox1 + TextBox2 + TextBox3 + TextBox4
> TextBox5 = FormatCurrency(TextBox5)
> End Sub

> Pero solamente me permite ingresar un numero Ej ( $1,00 ) y no me permite ( $ 1000,00 )- Ocultar texto de la cita -

- Mostrar texto de la cita -