Jump to content
ibramad292

TextBox con coma(,) decimal

Recommended Posts

Buenas tardes, tengo el siguiente caso, estoy usando un formulario para ingresar datos en una hoja, uno de los datos es la duración de un evento en minutos a través de un textbox, y el formulario lo divide entre 60 para llevarlo a horas.  El tema es que para poder ingresar decimales tengo que utilizar la coma(,) del teclado principal, ya que si uso el punto(.) del teclado numérico me da un error en el valor que escribe el código.

El código es el siguiente:

Private Sub btn_registrar_Click()

Dim TransRowRng As Range
Dim NewRow As Integer

Set TransRowRng = ThisWorkbook.Worksheets("INPUT").Cells(1, 1).CurrentRegion
NewRow = TransRowRng.Rows.Count + 1

With ThisWorkbook.Worksheets("INPUT")   
        ActiveSheet.Cells(NewRow, 1) = CDbl(TextBox1)
        ActiveSheet.Cells(NewRow, 2) = CDbl(TextBox2)
        ActiveSheet.Cells(NewRow, 3) = TextBox3
        ActiveSheet.Cells(NewRow, 4) = TextBox4
        ActiveSheet.Cells(NewRow, 5) = TextBox5
        ActiveSheet.Cells(NewRow, 6) = TextBox6
        ActiveSheet.Cells(NewRow, 8) = CDbl(Format(TextBox8.Value / 60, "0,00"))
        ActiveSheet.Cells(NewRow, 7) = TextBox7   
 End With
                   
        TextBox5 = Empty
        TextBox6 = Empty
        TextBox8 = Empty
        TextBox7 = Empty
        TextBox5.SetFocus       
End Sub

 

Me gustaría poder usar el punto(.) del teclado numérico para mayor comodidad y rapidez.

Gracias de antemano.

 

 

Share this post


Link to post
Share on other sites

Reemplaza esta línea:

ActiveSheet.Cells(NewRow, 8) = CDbl(Format(TextBox8.Value / 60, "0,00"))

Por:

ActiveSheet.Cells(NewRow, 8) = CDbl(Format(TextBox8.Value / 60, "0.00"))

Nota: no realizé pruebas ni nada.

Saludos,

Share this post


Link to post
Share on other sites
Hace 31 minutos , Diego9019 dijo:

Reemplaza esta línea:


ActiveSheet.Cells(NewRow, 8) = CDbl(Format(TextBox8.Value / 60, "0,00"))

Por:


ActiveSheet.Cells(NewRow, 8) = CDbl(Format(TextBox8.Value / 60, "0.00"))

Nota: no realizé pruebas ni nada.

Saludos,

Gracias Diego.  ya había probado esto pero no funcionaba.  Nuevamente gracias por la pronta respuesta.

Share this post


Link to post
Share on other sites
Guest
This topic is now closed to further replies.

INFORMACIÓN BÁSICA SOBRE PROTECCIÓN DE DATOS

Responsable: Sergio Andrés Celemín

Finalidad: Moderar y responder comentarios de usuarios. Recuerda que la información que facilites es pública, y los datos que incluyas los leerá cualquier visitante de esta web, así como el avatar que poseas.

Legitimación: Consentimiento del interesado.

Destinatarios: Hetzner Online GmbH.

Derechos: Puedes ejercitar en cualquier momento tus derechos de acceso,
rectificación, supresión, oposición y demás derechos legalmente establecidos a
través del email sergio@ayudaexcel.com.

Información adicional: Encontrarás más información en la política de privacidad.




×
×
  • Create New...

Important Information

Privacy Policy


CTA Templates.png