UDF: eXl_WHATSAPP para Enviar mensajes de WhatsApp desde Excel

0

 

Código:


Public Function eXl_WHATSAPP(Numero As Variant, Optional Mensaje As String = "") As String

    Dim NumLimpio As String

    Dim MsgCodificado As String

    Dim EnlaceURL As String


    If IsEmpty(Numero) Or Trim(CStr(Numero)) = "" Then

        eXl_WHATSAPP = "ERROR: Número obligatorio."

        Exit Function

    End If


    NumLimpio = Replace(Replace(Replace(Replace(CStr(Numero), " ", ""), "-", ""), "(", ""), ")", "")

    EnlaceURL = "https://wa.me/" & NumLimpio


    If Trim(Mensaje) <> "" Then

        MsgCodificado = WorksheetFunction.Substitute(Trim(Mensaje), " ", "%20")

        EnlaceURL = EnlaceURL & "?text=" & MsgCodificado

    End If


    eXl_WHATSAPP = EnlaceURL

End Function


👉 Como hacer que la UDF (User Defined Functions) esté disponible como una Función Nativa de Excel


⭐ Si te gustó, por favor regístrate en nuestra Lista de correo y Suscríbete a mi canal de YouTube para que estés siempre enterado de lo nuevo que publicamos.

Entradas que pueden interesarte

Entradas más recientes Entradas antiguas

Sin comentarios

Etiquetas:
#aprendiendoexcel365, #josealcaldealias, #Excel, #funciones, #UDF, #Visual Basic, #VBA, #DAX, #Tips, #Basico, #Microsoft Excel, #Cursos Excel OnLine, #Aprende Excel, #Aprende Excel OnLine, #Excel 365, #Power Pivot, #Power BI, #Power Query, #Google Sheets, #Macros, #Código VBA, #Tutoriales Excel, #MTV, #Vbscript, #TypeScript, #Lenguaje M, #fórmulas, #funciones, #paso a paso, #funciones Excel, #libros, #tablas, #formatos, #hojas, #datos, #gráfico, #análisis de datos, #base de datos, #dashboards, #tablas dinámicas, #excel desde cero, #hoja de cálculo, #plantillas de Excel