Mensaje de error si texto inadecuado en TextBox (UserForm)

[patrickponfe]

Buenas tardes,

Quería saber si es posible indicar al usuario que el texto introducido en un TextBox es erróneo.

Es decir, que en el textbox1, si no empieza (o contiene) "TM", salte una pop-up...

Para poder visualizar el resto de este tema y sus adjuntos:
. Si nunca te has registrado puedes registrarte gratis aquí
. Si ya te has registrado debes iniciar sesión aquí

 

[Goldfinger]

Prueba asi

Sin permisos de acceso

 

[FGV]

Hola @patrickponfe,
Te puede servir:

Private Sub TextBox1_BeforeUpdate(ByVal Cancel As MSForms.ReturnBoolean)
    If Not TextBox1 Like "*TM*" Then
        MsgBox "No...

Para poder visualizar el resto de este tema y sus adjuntos:
. Si nunca te has registrado puedes registrarte gratis aquí
. Si ya te has registrado debes iniciar sesión aquí

 

[Dante Amor M]

Prueba lo siguiente:

Private Sub TextBox1_Exit(ByVal Cancel As MSForms.ReturnBoolean)
  If InStr(1, TextBox1.Value, "TM", vbTextCompare) = 0 Then
    MsgBox "No se ha introducido el...

Para poder visualizar el resto de este tema y sus adjuntos:
. Si nunca te has registrado puedes registrarte gratis aquí
. Si ya te has registrado debes iniciar sesión aquí

 

[patrickponfe]

Prueba asi

Sin permisos de acceso

Buenas Goldfinger,

gracias por tu respuesta. Esta opción me da...

Para poder visualizar el resto de este tema y sus adjuntos:
. Si nunca te has registrado puedes registrarte gratis aquí
. Si ya te has registrado debes iniciar sesión aquí

 

[Goldfinger]

fijate bien en la imagen la instruccion correcta es if len(texto)=2 and texto<>"TM" then solo una correcion usa mejor esta instruccion
if len(ucase(texto))=2 and texto<>"TM"