İyi forumlar öncelikle. GÜnlerdir gerek yerli, gerek yabancı kaynakları inceliyorum. Ama bir türlü neticeye ulaşamadım. Bir çok youtube videosu izledim ama hiç biri güncel olmadığı için kodlar tam sağlıklı çalışmıyor. Son olarak bir kodlamayı doğru yaptığıma inandım ama bu sefer sadece geri planda çalışıyor gözüküyor ve netice gene yok. Acaba şu kodlama da eksik olan nedir? Excel üzerinden whatsapp mesaj gönderme işini çözmem gerekiyor.


Private Sub CommandButton1_Click()

For i = 2 To 2
Dim ie As InternetExplorer
Set ie = New InternetExplorer

ie.Navigate "https://web.whatsapp.com/send?phone=" & Cells(i, 1) & "&text=" & Cells(i, 2)

Application.Wait Now + TimeValue("00:00:10")

Call SendKeys("{ENTER}", True)

Next i

End Sub