Pasar datos de un userfrom a una hoja de forma automática
Para Dante.
Hola dante del combobox que buscara los datos funciono sin problema, solo falto que los datos ya mostrados en el userfrom uce me los pase a la hoja UCE de forma automática solo eso me falta y como hago que los textbox muestre en formato peso con separador de mil y decimales tengo este código pero no me los muestra hasta que le de enter funciona no de forma automática
Private Sub TextBox1_Enter()
TextBox1 = Format(TextBox1, "#,##0.00")
End Sub
1 respuesta
Te anexo un par de ejemplos para poner los datos en la hoja, porque no sé en cuál celda va cuál textbox
'Llenar la hoja UCE
If TextBox4.Value = "" Then t4 = 0 Else t4 = CDbl(TextBox4.Value)
If TextBox9.Value = "" Then t4 = 0 Else t4 = CDbl(TextBox4.Value)
h2.Range("G23") = t4 'limpieza
h2.Range("G25") = t9 'mantenimientoTambién te puse un ejemplo para el formato de los textbox
Va el código completo:
'
Private Sub ComboBox6_Change()
'Por. Dante Amor
'
TextBox1 = ""
TextBox2 = ""
TextBox3 = ""
TextBox4 = ""
TextBox5 = ""
TextBox6 = ""
TextBox7 = ""
TextBox8 = ""
TextBox9 = ""
TextBox10 = ""
TextBox11 = ""
If ComboBox6.Value = "" Or ComboBox6.ListIndex = -1 Then Exit Sub
'
'Busca saldos
Set b = h1.Rows("10:19").Find(ComboBox6.Value, lookat:=xlWhole)
If Not b Is Nothing Then
TextBox5 = Format(b.Offset(1, 0), "#,##0.00")
TextBox6 = b.Offset(2, 0)
TextBox7 = b.Offset(3, 0)
TextBox8 = b.Offset(4, 0)
TextBox9 = b.Offset(5, 0)
TextBox10 = b.Offset(6, 0)
TextBox11 = b.Offset(7, 0)
End If
'
'busca total
Set b = h1.Range("F2:F7").Find(ComboBox6.Value, lookat:=xlWhole)
If Not b Is Nothing Then
TextBox1 = b.Offset(0, 1)
End If
'
'Porcentajes
TextBox2 = h2.Range("G33")
TextBox3 = h2.Range("G34")
TextBox4 = h2.Range("G35")
'
'Llenar la hoja UCE
If TextBox4.Value = "" Then t4 = 0 Else t4 = CDbl(TextBox4.Value)
If TextBox9.Value = "" Then t4 = 0 Else t4 = CDbl(TextBox4.Value)
h2.Range("G23") = t4 'limpieza
h2.Range("G25") = t9 'mantenimiento
End Sub.
.
Gracias Dante por responder pero no entiendo que es t4, t9
Son variables para almacenar temporalmente los valores del textbox
El dato que tienes en el textbox es un texto, pero antes de pasarlo a la hoja, lo debemos convertir en número, para eso es la función CDbl( ), pero si el textbox está vacío, la función CDbl( ) regresa un error, por eso pregunto si es vacío, entonces t4 = 0, si no es vacío entonces t4 = CDbl(textbox4)
Después en la celda pongo el valor de t4
