miércoles, 19 de abril de 2017

Validar correo en 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

Razones para darte de baja de las redes sociales

Existen corporaciones que ganan miles de dolares con la información que les dan de manera inconsciente sus usuarios, te has preguntado si d...