![]() This applies for every iteration of your program after the first iteration. There is no error in the code, the way in which WhatsApp Web works is just differently:Īfter sending your message in Whatsapp, it needs two Tab keystrokes to get to the field to search for contacts (the first tab will hover over the message you've just sent). Text1 = Sheets(1).Cells(startrow, startcol).ValueĪpplication.Wait (Now() + Acao / 24 / 60 / 60 / 1000) If MsgBox("Is WhatsApp Loaded?" & vbNewLine & vbNewLine & "Press No To Cancel", vbYesNo + vbQuestion + vbSystemModal, "WhatsApp") = vbYes Thenĭo Until Sheets(1).Cells(startrow, 1) = "" ![]() Here is the code Sub Test()ĪctiveWorkbook.FollowHyperlink Address:=" " I know there is some small bug but any support for resolution of this issue will be highly appreciated. Here is the excel view, when I press the button the output which is Whatsapp web page doest work as desired as seen in picture. I have designed a code that sends a message from excel to WhatsApp to list of contacts, it works fine for single contact but when, more than one contact is added it doesn't move to that contacts instead paste other contact names & messages in the message box of the first contact.
0 Comments
Leave a Reply. |