Aplicar formato en varios textbox

[Lucasig]

Buenos días,

Tengo una pequeña consulta, sencilla.

Tengo 80 textbox en un UserForm y quisiera aplicarle el formato moneda a todos ellos.

Como podría hacerlo sin tener que nombrar un evento por cada uno.

PD: Obvie de subir el archivo porque creo que es algo sencillo y no hace falta alguna muestra.

Saludos!

[Antoni]

________________________________________________________

Suponiendo que tus textbox se llamen TextBox1, TextBox2,......TextBox80:

Private Sub Formatear(): On Error Resume Next

For x = 1 To 80

  Controls("TextBox" & x) = FormatNumber(CCur(Controls("TextBox" & x)))

Next

End Sub

[/CODE]

______________________________________________________________

Si lo que quieres es un solo evento para todos los controles del mismo tipo, en el adjunto encontrarás un formulario de ejemplo.

______________________________________________________________

.

Macrocontroles.xls

[Lucasig]

Que tal Macro Antonio,

Muchas gracias por la respuesta y disculpame la ignorancia, pero introduzco el código que has expresado y los TextBox siguen sin aparecer con el formato $.

Lo que yo quiero es :

Private Sub TextBox45_AfterUpdate()

TextBox45.Text = Format(TextBox45, "$#,##0.00")

End Sub[/CODE]

Pero aplicado a los 80 Text sin tener que hacer procedimiento por procedimiento.

Gracias!!

[Antoni]

En el archivo que he adjuntado hay un formulario de ejemplo de como usar un único evento para un grupo de controles sean del tipo que sean.

Si subes un archivo con el formulario y una pequeña explicación, a lo mejor lo vemos mas claro.

[Lucasig]

No te hagas problema Macro Antonio, con el archivo que me adjuntaste seguramente lo deduciré.

Muchas gracias por tu tiempo.

Saludos.

TEMA SOLUCIONADO!