Comprobar formulario a través de texbox

Tengo un formulario compuesto de 5 textbox, mi necesidad es la de poder comprobar lo siguiente y que salte un msgbox:

1caso.

Si textbox1 = a la suma de textbox2, 3,4 y 5 (call xxx)

Si textbox1> o < a la suma de textbox2, 3,4 y 5 (call yyy)

Si textbox1 o 2 están vacios (call zzz)

Ojo los textbox2, 3,4 y 5 no siempre tiene contenido, y los 3,4 y 5 suelen estar ocultos.

Gracias de antemano, lo he intentado de mil maneras pero siempre me falla por algún lado.

1 Respuesta

Respuesta
1

Te anexo la macro:

Private Sub CommandButton1_Click()
'Por.Dante Amor
    If TextBox1 = "" Or TextBox2 = "" Then
        Call zzz
        TextBox1.SetFocus
        Exit Sub
    End If
    '
    If TextBox1 > 0 Then
        wsuma = Val(TextBox2) + Val(TextBox3) + Val(TextBox4) + Val(TextBox5)
        If Val(TextBox1) < wsuma Then
            Call yyy
            TextBox1.SetFocus
            Exit Sub
        ElseIf Val(TextBox1) = wsuma Then
            Call xxx
        Else
            Call www
        End If
    End If
End Sub
Sub zzz()
    MsgBox "Falta dato en el textbox1 o textbox2"
End Sub
Sub yyy()
    MsgBox "Textbox1 es menor a la suma"
End Sub
Sub xxx()
    MsgBox "Textbox1 y la suma son iguales"
End Sub
Sub www()
    MsgBox "Textbox1 es mayor a la suma"
End Sub

En las consideraciones que pusiste, te falta poner qué se debe hacer cuando el textbox1 es mayor a la suma.

También te falta poner cuando el textbox1 es igual 0, o cuando el textbox1 es menor a 0. Te anexo la macro con esas consideraciones.

Private Sub CommandButton1_Click()
'Por.Dante Amor
    If TextBox1 = "" Or TextBox2 = "" Then
        Call zzz
        TextBox1.SetFocus
        Exit Sub
    End If
    '
    If TextBox1 > 0 Then
        wsuma = Val(TextBox2) + Val(TextBox3) + Val(TextBox4) + Val(TextBox5)
        If Val(TextBox1) < wsuma Then
            Call yyy
            TextBox1.SetFocus
            Exit Sub
        ElseIf Val(TextBox1) = wsuma Then
            Call xxx
        Else
            Call www
        End If
    ElseIf TextBox1 = 0 Then
        MsgBox "El textbox1 es igual a 0"
    Else
        MsgBox "El textbos1 es menor a 0"
    End If
End Sub
Sub zzz()
    MsgBox "Falta dato en el textbox1 o textbox2"
End Sub
Sub yyy()
    MsgBox "Textbox1 es menor a la suma"
End Sub
Sub xxx()
    MsgBox "Textbox1 y la suma son iguales"
End Sub
Sub www()
    MsgBox "Textbox1 es mayor a la suma"
End Sub

Saludos.Dante Amor

Recuerda valorar la respuesta.

¡Gracias! 

Excelente, no puse todas las variables porque con esas tres ya estoy servido, pero las dejo por si en un futuro las tengo que añadir.

Repito muchas gracias.

Añade tu respuesta

Haz clic para o

Más respuestas relacionadas

Insertar numeros con letras en una celda y detectar error con un msgbox

Me acaba de ayudar bastante en la anterior macro (EL cual me ha servido de mucha ayuda), me ha salido un problemita no en el código si no a la hora de utilizarlo ya que por error no te mencione lo sig.. Este es el código tuyo que me funciona...
1 respuesta

Si se deja un Textbox en blanco

Tengo este código en un formulario de excel: Private Sub TextBox1_Change() largo_entrada = Len(Me.TextBox1) Select Case largo_entrada Case 2 Me.TextBox1.Value = Me.TextBox1.Value & "/" Case 5 Me.TextBox1.Value = Me.TextBox1.Value & "/2008"...
2 respuestas

Corregir macro para que pegue los datos modificados en base de datos.

He tratado de buscarle el simple error a esta macro pero solo con el apoyo de expertos lograré la solución. Es una agenda de nombres y datos generales por municipio; uno en cada hoja. Con el CmdBtn1, ingresa perfectamente los datos y ordena por...
1 respuesta

Adecuar datos en textbox para que se coloquen en un hoja y celda especifica

Tengo 2 hojas la primera es : clientes y la segunda FACTURAS Recién realice este código: Private Sub CommandButton3_Click()Sheets("FACTURAS POR HACER").ActivateSelection.EntireRow.InsertIf TextBox1 = "" Or TextBox2 = "" Or TextBox3 = "" Or TextBox4 =...
1 respuesta

Impedir textbox vacíos en userform

Mi problema es que tengo un userform que copia los datos de los textbox a celdas de una hoja de excel, y que al apretar un botón, ejecuta una macro usando esos datos, pero si dosn textbox en concreto no está lleno antes de apretar el botón, el...
1 respuesta

Formularios VBA en excel

Estoy realizando un directorio y quisiera que a la hora de introducir mis datos en el formulario que ya he realizado me los clasifique en las distintas hojas que he creado para cada sector pero que tambien se quede registrado en la hoja principal que...
1 respuesta

Textbox con suma de decimales y enteros

Tengo este siguiente codigo que multiplica textbox por "cierta cantidad" Private Sub CommandButton1_Click() If TextBox1 <> 0 Then TextBox2 = Val(TextBox1.Value) * (1000) TextBox2 = Format(TextBox2, "$ #,###00.00") Else TextBox2 = "" End If If...
1 respuesta

Encontrar dato y modificar "fila" mediante Userform

De todoexpertos, tengo un problema que aun no le he podido dar solución, bien les explicare tengo una hoja donde esta la base de datos de alumnos(que esta oculta) que tengo (nombre, apellido, asistencia, 1 examen, 2 examen, 3 examen, Estado), y he...
1 respuesta

¿Textbox No suma Decimales?

Hla, tengo un formulario con 4 textbox alineados en dos columnas de dos textbox c/u y un botón entre ellos, o que hace mi formulario es esto: Escribo un Valor en el Textbox1, presiono el botón que esta entre los dos textbox, el botón busca ese valor...
3 respuestas

Desbordamiento en Macro

Solicito de su colaboración para saber por qué al ejecutar esta macro me arroja error en la linea que aparece subrayada y con negrita. Mil gracias por su oportuna y pronta colaboración. Beatriz Private Sub CommandButton1_Click() Rem inserta un...
1 respuesta