Saltar al contenido
PROGRAMAR EN VBA MACROS DE EXCEL

Como ENVIAR WHATSAPP Personalizado en Forma MASIVO con Excel NUEVA Version #510

Enviar mensaje masivo personalizado whatsapp

Como ENVIAR WHATSAPP MASIVOS distintos a Cada Contacto

Este post es otro mas de la saga de ejemplos destinados a mostrar como se puede Enviar Whatsapp con Excel, en este ejemplo específicamente se mostrará como enviar Whatsapp personalizados en forma masiva, es decir que se le enviará un mensaje de Whatsapp distinto a cada uno de los contactos que tenemos listados en la hoja de Excel.

Maneja Excel como los mejores entra en el link y mira como se hace click acá, si quieres aprender sobre Excel en inglés, entonces debes hacer click here. Si lo que necesitas es aprender o profundizar sobre la programación de macros con VBA este es unos de los mejores cursos on line que he visto en internet, te lo recomiendo no te arrepentirás.

  
 

En el vídeo verás la macro en acción con una explicación más detallada de su codificación y funcionamiento, recomiendo observar para una más fácil comprensión de la macro; suscribe a nuestro canal de You Tube, mira el playlist con  vídeos relacionados donde podrás ver la macros relacionadas en acción con una explicación en forma visual que ayudará a entender el ejemplo en forma más fácil.

Mensajes de WHATSAPP personalizados Masivos

Una vez descargado el archivo, se podrá observar una pestaña personalizada que contiene un icono de Whatsapp, presionando el mismo se muestra un Msgbox que pregunta al usuario si desea enviar un menaje a los contactos listados en la hoja de calculo.

Si se selecciona que no se desea enviar, la macro se cancela y termina; en el caso que se presione que se desea enviar, la macro recorre todas las filas desde la fila dos hasta la última fila con datos, enviando un mensaje a cada uno de los contactos.

El mensaje que Whatsapp personalizado que se enviará es el que figura en la columna C y fila correspondiente.

 

Quizás también interese leer:

Como eliminar dato seleccionado del listbox y hoja excel con enter 
Como acelerar al maximo busqueda en listbox mientras se escribe en textbox 
Pasar datos listbox multiselect a distintas hoja excel dependiendo de condicion 

Si quieres aprender más sobre listbox de excel o ver otros ejemplos que podrías aplicar a tus proyectos te invito a ver el playlist sobre Listbox de Excel.

Explicación del Código que Envia Mensajes de Whatsapp Personalizados Masivos

En primer lugar se creará un objeto con la Hoja1 que es en la cual trabajamos, esto es a los fines de facilitar la escritura del código solamente, seguidamente se determina cual es la última fila con datos para saber hasta que fila se debe realizar el bucle o en otras palabras hasta que fila se debe recorrer, el código es el siguiente:

Set a = Sheets(«Hoja1»)
uf = a.Range(«A» & Rows.Count).End(xlUp).Row

Luego se realiza un bucle recorriendo las filas desde la 2 hasta la última fila con datos, con el siguiente código

For x = 2 To uf

… código

Next x

Por cada fila recorrida por el bucle se realiza el procedimiento de envío de Whatsapp personalizado, para ello se debe se cargar en dos variables el número de teléfono y el mensaje que se va e enviar, ello se obtiene de la columna B el número de teléfono y en la columna C el mensaje a enviar, se usa el siguiente código:

telwhatsapp = a.Cells(x, «B»)
textwhatsapp = a.Cells(x, «C»)

Luego se navega hasta la Api oficial de Whatsapp y desde ahí abre automáticamente Whatsapp Web que previamente debemos tener descargado en nuestra PC, el código que se usa es el siguiente:

mylinkwhatsapp = «https://api.whatsapp.com/send?phone=» & telwhatsapp & «&text=» & textwhatsapp
ActiveWorkbook.FollowHyperlink mylinkwhatsapp

Una vez ejecutada la aplicación de Whatsapp Web en nuestra PC, se procede a enviar impulsos de teclado con  SendKey y con ello se consigue enviar el mensaje de Whatsapp en forma personalizada y masiva.

Application.Wait (Now + TimeValue(«00:00:06»))
ActiveWindow.Application.SendKeys «{TAB}»
ActiveWindow.Application.SendKeys «(~)»
ActiveWindow.Application.SendKeys «^W»
Application.Wait (Now + TimeValue(«00:00:30»))
ActiveWindow.Application.SendKeys «(~)»
Application.Wait (Now + TimeValue(«00:00:02»))



Descarga el ejemplo como enviar mensajes de Whatsapp personalizado en forma masiva

Descarga el libro desde el final del post, allí se encuentra el link de descarga es totalmente Gratis y no tiene ningún tipo de restricción, solicito aportar a sostener la esta web si está dentro de tus posibilidades, desde ya muchas gracias.

Código que se encuentra en el modulo 1

#If VBA7 And Win64 Then
‘Si es de 64 bits
Public Declare PtrSafe Function ShellExecute Lib «shell32.dll» Alias «ShellExecuteA» (ByVal hwnd As LongPtr, ByVal lpOperation As String, ByVal lpFile As String, ByVal lpParameters As String, ByVal lpDirectory As String, ByVal nShowCmd As Long) As LongPtr
Public Declare PtrSafe Function FindWindow Lib «USER32» Alias «FindWindowA» (ByVal lpClassName As String, ByVal lpWindowName As String) As LongPtr
Public Declare PtrSafe Function GetWindowLongPtr Lib «USER32» Alias «GetWindowLongPtrA» (ByVal hwnd As LongPtr, ByVal nIndex As Long) As LongPtr
Public Declare PtrSafe Function SetWindowLongPtr Lib «USER32» Alias «SetWindowLongPtrA» (ByVal hwnd As LongPtr, ByVal nIndex As Long, ByVal dwNewLong As LongPtr) As LongPtr
Public Declare PtrSafe Function DrawMenuBar Lib «USER32» (ByVal hwnd As Long) As LongPtr
Public Declare PtrSafe Function RegOpenKeyA Lib «advapire32.dll» (ByVal hKey As LongPtr, ByVal lpSubKey As String, phkResult As LongPtr) As LongPtr
#Else
‘Si es de 32 bits
Public Declare Function ShellExecute Lib «shell32.dll» Alias «ShellExecuteA» (ByVal hwnd As Long, ByVal lpOperation As String, ByVal lpFile As String, ByVal lpParameters As String, ByVal lpDirectory As String, ByVal nShowCmd As Long) As Long
Public Declare Function FindWindow Lib «USER32» Alias «FindWindowA» (ByVal lpClassName As String, ByVal lpWindowName As String) As Long
Public Declare Function GetWindowLong Lib «USER32» Alias «GetWindowLongA» (ByVal hwnd As Long, ByVal nIndex As Long) As Long
Public Declare Function SetWindowLong Lib «USER32» Alias «SetWindowLongA» (ByVal hwnd As Long, ByVal nIndex As Long, ByVal dwNewLong As Long) As Long
Public Declare Function DrawMenuBar Lib «USER32» (ByVal hwnd As Long) As Long
Public Declare Function RegOpenKeyA Lib «advapire32.dll» (ByVal hKey As Long, ByVal lpSubKey As String, phkResult As Long) As Long
#End If
Public telwhatsapp, textwhatsapp

‘*********** by marcrodos **** https://programarexcel.com *** https://www.youtube.com/c/programarexcel?sub_confirmation=1 ********

Sub EnviaWhatsapp()
Application.ScreenUpdating = False
Application.DisplayAlerts = False
Set a = Sheets(«Hoja1»)
uf = a.Range(«A» & Rows.Count).End(xlUp).Row

For x = 2 To uf
conta = conta + 1
telwhatsapp = a.Cells(x, «B»)
textwhatsapp = a.Cells(x, «C»)

mylinkwhatsapp = «https://api.whatsapp.com/send?phone=» & telwhatsapp & «&text=» & textwhatsapp
ActiveWorkbook.FollowHyperlink mylinkwhatsapp

Application.Wait (Now + TimeValue(«00:00:06»))
ActiveWindow.Application.SendKeys «{TAB}»
ActiveWindow.Application.SendKeys «(~)»
ActiveWindow.Application.SendKeys «^W»
Application.Wait (Now + TimeValue(«00:00:30»))
ActiveWindow.Application.SendKeys «(~)»
Application.Wait (Now + TimeValue(«00:00:02»))

Next x
MsgBox («Se enviaron » & conta & » mensajes a los contactos seleccionados»), vbInformation, «AVISO»
Application.ScreenUpdating = True
Application.DisplayAlerts = True
End Sub

Sub macro1(control As IRibbonControl)
On Error Resume Next
respuesta = MsgBox(«¿Seguro desea enviar Whatsapp a los contactos listados?», vbCritical + vbYesNo)
If respuesta = 6 Then
Call EnviaWhatsapp
End If
End Sub



Si te fue de utilidad puedes INVITARME UN CAFÉ y de esta manera ayudar a seguir manteniendo la página, CLICK para descargar en ejemplo en forma gratuita.

If this post was helpful INVITE ME A COFFEE and so help keep up the page, CLICK to download free example.

Donate:
Cuenta Paypal: https://paypal.me/programarexcel
Cuenta Bitcoin: 1KBGGb8fyDzyR3X1Rie6m7VguzaAfngNbd
Cuenta Ether: 0x41Bbd24556914C83a31217eBb3BC49789b66e407

Summary
510 ? Como ENVIAR WHATSAPP Personalizado en ❤️ Forma MASIVO con Excel NUEVA Version
Article Name
510 ? Como ENVIAR WHATSAPP Personalizado en ❤️ Forma MASIVO con Excel NUEVA Version
Description
Enviar WHATSAPP PERSONALIZADOS en forma MASIVA
macrosenexcel.com
macrosenexcel.com
Programar Excel

Entradas relacionadas

Deja un comentario

Tu dirección de correo electrónico no será publicada. Los campos obligatorios están marcados con *

Comentarios (28)

I’m the owner of JustCBD Store label (justcbdstore.com) and am aiming to expand my wholesale side of company. I really hope that someone at targetdomain is able to provide some guidance ! I considered that the most effective way to accomplish this would be to connect to vape shops and cbd retailers. I was hoping if someone could recommend a trustworthy site where I can get CBD Shops B2B Email Marketing List I am currently taking a look at creativebeartech.com, theeliquidboutique.co.uk and wowitloveithaveit.com. Not exactly sure which one would be the most suitable choice and would appreciate any guidance on this. Or would it be much simpler for me to scrape my own leads? Ideas?

Responder

Руководство к действию процедуре и это процедура банкротство юридических лиц тема знакома каждому учредителю

Responder

I truly love your site.. Pleasant colors & theme. Did you build this website yourself? Please reply back as I’m looking to create my own personal blog and would love to find out where you got this from or exactly what the theme is called. Kudos!

Responder

Excellent post. I will be going through a few of these issues as well..

Responder

You have made some decent points there. I looked on the net to learn more about the issue and found most individuals will go along with your views on this site.

Responder

I couldn’t resist commenting. Exceptionally well written!

Responder

Oh my goodness! Amazing article dude! Thanks, However I am encountering difficulties with your RSS. I don’t understand the reason why I am unable to subscribe to it. Is there anyone else getting identical RSS problems? Anyone who knows the answer can you kindly respond? Thanks!!

Responder

Good web site you’ve got here.. It’s difficult to find excellent writing like yours nowadays. I seriously appreciate individuals like you! Take care!!

Responder

Can I simply say what a comfort to find somebody that really knows what they are talking about over the internet. You definitely understand how to bring an issue to light and make it important. More and more people must read this and understand this side of your story. I can’t believe you are not more popular since you most certainly have the gift.

Responder

I love it when individuals come together and share opinions. Great website, stick with it!

Responder

Howdy! This blog post couldn’t be written any better! Reading through this article reminds me of my previous roommate! He always kept talking about this. I most certainly will forward this article to him. Pretty sure he will have a very good read. I appreciate you for sharing!

Responder

It’s hard to come by experienced people for this subject, however, you seem like you know what you’re talking about! Thanks

Responder

Spot on with this write-up, I honestly believe that this site needs much more attention. I’ll probably be back again to read more, thanks for the info!

Responder

A fascinating discussion is definitely worth comment. I think that you need to write more about this issue, it might not be a taboo subject but usually folks don’t talk about such topics. To the next! All the best!!

Responder

I’m excited to uncover this great site. I wanted to thank you for your time due to this fantastic read!! I definitely appreciated every bit of it and I have you book-marked to check out new stuff in your web site.

Responder

Everything is very open with a really clear description of the challenges. It was definitely informative. Your site is very helpful. Thanks for sharing!

Responder

Excellent article. I will be dealing with some of these issues as well..

Responder

Hi, I do believe this is a great site. I stumbledupon it 😉 I’m going to return once again since I book marked it. Money and freedom is the greatest way to change, may you be rich and continue to help other people.

Responder

Hi, I do believe this is an excellent web site. I stumbledupon it 😉 I may come back once again since I book-marked it. Money and freedom is the greatest way to change, may you be rich and continue to help others.

Responder

Aw, this was an exceptionally good post. Finding the time and actual effort to generate a top notch article… but what can I say… I put things off a lot and don’t manage to get anything done.

Responder

I blog quite often and I genuinely appreciate your content. This article has really peaked my interest. I will take a note of your website and keep checking for new details about once a week. I opted in for your Feed as well.

Responder

I love it when folks get together and share thoughts. Great site, keep it up!

Responder

Hello! I could have sworn I’ve visited this website before but after going through a few of the posts I realized it’s new to me. Nonetheless, I’m certainly delighted I found it and I’ll be bookmarking it and checking back regularly!

Responder

Hi, I do think this is a great site. I stumbledupon it 😉 I am going to revisit yet again since i have bookmarked it. Money and freedom is the greatest way to change, may you be rich and continue to help others.

Responder

Good blog you have here.. It’s difficult to find excellent writing like yours nowadays. I seriously appreciate individuals like you! Take care!!

Responder

When I originally left a comment I seem to have clicked on the -Notify me when new comments are added- checkbox and now each time a comment is added I recieve four emails with the same comment. Is there a way you can remove me from that service? Kudos!

Responder

Aw, this was an extremely good post. Taking the time and actual effort to create a superb article… but what can I say… I put things off a whole lot and never manage to get nearly anything done.

Responder

Good post. I learn something new and challenging on websites I stumbleupon every day. It’s always helpful to read content from other authors and use something from their web sites.

Responder