Cómo Verificar las Direcciones de Correos Electrónicos

Cómo Verificar las Direcciones de Correos Electrónicos

En muchas ocasiones, cuando tenemos la necesidad de verificar o comprobar datos en Excel, usamos la herramienta de Validación de datos; sin embargo, para ciertos casos es limitada.
¿Como validar un correo electrónico en una celda de Excel?
Paso 1: Entramos a Visual Basic Application (VBA) presionando las teclas ALT+F11
Paso 2: Hacemos clic en el menú Insertar / Módulo
Paso 3: En la pantalla en blanco copiamos el siguiente código:
Public Function blnEmailValid(ByVal strEmailAdd As String) As Boolean
With CreateObject(“VBScript.RegExp”)
.IgnoreCase = True
.Global = True
.Pattern = “^([a-zA-Z0-9_\-\.]+)@[a-z0-9-]+(\.[a-z0-9-]+)*(\.[a-z]{2,3})$”
blnEmailValid = .Test(strEmailAdd)
End With
End Function
Acabamos de crear una función que se llama blnEmailValid y que podremos utilizar en cualquier celda del Excel.
Esta función esta verificando una Expresión regular que contiene un patrón establecido.
Paso 4: Cerramos el VBA y regresamos en Excel.
Paso 5: En la celda C2 escribimos un correo electrónico; y en D2 escribimos la función de la siguiente manera:
= blnEmailValid(C2)
Si el correo es correcto nos indica Verdadero, sino Falso
Eso es todo!!

Deja un comentario

Este sitio usa Akismet para reducir el spam. Aprende cómo se procesan los datos de tus comentarios.