MsgBox
Hola amigo
Estoy utilizando el siguiente código para verificar unos datos ingresados en en Cuadro de Texto:
Private Sub TextBox21_AfterUpdate()
Dim ubica1, ubica2, ubica3 As String
ubica1 = Mid(TextBox21.Text, 2, 1)
ubica2 = Mid(TextBox21.Text, 6, 1)
ubica3 = Mid(TextBox21.Text, 15, 1)
If ubica1 <> "-" Or ubica2 <> "-" Or ubica3 <> "-" Then
MsgBox ("Debe ingresar datos con este formato: X-000-00000000-0")
TextBox21.Text = ""
End If
End Sub
Estos datos los transporto a una hoja de cálculo y
y limpio el control para el siguiente registro
pero al cerrar el UserForm con el Botón Cancelar o la tecla Esc, nuevamente me aparece el MsgBox indicado arriba,
que puedo hacer para evitar que aparezca al final cuando cierro el userform.
Gracias de antemano
Estoy utilizando el siguiente código para verificar unos datos ingresados en en Cuadro de Texto:
Private Sub TextBox21_AfterUpdate()
Dim ubica1, ubica2, ubica3 As String
ubica1 = Mid(TextBox21.Text, 2, 1)
ubica2 = Mid(TextBox21.Text, 6, 1)
ubica3 = Mid(TextBox21.Text, 15, 1)
If ubica1 <> "-" Or ubica2 <> "-" Or ubica3 <> "-" Then
MsgBox ("Debe ingresar datos con este formato: X-000-00000000-0")
TextBox21.Text = ""
End If
End Sub
Estos datos los transporto a una hoja de cálculo y
y limpio el control para el siguiente registro
pero al cerrar el UserForm con el Botón Cancelar o la tecla Esc, nuevamente me aparece el MsgBox indicado arriba,
que puedo hacer para evitar que aparezca al final cuando cierro el userform.
Gracias de antemano
1 Respuesta
Respuesta
1
yo tenía un problema parecido; y en lugar de poner la validación en el evento AfterUpdate(), opté por ponerlo en el evento del boton que estaría aceptando los datos; pones tu código y en algun lugar agregas TextBox21.SetFocus (para darle el foco al cuadro de texto);
Saludos y comenta si no te sirve la respuesta
Gustavo
Saludos y comenta si no te sirve la respuesta
Gustavo