** NORMAS DEL FORO **
Inicio del foro Inicio del foro > Otros de Microsoft: Windows y Office > Excel
  Mensajes nuevos Mensajes nuevos RSS - Comprobación de que una suma es 100
  Preguntas frecuentes Preguntas frecuentes  Buscar en el foro   Eventos   Registro Registro  Iniciar sesion Iniciar sesion

Tema cerradoComprobación de que una suma es 100

 Responder Responder
Autor
Mensaje
catc08 Ver desplegable
Nuevo
Nuevo
Avatar

Unido: 03/Noviembre/2014
Localización: Costa Rica
Estado: Sin conexión
Puntos: 3
Enlace directo a este mensaje Tema: Comprobación de que una suma es 100
    Enviado: 03/Noviembre/2014 a las 21:49
Quiero hacer un botón que al darle click si la suma de ciertos textBox en mi userform  no es cien que envíe un mensaje de texto, lo malo es que a como lo pensé realizar siempre envía el mensaje, incluso cuando la suma si es cien.
Este es el código:

Private Sub CommandButton1_Click()

If TextBox1.Value = "" Or TextBox2.Value = "" Or TextBox5.Value = "" Or TextBox6.Value = "" Or TextBox7.Value = "" Or TextBox8.Value = "" Or TextBox9.Value = "" Or TextBox10.Value = "" Or TextBox11.Value = "" Or TextBox14.Value = "" Then
MsgBox "Debe ingresar valores solicitados"
Exit Sub
Else


Sheets("Tráfico").Select
Range("b10").Select
ActiveCell = TextBox1.Value

Range("b11").Select
ActiveCell = TextBox2.Value

Range("b13").Select
ActiveCell = TextBox14.Value

Range("b2").Select
ActiveCell = TextBox11.Value

Range("b3").Select
ActiveCell = TextBox6.Value

Range("b4").Select
ActiveCell = TextBox7.Value

Range("b5").Select
ActiveCell = TextBox5.Value

Range("b6").Select
ActiveCell = TextBox8.Value

Range("b7").Select
ActiveCell = TextBox9.Value

Range("b8").Select
ActiveCell = TextBox10.Value
End If
If OptionButton1.Value = False And OptionButton2.Value = False And OptionButton3.Value = False Then
    MsgBox "Debe seleccionar la cantidad de carriles"

    ElseIf OptionButton1.Value = True Then
        Sheets("Tráfico").Select
Range("b12").Select
ActiveCell = 0.5

        ElseIf OptionButton2.Value = True Then
        Sheets("Tráfico").Select
Range("b12").Select
ActiveCell = 0.45

        ElseIf OptionButton3.Value = True Then
        Sheets("Tráfico").Select
Range("b12").Select
ActiveCell = 0.4
     End If
     
If OptionButton4.Value = False And OptionButton5.Value = False And OptionButton6.Value = False Then
    MsgBox "Debe seleccionar los factores camión a utilizar"
Exit Sub
    ElseIf OptionButton4.Value = True Then
        Sheets("Tráfico").Select
Range("c10").Select
ActiveCell = 1

        ElseIf OptionButton5.Value = True Then
        Sheets("Tráfico").Select
Range("c10").Select
ActiveCell = 2

        ElseIf OptionButton6.Value = True Then
                 
        If TextBox15.Value = "" Or TextBox16.Value = "" Or TextBox17.Value = "" Or TextBox18.Value = "" Or TextBox19.Value = "" Or TextBox20.Value = "" Or TextBox21.Value = "" Then
        MsgBox "Debe escribir sus factores camión"
        Exit Sub
        
        Else
        Sheets("Tráfico").Select
Range("c10").Select
ActiveCell = 3
Range("e2").Select
ActiveCell = TextBox16.Value
Range("e3").Select
ActiveCell = TextBox18.Value
Range("e4").Select
ActiveCell = TextBox19.Value
Range("e5").Select
ActiveCell = TextBox17.Value
Range("e6").Select
ActiveCell = TextBox20.Value
Range("e7").Select
ActiveCell = TextBox21.Value
Range("e8").Select
ActiveCell = TextBox15.Value
     End If
     End If
    If TextBox11.Value + TextBox6.Value + TextBox7.Value + TextBox5.Value + TextBox8.Value + TextBox9.Value + TextBox10.Value Then
MsgBox "Los porcentajes deben sumar 100"
Exit Sub
End If
     niv2traf.Hide
     Bienvenida.Show

End Sub

Private Sub OptionButton6_Click()

TextBox15.Enabled = True
        TextBox16.Enabled = True
        TextBox17.Enabled = True
        TextBox18.Enabled = True
        TextBox19.Enabled = True
        TextBox20.Enabled = True
        TextBox21.Enabled = True
                        
End Sub


Les agradezco la ayuda que me puedan brindar.
Arriba
lbauluz Ver desplegable
Administrador
Administrador
Avatar

Unido: 29/Marzo/2005
Localización: Binghamton Jail
Estado: Sin conexión
Puntos: 3561
Enlace directo a este mensaje Enviado: 04/Noviembre/2014 a las 02:14
Hola Catc08, bienvenido al foro.

Prueba así:

If (val(TextBox11.Value) + val(TextBox6.Value) + TextBox7.Value + ... + val (TextBox10.Value) <> 100) Then
    MsgBox "Los porcentajes deben sumar 100"
Exit Sub

Lo que estás haciendo en realidad al decir

"If TextBox11.Value + TextBox6.Value + TextBox7.Value + TextBox5.Value + TextBox8.Value + TextBox9.Value + TextBox10.Value Then" es decir si es distinto de falso presenta el mensaje


Un saludo.

Luis.
Hay un culto a la ignorancia y siempre lo ha habido y es alimentado por la falsa noción de que democracia significa que "mi ignorancia es tan buena como su conocimiento". (Isaac Asimov)
Arriba
catc08 Ver desplegable
Nuevo
Nuevo
Avatar

Unido: 03/Noviembre/2014
Localización: Costa Rica
Estado: Sin conexión
Puntos: 3
Enlace directo a este mensaje Enviado: 04/Noviembre/2014 a las 23:32
Demasiadas gracias! Eso es lo que ocupaba cuál es la forma de poder indicar que use el valor bien del textbox. Una pregunta de donde puedo encontrar ejemplos o información para programar en vba?
Arriba
AnSanVal Ver desplegable
Administrador
Administrador
Avatar

Unido: 16/Marzo/2005
Localización: España
Estado: Sin conexión
Puntos: 5638
Enlace directo a este mensaje Enviado: 05/Noviembre/2014 a las 01:19
En este foro tienes un curso gratuito publicado por Eduardo Olaz, que aunque está orientado a Access, en su mayor parte es aplicable al resto de aplicaciones Office, entre ellas Excel, solamente te faltará lo relativo a hojas, rangos, etc. en cuyo caso puedes apoyarte en "Santa GRABADORA".
 
 
Editado: Y para tus dudas puntuales seguiremos estando por aquí. Cierro el hilo.


Editado por AnSanVal - 05/Noviembre/2014 a las 01:22
Aprendemos intentando resolver dudas ajenas (ayuda cuando puedas/sepas).

Mi sitio_web con ejemplos Excel.
Arriba
 Responder Responder
  Compartir tema   

Ir al foro Permisos de foro Ver desplegable