Textbox que me cambie automáticamente la cantidad al ingresar datos en otro textbox
Para dante:
Hijole dante ya me da vergüenza preguntar tanto :D
Mira tengo un formulario que se llama efectivo en donde meto el dinero ese formulario tiene varios textbox en donde meto el dinero y hay uno que es el total, mi pregunta es como se hace para que cuando meta una cantidad en el textbox11 se valla colocando automáticamente el monto en el textbox10 (total)
Ojala que me puedas ayudar
2 respuestas
Con mucho cariño te digo que si solo quieres que una persona te responda, mejor le escribas a su correo, lo otro ya parece spam.
Hola jamo ingles, disculpa es cierto parece spam toda la razón, es que dante me dice que lo publique en todoexpertos por eso lo hago y mil disculpa jamón por mandar tanto preguntas ;(
Ah bueno, si te lo piden no viene tanto a que tú hagas algo malo amigo, en todo caso es el señor Dante que no entiendo para que pide eso si después te dirá "Envíamelo al correo". Incoherencia.
Hola dante gracias por el apoyo, mira coloque el código pero no no va cambiado de forma automática al meter numero en los otros textbox
Si te fijas no me cambia de forma automática la cantidad en total
Te anexo el código completo del form
Private Sub ComboBox1_Enter()
ComboBox1. List = array("enero", "febrero", "marzo", "abril", "mayo", "junio", "julio", "agosto", "septiembre", "octubre", "noviembre", "diciembre")
TextBox1.Enabled = True
TextBox2.Enabled = True
TextBox3.Enabled = True
TextBox4.Enabled = True
TextBox5.Enabled = True
TextBox6.Enabled = True
TextBox7.Enabled = True
TextBox8.Enabled = True
TextBox9.Enabled = True
TextBox10.Enabled = True
TextBox1.SetFocus
End Sub
'
Private Sub CommandButton2_Click()
Unload Me
End Sub
'
Private Sub TextBox1_Change()
Call Totalizar
End Sub
Private Sub TextBox2_Change()
Call Totalizar
End Sub
Private Sub TextBox3Change()
Call Totalizar
End Sub
Private Sub TextBox4_Change()
Call Totalizar
End Sub
Private Sub TextBox5_Change()
Call Totalizar
End Sub
Private Sub TextBox6_Change()
Call Totalizar
End Sub
Private Sub TextBox7_Change()
Call Totalizar
End Sub
Private Sub TextBox8_Change()
Call Totalizar
End Sub
Private Sub TextBox9_Change()
Call Totalizar
End Sub
'
Sub Totalizar()
TextBox10 = ""
d200 = Val(TextBox1.Value) * 200
d100 = Val(TextBox2.Value) * 100
d050 = Val(TextBox3.Value) * 50
d020 = Val(TextBox4.Value) * 20
d010 = Val(TextBox5.Value) * 10
d005 = Val(TextBox6.Value) * 5
d002 = Val(TextBox7.Value) * 2
d001 = Val(TextBox8.Value) * 1
d000 = Val(TextBox9.Value) * 0.5
TextBox10 = d200 + d100 + d050 + d020 + d010 + d005 + d002 + d001 + d000
End Sub
'
Private Sub UserForm_Initialize()
TextBox1.Enabled = False
TextBox2.Enabled = False
TextBox3.Enabled = False
TextBox4.Enabled = False
TextBox5.Enabled = False
TextBox6.Enabled = False
TextBox7.Enabled = False
TextBox8.Enabled = False
TextBox9.Enabled = False
TextBox10.Enabled = False
End Subsal u dos