FOrmato y SUma de dos o más textbox de un formulario
Estoy a punto de crear un formulario para la cual pienso en 2 opciones
La primera es:
Que un mismo textobox poner una fórmula de suma y esta me la arroje en una celda de mi hoja..
Ejemplo en textbox
TECLEAR esto: +500.30+200.50 esta suma me la arroje ya en una celda como $700.70
La segunda opción.
Es crear dos textbox para poner cantidades separadas para luego sumarlas.
Ejemplo textbox1
(Formato moneda con decimal) $500.30
Textbox 2
(Formato moneda con decimal) $200.50
Y en otro textbox arrojar la suma que es 700.70 para que este se ponga en la celda de mi hoja...
No se cual sea más fácil y sencillo
TODO ESTO CON TECLA ENTER si se pudiese
1 Respuesta
La desventaja de hacerlo en un textbox, es que tienes que buscar el símbolo "+", si lo encuentra, separar las cantidades, validar que sean numéricos y por último sumarlas.
Te recomiendo que lo hagas en 2 textbox, valides que sean numéricos y pasarlo a otro textbox.
El evento: cuando presionas la tecla Enter, no existe, existe el evento "Enter", pero significa cuando "Entras" al Textbox.
El evento que puedes ocupar es "Exit", es cuando "Sales" del textbox.
Puede ser así:
Private Sub TextBox1_Exit(ByVal Cancel As MSForms.ReturnBoolean) 'Por.Dante Amor If Not IsNumeric(TextBox1) Then MsgBox "Introduce un valor numérico en cantidad 1" Cancel = True Exit Sub End If If IsNumeric(TextBox2) Then TextBox3 = Format(CDbl(TextBox1) + CDbl(TextBox2), "$ #0.00") End If End Sub ' Private Sub TextBox2_Exit(ByVal Cancel As MSForms.ReturnBoolean) 'Por.Dante Amor If Not IsNumeric(TextBox2) Then MsgBox "Introduce un valor numérico en cantidad 2" Cancel = True Exit Sub End If If IsNumeric(TextBox1) Then TextBox3 = Format(CDbl(TextBox1) + CDbl(TextBox2), "$ #0.00") End If End Sub
Otra recomendación: no utilices formato en el textbox1 y textbox2, ya que vas a realizar la suma, en el textbox3 sí se puede poner un formato.
S a l u d o s
EN CASO DE que no use formato en los dos primeros textbox
como sumo los dos textbox anteriores
y poner formato en el 3er textbox
Si no usas formato, la macro funciona así como la puse.
