Formato con decimales en UserForm
En hoja de calculo tengo en varias celdas valores capturados en decimales " 0.25 " pero al ser consultado en UserForm no respeta el formato y muestra ", " (coma) y al guardar cambios coloca en la celda la coma y necesito que coloque y/o respete el " . " (decimal)
uso el siguiente formato pero redondea el decimal
TextBox1 = Format(TextBox1, "0.00")
al consultarlo en el UserForm
Quiero que al ser consultado en UserForm me muestre el formato con decimales " 0.25 "
1 respuesta
Te anexo un par de ejemplos
Private Sub CommandButton1_Click()
'al consultar
TextBox1 = Format(Range("B5"), "#0.00")
End Sub
'
Private Sub CommandButton2_Click()
'para guardar los cambios
If IsNumeric(TextBox1) Then
Range("B5") = CDbl(TextBox1)
End If
End Sub.
'S aludos. Dante Amor. Recuerda valorar la respuesta. G racias
.
Avísame cualquier duda
.
Te anexo el código que realmente utilizo para la consulta
Private Sub ProTerminado_Click() Dim i As Integer Dim final As Integer For i = 3 To 200 If Hoja6.Cells(i, 1) = "" Then final = i - 1 Exit For End If Next For i = 3 To final If ProTerminado = Hoja6.Cells(i, 1) Then Empaque = Hoja6.Cells(i, 2) Producto = Hoja6.Cells(i, 3) MatPrima1 = Hoja6.Cells(i, 4) mpCant1 = Hoja6.Cells(i, 5) MatPrima2 = Hoja6.Cells(i, 6) mpCant2 = Hoja6.Cells(i, 7) MatPrima3 = Hoja6.Cells(i, 8) mpCant3 = Hoja6.Cells(i, 9) MatPrima4 = Hoja6.Cells(i, 10) mpCant4 = Hoja6.Cells(i, 11) MatPrima5 = Hoja6.Cells(i, 12) mpCant5 = Hoja6.Cells(i, 13) MatPrima6 = Hoja6.Cells(i, 14) mpCant6 = Hoja6.Cells(i, 15) MatPrima7 = Hoja6.Cells(i, 16) mpCant7 = Hoja6.Cells(i, 17) MatPrima8 = Hoja6.Cells(i, 18) mpCant8 = Hoja6.Cells(i, 19) MatPrima9 = Hoja6.Cells(i, 20) mpCant9 = Hoja6.Cells(i, 21) MatPrima10 = Hoja6.Cells(i, 22) mpCant10 = Hoja6.Cells(i, 23) Exit For End If Next End Sub
En los textbox de cantidad tienes que poner el formato, te paso un ejemplo
mpCant1 = Format(Hoja6. Cells(i, 5), "#0.00")
Para actualizar tienes que realizar lo siguiente, siguiendo con el ejemplo anterior:
If IsNumeric(mpCant1) Then Hoja6.Cells(i, 5) = CDbl(mpCant1) End If
Ignoro cómo vas a realizar la actualización, es decir, no sé cómo vas a saber qué registro de la hoja vas a actualizar. Lo que te estoy enviando es un ejemplo de cómo debes convertir el dato del textbox a un valor numérico. En los textbox, combobox, listbox, tienes datos en texto, si vas a trabajarlo como número, primero debes convertirlo a valor numérico, por eso utilizo la función CDbl( )
.
'S aludos. Dante Amor. Recuerda valorar la respuesta. G racias
.
Avísame cualquier duda
.
