Formato de miles en un textbox en VBA

Hola Don Juan, pega y/ó adapta el siguiente código en el evento "exit" del
TextBox ó en un botón (como prefieras), fijate que el formato de miles es
con la coma y no con el apóstrofe pero si lo quieres cambiar solamente
sustituyela (la coma) en la cadena del formato, espero que te sirva.

If Me.TextBox1.Text <> "" Then
If IsNumeric(Me.TextBox1.Text) Then
Me.TextBox1.Text = Format(Me.TextBox1.Text, "#,##0.00")
Else
MsgBox "El valor ingresado debe ser numerico", vbCritical,
"Validación de Número"
End If
Else
Me.TextBox1.Text = Format(0, "#,##0.00")
End If

Saludos,

David Ortiz
El Salvador, C.A.

"Don Juan" wrote in message
news:

Hola a todos.
Estoy haciendo un formulario en VBA que recupera un valor en un TextBox,
por ejemplo, si tengo 2000, quisiera que aparezca algo así:
2'000.00 o solamente 2.000 (poco importa si el un punto o un apóstrofe,
pero me interesa mostrar la separación de miles, tampoco intenersa si
muestra o no los decimales, aunque sería un +).

Gracias de antemano.

Perfecto!

Muchísimas gracias

"David Ortiz" <rortizAQUILAARROBAswdeca.com> wrote in message
news:

Hola Don Juan, pega y/ó adapta el siguiente código en el evento "exit" del
TextBox ó en un botón (como prefieras), fijate que el formato de miles es
con la coma y no con el apóstrofe pero si lo quieres cambiar solamente
sustituyela (la coma) en la cadena del formato, espero que te sirva.

If Me.TextBox1.Text <> "" Then
If IsNumeric(Me.TextBox1.Text) Then
Me.TextBox1.Text = Format(Me.TextBox1.Text, "#,##0.00")
Else
MsgBox "El valor ingresado debe ser numerico", vbCritical,
"Validación de Número"
End If
Else
Me.TextBox1.Text = Format(0, "#,##0.00")
End If

Saludos,

David Ortiz
El Salvador, C.A.

"Don Juan" wrote in message
news:

Hola a todos.
Estoy haciendo un formulario en VBA que recupera un valor en un TextBox,
por ejemplo, si tengo 2000, quisiera que aparezca algo así:
2'000.00 o solamente 2.000 (poco importa si el un punto o un apóstrofe,
pero me interesa mostrar la separación de miles, tampoco intenersa si
muestra o no los decimales, aunque sería un +).

Gracias de antemano.