Estoy haciendo un formulario con ComboBox que tiene números del 1 al 10
Estoy haciendo un formulario con ComboBox que tiene números del 1 al 10 y al seleccionar una opción (número) necesito que se multiplique con un valor (que es un precio) y el resultado se muestre en el textbox.
1 respuesta
H o l a:
Envíame tu archivo con el formulario para revisarlo
Mi correo [email protected]
En el asunto del correo escribe tu nombre de usuario “Karper Diem” y el título de esta pregunta.
Dante gracias lo acabo de enviar a tu correo.
H o l a:
Agregué una línea para verificar que estés poniendo un número en la cantidad, también estoy convirtiendo lo que tienes en cada combo de texto a valor, con la instrucción DBbl:
Private Sub CANT_AGUAMIN_Change() 'Por.Dante Amor If CANT_AGUAMIN = "" Or Not IsNumeric(CANT_AGUAMIN) Then Exit Sub TextBox1 = CDbl(CANT_AGUAMIN) * 800 End Sub ' Private Sub CANT_GATOR_Change() If CANT_GATOR = "" Or Not IsNumeric(CANT_GATOR) Then Exit Sub TextBox2 = CDbl(CANT_GATOR) * 1600 End Sub ' Private Sub CANT_JUGONAT_Change() If CANT_JUGONAT = "" Or Not IsNumeric(CANT_JUGONAT) Then Exit Sub TextBox3 = CDbl(CANT_JUGONAT) * 1600 End Sub ' Private Sub CANT_JUGONATCP_Change() If CANT_JUGONAT = "" Or Not IsNumeric(CANT_JUGONAT) Then Exit Sub TextBox4 = CDbl(CANT_JUGONATCP) * 2000 End Sub ' Private Sub TE_Change() If TE = "" Or Not IsNumeric(TE) Then Exit Sub TextBox5 = CDbl(TE) * 800 End Sub ' Private Sub PANALIA_Change() If PANALIA = "" Or Not IsNumeric(PANALIA) Then Exit Sub TextBox6 = CDbl(PANALIA) * 1200 End Sub ' Private Sub PANINI_Change() If PANINI = "" Or Not IsNumeric(PANINI) Then Exit Sub TextBox7 = CDbl(PANINI) * 2600 End Sub
Dante tengo otro problema con la fecha del formulario de CAFETERÍA al traspasarse al excel la cambia el mes y el día al revés lo cual no pasa con la fecha del formulario de REGISTRO, ayuda por fis
La información que se almacena en los textbox, combobox, listbox, label, es un texto, si lo quieres como número o como fecha hay que convertir ese texto al valor que deseas, en este caso hay que convertirlo a fecha.
Cambia esta línea:
ActiveCell.Value = ingreso.Value
Por esta:
ActiveCell.Value = CDate(ingreso.Value)
'
Con gusto te sigo apoyando, pero deberás crear una pregunta por cada petición. Sal u dos
