arkadaşlar merhaba
okulda memur olarak çalışıyorum. okula gelmeyen öğrenci velilerine günlük whatsapptan toplu mesaj atmak istiyorum.
ekteki excelde butona tıkladığımda yükleniyor yuvarlağı çıkıyor 5 10 saniye kadar.
sonra hiç bir işlem yapmıyor. sıkıntı nedir acaba
microsoft edge
butondaki kod bu şekilde:
Private Sub CommandButton1_Click()
For i = 2 To 4
Dim ie As InternetExplorer
Set ie = New InternetExplorer
ie.Navigate "WhatsApp Web" & Cells(i, 1) & "&text=" & Cells(i, 2)
Application.Wait Now + TimeValue("00:00:05")
Call SendKeys("{ENTER}", True)
Next i
okulda memur olarak çalışıyorum. okula gelmeyen öğrenci velilerine günlük whatsapptan toplu mesaj atmak istiyorum.
ekteki excelde butona tıkladığımda yükleniyor yuvarlağı çıkıyor 5 10 saniye kadar.
sonra hiç bir işlem yapmıyor. sıkıntı nedir acaba
microsoft edge
butondaki kod bu şekilde:
Private Sub CommandButton1_Click()
For i = 2 To 4
Dim ie As InternetExplorer
Set ie = New InternetExplorer
ie.Navigate "WhatsApp Web" & Cells(i, 1) & "&text=" & Cells(i, 2)
Application.Wait Now + TimeValue("00:00:05")
Call SendKeys("{ENTER}", True)
Next i
