• Foruma hoş geldin 👋 Ziyaretçi

    Forum içeriğine ve tüm hizmetlerimize erişim sağlamak için foruma kayıt olmalı ya da giriş yapmalısınız. Foruma üye olmak tamamen ücretsizdir.

    Giriş yap veya Şimdi kayıt ol

Çözüldü WhatsApp Mesaj Gönderme

Bu konu çözüldü olarak işaretlenmiştir. Çözülmediğini düşünüyorsanız konuyu rapor edebilirsiniz.
Durum
Konu Çözümlendiği İçin Kapatılmıştır.
Hunkar50

Hunkar50

Yeni Üye
Katılım
30 Ocak 2022
Mesajlar
303
Çözümler
2
Aldığı beğeni
56
Excel V
Office 2010 TR
Sa Kolay Gelsin..
eklemiş oldugum çalışma kitabında, YuksekBorc Sayfasındaki msj göndereceğim cariler I2 deki meblaya göre sayfaya yansımakta

Medüle1 de olan watsap mesaj gönderme makrosu çalıştırdıgım zaman ; Yuksekborc da listede yer alan carilere msj göndermesi gerekiyor lakin. 100 satıra kadar kod ataması yaptıgım için , 100 kayıt var olarak görüyor. sadece dolu olan hücrelere msj gönderme işlemini nasıl yaparız.

Yada Bu Sayfaya belirli Meblagın üzerindeki alacakları yansıtmanın başka bir yolu varmı..

Bu işlemin alternatifleride olabilir..
Teşekkür ediyorum..
 

Ekli dosyalar

Çözüm
askan
Deneyin bir
Kod: 
Sub borcmsj()
Dim LastRow As Long
Dim i As Integer
Dim strip As String
Dim strPhoneNumber As String
Dim strmessage As String
Dim strPostData As String
Dim IE As Object
Dim n As Long
For n = 10000 To 1 Step -1
myval = Cells(n, 2)
If myval <> "" Then
LastRow = n
Exit For
End If
Next n
For i = 3 To LastRow
strPhoneNumber = Sheets("YuksekBorc").Cells(i, 6).Value
strmessage = Sheets("YuksekBorc").Cells(i, 5).Value


'IE.navigate "whatsapp://send?phone=phone_number&text=your_message"

strPostData = "whatsapp://send?phone=" & strPhoneNumber & "&text=" & strmessage
Set IE = CreateObject("InternetExplorer.Application")

IE.navigate strPostData
Application.Wait (Now + TimeValue("00:00:3"))
Call SendKeys("{Enter}", True)...
Tarihe göre sırala Oylara göre sırala
Deneyin bir
Kod: 
Sub borcmsj()
Dim LastRow As Long
Dim i As Integer
Dim strip As String
Dim strPhoneNumber As String
Dim strmessage As String
Dim strPostData As String
Dim IE As Object
Dim n As Long
For n = 10000 To 1 Step -1
myval = Cells(n, 2)
If myval <> "" Then
LastRow = n
Exit For
End If
Next n
For i = 3 To LastRow
strPhoneNumber = Sheets("YuksekBorc").Cells(i, 6).Value
strmessage = Sheets("YuksekBorc").Cells(i, 5).Value


'IE.navigate "whatsapp://send?phone=phone_number&text=your_message"

strPostData = "whatsapp://send?phone=" & strPhoneNumber & "&text=" & strmessage
Set IE = CreateObject("InternetExplorer.Application")

IE.navigate strPostData
Application.Wait (Now + TimeValue("00:00:3"))
Call SendKeys("{Enter}", True)


Application.Wait (Now + TimeValue("00:00:3"))
Call SendKeys("{Enter}", True)
Application.SendKeys ("%{TAB}")
   'Application.Wait Now() + TimeSerial(0, 0, 5)
   'SendKeys "~"

Next i

End Sub
 
Son düzenleme:
Olumlu oy 1 Negatif oyla
Çözüm
Hunkar50' Alıntı:
If myval <> "" Then
LastRow = n
Exit For
End If
Next n <<<<=== Buraya diyorsunuz sanırım hocam.. Yazdım yine hata alıyorum


Tamam hocam çözüldü sorun tşk ler
Genişletmek için tıkla...
2 nolu mesajı kopyalayıp tekrar dener misiniz. Ben çalıştırdım sorun yok
 
Olumlu oy 0 Negatif oyla
Durum
Konu Çözümlendiği İçin Kapatılmıştır.
Geri
Üst