Cambiar la "," por el "." en el textbox

Necesito cambiar la "," por el "." en un textbox

Tengo un combo que llena varios textbox, en uno de ellos me trae un valor EJ(1,8) con coma y necesito que me cambie esa coma por un punto EJ(1.8)

Anteriormente tenia un problema similar pero era cambiar el punto por la coma y lo resolví con esto que encontré:

Public Sub TXTEFECTIVO_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
If KeyAscii = Asc(".") Then
KeyAscii = Asc(",")
End If
End Sub

Ahora cambie de lugar la coma pero no anda

Public Sub TXTEFECTIVO_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
If KeyAscii = Asc(",") Then
KeyAscii = Asc(".")
End If
End Sub

1 Respuesta

Respuesta
6

Te mando mi solución con este ejemplo:

-Tenemos un formulario con varios textbox.

-En el textbox1 exigimos que el importe tenga un punto en lugar de una coma

-Usa el siguiente evento para corregir el textbox1 en el momento de salir de él.

(Para probarlo escribe un importe con coma dentro del textbox1 y en el momento que salgas de él, te corregirá el importe poniendo un punto)

Private Sub TextBox1_Exit(ByVal Cancel As MSForms.ReturnBoolean)
If InStr(TextBox1, ",") > 0 Then
nuevo = Replace(TextBox1.Value, ",", ".")
TextBox1.Value = nuevo
End If
End Sub

recuerda finalizar la consulta

Añade tu respuesta

Haz clic para o

Más respuestas relacionadas

Problema con decimales en textbox de Userform excel 2003

Estoy haciendo un Userform con varios textbox que calculan valores entre si ejemplo: Tengo un textbox que renombre como "mon" ya que es el monto total y el resto pertenecen a la forma de pago de ese monto por lo que los llame mona, monb, monc, mond,...
1 respuesta

Cuadro de texto con 2 decimales (formato)

Tengo una consulta sobre poner formato con 2 decimales a un cuadro de texto, pero nada,, me explico,, tengo un formulario vb con excel,,, y un cuadro de texto llamado Pago y quisiera cuando ponga por ejemplo,, en el cuadro de texto 600...
2 respuestas

Si se deja un Textbox en blanco

Tengo este código en un formulario de excel: Private Sub TextBox1_Change() largo_entrada = Len(Me.TextBox1) Select Case largo_entrada Case 2 Me.TextBox1.Value = Me.TextBox1.Value & "/" Case 5 Me.TextBox1.Value = Me.TextBox1.Value & "/2008"...
2 respuestas

Validar textbox solo acepte numero

Quisiera saber un código para validar un textbox que solo acepte números de 2 dígitos del 00 al 99. * Es decir que si ingresan el numero 1 solo, estaría mal ya que el que necesito seria 01. *Tambien que no acepte letras ni caracteres como...
1 respuesta

Como poner determinado formato de fecha a un textbox

Tengo una tabla en excel 2010 e ingreso los datos a través de un formulario, lo que necesito hacer es que en los textbox donde ingreso fechas el formato sea 10-oct-14 y que este mismo formato se quede registrado en mi tabla de excel.
3 respuestas

Formato de hora en un textbox

Que tal buen dia espero me puedan ayudar en un formulario con un texbox voy a capturar la hora de un trabajador desconozco si se pudiera hacer es al momento que se capture la hora aparezcan los " : " por default y después que capture los minutos,...
1 respuesta

Mascara de entrada en Textbox

¿Es posible crear una máscara de entrada en un textbox? Por ejomplo, un textbox de fecha, que tenga que tomar el formato dd-mm-aa.
1 respuesta

Text box con formato contabilidad

Como puedo hacer que un textbox1 solo acepte números y al ingresar mas de tres cantidades aparezca la coma (,) y si pongo punto (.) ¿Solo acepte dos decimales? Por ejemplo así 1,106.00
1 respuesta

Textbox que solo acepte números y guiones

Mi pregunta es la siguiente, en un Botón de comando tengo el siguiente código : If Not IsNumeric(TextBox1) Then Dim mensaje As String mensaje = MsgBox( Valor ingresado NO es Numérico & Chr(13) & Ingrese nuevamente! , vbCritical, Title:= Ingresar...
3 respuestas

Unificar código en un Modulo para VBA Excel

Tengo este código en 4 textBox 'Solo numeros, guion y cantidad caracteres. Puede separarse uno del otro Private Sub txtcli6_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger) If Not (KeyAscii >= 48 And KeyAscii <= 57) Then KeyAscii = 0 '<--- El...
1 respuesta