Ayuda con Fucion if, else,end if me da error

Me sirvió de mucho, pero ahora tengo otro problema, mira tengo dos userforms que simulan cambiar una contraseña, el primero que me pida la contraseña guardada en una celda, este es el código del botón de aceptar del primero:
Private Sub boton_de_aceptar_primer_userform_Click()
contraseña = Range("a1")
If TextBox1 = contraseña Then
Unload Verificar_contraseña
Load cambiar_contraseña
cambiar_contraseña.Show
Else
MsgBox "Contraseña Incorrecta"
TextBox1.SetFocus
TextBox1 = Empty
End If
End Sub
"HASTA AQUI TODO ESTA BIEN"
Pero en el segundo, lo que intento hacer es que me pida una nueva contraseña y que la repita para verificar la primera contraseña del primer textbox, osea que sean iguales. Y que si los dos textbox están vacíos y el usuario presiona el botón de aceptar les pida que introduzcan una contraseña, y que si los dos textbox están llenos y son idénticos me diga que la contraseña ha sido cambiada con éxito.
aqui el codigo del segundo userform:
Private Sub boton_de_aceptar_segundo_userform_Click()
If TextBox2 <> TextBox1 Then
MsgBox "Las contraseñas no coinciden"
TextBox1 = Empty
TextBox2 = Empty
TextBox1.SetFocus
Else
If TextBox1 = Empty And TextBox2 = Empty Then
MsgBox "Introduce una contraseña valida"
Else
If TextBox1 =full and TextBox2=full and TextBox1 = TextBox2 Then
Range("a1") = TextBox2
MsgBox "Contraseña cambiada con exito"
Unload cambiar
End If
End Sub
En esta parte no se si se deba usar la palabra full para indicar si esta lleno el textbox, y aparte me marca este error [error de compilacion:bloque if sin end if]
NO SE USAR MUY BIEN EL IF,ELSE Y END IF. EN ESO ME ESTOY CONFUNDIENDO.
Te agradezco tu tiempo y espero me puedas ayudar, trate de ser lo más claro posible.

2 respuestas

Respuesta
1
Para verificar los Ifs, es mejor tabular. Esto es lo que tienes tu:
If TextBox2 <> TextBox1 Then
    MsgBox "Las contraseñas no coinciden"
    TextBox1 = Empty
    TextBox2 = Empty
    TextBox1.SetFocus
Else
    If TextBox1 = Empty And TextBox2 = Empty Then
        MsgBox "Introduce una contraseña valida"
    Else
        If TextBox1 =full and TextBox2=full and TextBox1 = TextBox2 Then
            Range("a1") = TextBox2
            MsgBox "Contraseña cambiada con exito"
            Unload cambiar
        End If
End Sub
Si te fijas, abres tres If y solo cierras uno.
Lo de Empty no me gusta, es preferible usar IsNull(). Yo lo haria asi:
If (TextBox2.Value <> TextBox1.Value) Then
    MsgBox "Las contraseñas no coinciden"
    TextBox1.Value = ""
    TextBox2.Value = ""
    TextBox1.SetFocus
Else
    If (IsNull(TextBox1.Value)) Or (IsNull(TextBox2.Value)) Then
        MsgBox "Introduce una contraseña valida"
    Else
        Range("a1") = TextBox2
        MsgBox "Contraseña cambiada con exito"
        Unload cambiar
    End If
End If
End Sub
Respuesta
1
Prueba:
Antes de que aceptar opere...
Puedes distribuirlo... y menos trabajo para el aceptar... y se distribuiye en los textos...
No olvides colocar las propiedades de value en cada campo... sino se dificultan las operaciones...
Private Sub TextBox1_Change()
If Len(Trim(TextBox1.Value)) < 0 Then
   TextBox2. Enabled = False ' esto evita que t cargue algo en el texto 2 sin aber casrgado el primero
End If
End Sub
Private Sub TextBox2_AfterUpdate()
If Len(Trim(TextBox1.Value)) > 0 Then
   If TextBox1.Value = TextBox2.Value Then
      boton_de_aceptar_segundo_userform.Enabled = True
   Else
       TextBox2.Value = Empty
       TextBox1.Value = Empty
       TextBox1.SetFocus
       MsgBox "Clave diferentes"
   End If
End If
End Sub
Private Sub boton_de_aceptar_segundo_userform_Click()
Range("a1") = TextBox2.value
   MsgBox "Contraseña cambiada con exito"
   Unload cambiar
End Sub

Añade tu respuesta

Haz clic para o

Más respuestas relacionadas

Formulario Usuario y Contraseña Excel 2010

De nuevo vuelvo a tener una duda. Estoy generando un fichero excel para el control de unos proyectos, y quería agregarle una restricción de uso, es decir, que sólo lo puedan utilizar aquellas personas que tengan un usuario y clave que yo les...
2 respuestas

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

Macro de usuario y contraseña

Necesito un favorsote. Lo que pasa es que quiero una macro donde al introducir su nombre de usuario y contraseña les de acceso al libro de excel. Me gustaría que esta ontraseñas estuvieran en una hoja de excel y saber cuando entro uno de ellos. ¿Se puede?
2 respuestas

Macro para bajar renglones

Me podrías ayudar con una macro que realize la siguiente función: Tengo un useform que pone datos en la celdas, y le hice un botón de aceptar, lo que quiero que haga ese botón es que me pocisione en la siguiente celda, por ejemplo: Escribo datos en...
2 respuestas

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

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

Macro para que no se repitan los códigos

Estoy realizando un formulario en excel con el editor de Visual Basic mi formulario me permite el ingreso de datos que se guardan en una hoja de excel entre los datos tengo "Código, nombre, dirección, teléfono, cargo... Etc" cosas por lo parecido...
2 respuestas

¿Cómo hago para añadir en una nueva hoja de calculo?VBA

Tengo el siguiente código que copie de un ejemplo que descargue pero cuando quiero añadir lo que hace es hacerlo en la misma hoja de calculo toda la información de las textbox, ¿Cómo haría para hacer que cada vez que añada un nuevo cliente aparezca...
3 respuestas

¿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