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

Respuesta
1

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.

Añade tu respuesta

Haz clic para o

Más respuestas relacionadas