Validacion de Datos Y msgbox
Hola!
Quiero hacer un formato, donde en la 1a página solicite un usuario, si este no esta que no permita el paso a la siguiente página, ya he intentando con diferentes macros, pero me atoro en la validación.
Quiero algo parecido ha esto:
If [d7] <> "" Then msgbox "Presiona Enviar"
Sheets("Hoja2").Select
Range("C9").Select
If [d7] <> "" Then msgbox "ingresa el usuario"
End Sub
Quiero hacer un formato, donde en la 1a página solicite un usuario, si este no esta que no permita el paso a la siguiente página, ya he intentando con diferentes macros, pero me atoro en la validación.
Quiero algo parecido ha esto:
If [d7] <> "" Then msgbox "Presiona Enviar"
Sheets("Hoja2").Select
Range("C9").Select
If [d7] <> "" Then msgbox "ingresa el usuario"
End Sub
1 Respuesta
Respuesta de adrian1602
1
espero y te sirva, lo valide como si no colocas la palabra "America" no te dejara seguir.
Sub validacion()
id:
Range("A1") = InputBox("INGRESE EL NOMBRE DE USUARIO", "INICIAR SESION", "")
If Range("A1") = "America" Then
GoTo siguiente
Else
GoTo id
End If
siguiente:
Sheets("Hoja2").Select
A = MsgBox("BIENVENIDO", vbOKOnly, "INICIAR SESION")
Range("A3").Select
End Sub
No olvides finalizar la pregunta.
Sub validacion()
id:
Range("A1") = InputBox("INGRESE EL NOMBRE DE USUARIO", "INICIAR SESION", "")
If Range("A1") = "America" Then
GoTo siguiente
Else
GoTo id
End If
siguiente:
Sheets("Hoja2").Select
A = MsgBox("BIENVENIDO", vbOKOnly, "INICIAR SESION")
Range("A3").Select
End Sub
No olvides finalizar la pregunta.
