Excel Avanzado

Macros, Vba en Excel y muchos ejemplos de nuestro Curso de Excel Avanzado

Excel Avanzado
D4, Validar el ingreso de un email en un textbox

Validar el ingreso de un email en un textbox

| 2 comentarios

En esta oportunidad usaremos un validador en el ingreso de un email en un texbox utilizando "InStr" el cual nos permite restringir el tipo de caracteres a emplearse en la digitación de un correo electrónico de forma correcta. Ademas utilizamos If…Then…Else para condicionar que el ingreso se realice correctamente, mediante cuadros de dialogos que nos indicaran si el ingreso del email se realizo correctamente o no.

Sintaxis

Private Sub CommandButton1_Click()
If InStr(1, TextBox1.Text, "@") = 0 Then
MsgBox "No es un correo electrónico valido."
Else
MsgBox "Correo electrónico valido."
End If
End Sub

Descripcion

En el ejemplo adjunto se muestra de manera didáctica la secuencia de la aplicación de la programacion:

Hacemos click en:

D1, Validar el ingreso de un email en un textbox

Aparecerá:

D2, Validar el ingreso de un email en un textbox

Si ingresamos correctamente el email:

D3, Validar el ingreso de un email en un textbox

En caso contrario:

D4, Validar el ingreso de un email en un textbox

Se adjunta ejemplo:

Validar el ingreso de un email en un textbox

Elaborado por: Patricia Ubillus

2 comentarios

  1. Hola, revisé tu código, pero está incompleto. Puedes validar que solo tenga el "@", pero falta que disponga de un ".com", ".cl", entre otros.
    Te recomiendo que lo actualices con el resto de la expresión regular.
    Un saludo desde Chile. Mucho éxito.

  2. gracias igualmente un saludo desde méxico

Deja un comentario

Los campos requeridos estan marcados con *.