• DİKKAT

    DOSYA İndirmek/Yüklemek için ÜCRETLİ ALTIN ÜYELİK Gereklidir!
    Altın Üyelik Hakkında Bilgi

WhatsApp toplu borç mesajı gönderme

3

35KaanG

Altın Üye
Katılım
5 Nisan 2023
Mesajlar
9
Excel Vers. ve Dili
Office365
Türkçe
2026 Mart update;

Dosyanın hatasız çalışan versiyonunu ilk mesaja ekledim, dosyanın doğumuna yardım eden;
"@muhasebeciyiz" hocama teşekkür ederiz, vadeli mal satışı yapanlar veya borç hatırlatması yapmak isteyenler için harika kullanışlı bir dosya oldu, ben de aylar yıllar sonra pürüzsüz hale getirmiş oldum :) bu mesajdan dosyayı indirip kendi ihtiyacınıza göre düzenleyip kullanabilirsiniz
 

Ekli dosyalar

Son düzenleme:
Kod: 
Sub whatsapp_mesaj_gonder_duzeltilmis()
    Dim kime As String
    Dim metin As String
    Dim i As Integer
    
    ActiveWorkbook.FollowHyperlink Address:="https://web.whatsapp.com/"
    Application.Wait Now + TimeValue("00:00:15")
    
    kime = Sheets("Sayfa1").Range("G2").Text
    metin = Sheets("Sayfa1").Range("O2").Text
    
    Call SendKeys("{TAB}{TAB}{TAB}{TAB}{TAB}{TAB}", True)
    Application.Wait Now + TimeValue("00:00:04")
    
    Call SendKeys(kime, True)
    Application.Wait Now + TimeValue("00:00:03")
    Call SendKeys("{ENTER}", True)
    Application.Wait Now + TimeValue("00:00:02")
    
    Call SendKeys(metin, True)
    Application.Wait Now + TimeValue("00:00:02")
    Call SendKeys("{ENTER}", True)
    Application.Wait Now + TimeValue("00:00:01")
    
    For i = 3 To 5

        kime = Sheets("Sayfa1").Range("G" & i).Text
        metin = Sheets("Sayfa1").Range("O" & i).Text
        
        Call SendKeys("{TAB}{TAB}{TAB}{TAB}{TAB}", True)
        Application.Wait Now + TimeValue("00:00:04")
        
        Call SendKeys(kime, True)
        Application.Wait Now + TimeValue("00:00:04")
        Call SendKeys("{ENTER}", True)
        Application.Wait Now + TimeValue("00:00:04")
        
        Call SendKeys(metin, True)
        Application.Wait Now + TimeValue("00:00:02")
        Call SendKeys("{ENTER}", True)
        Application.Wait Now + TimeValue("00:00:02")
    Next i
    
    Call SendKeys("^w", True)
End Sub

Bu kod, sizin belirttiğiniz "ilk mesajı kendime göndererek çözdüm" mantığını uygulayarak, ilk mesajı (G2 ve O2 hücrelerindeki bilgilerle) bir test kişisine gönderir. Daha sonra asıl mesaj gönderme döngüsü G3 hücresinden başlar.Bu kodun, geçici çözümünüzü uygulamanıza yardımcı olacağını umuyorum.

deneyiniz
 
Son düzenleme:
Merhabalar dosyanın son halini paylaşır mısınız bizlerde faydalanmak isteriz teşekkürler
 
muhasebeciyiz' Alıntı:
Kodunuzda SendKeys komutları ile tab tuşuna basmayı hedefliyorsunuz, ancak bu yöntem her seferinde doğru sekmeye geçiş yapmamış olabilir. Özellikle TAB tuşlarıyla kişi arama alanına geçiş yapılırken, her yeni kişi için doğru alana geçiş sağlanmıyor olabilir.

Her kişiye yönelik doğru alan seçilmeden mesaj gönderildiği için tüm mesajlar ilk kişiye gidiyor.

Kod: 
Sub whatsapp_mesaj_gonder()
    Dim kime As String
    Dim metin As String
    Dim i As Integer
   
    ActiveWorkbook.FollowHyperlink Address:="https://web.whatsapp.com/"
    Application.Wait Now + TimeValue("00:00:15")

    For i = 2 To 5

        kime = Sheets("Sayfa1").Range("G" & i).Text
        metin = Sheets("Sayfa1").Range("O" & i).Text
       
        If i = 2 Then
           
            Call SendKeys("{TAB}{TAB}{TAB}{TAB}{TAB}{TAB}", True)
            Application.Wait Now + TimeValue("00:00:04")
           
            Call SendKeys(kime, True)
            Application.Wait Now + TimeValue("00:00:03")
           
            Call SendKeys("{ENTER}", True)
            Application.Wait Now + TimeValue("00:00:02")
            Call SendKeys(metin, True)
            Application.Wait Now + TimeValue("00:00:02")
           
            Call SendKeys("{ENTER}", True)
            Application.Wait Now + TimeValue("00:00:01")

        Else
           
            Call SendKeys("{TAB}{TAB}{TAB}{TAB}{TAB}", True)
            Application.Wait Now + TimeValue("00:00:04")
           
            Call SendKeys(kime, True)
            Application.Wait Now + TimeValue("00:00:04")
           
            Call SendKeys("{ENTER}", True)
            Application.Wait Now + TimeValue("00:00:04")
            Call SendKeys(metin, True)
            Application.Wait Now + TimeValue("00:00:02")

           
            Call SendKeys("{ENTER}", True)
            Application.Wait Now + TimeValue("00:00:02")
        End If
    Next i
   
    Call SendKeys("^w", True)
End Sub

SendKeys("{TAB}{TAB}{TAB}{TAB}{TAB}{TAB}", True): Buradaki TAB tuşu basımlarını biraz daha uzun tutarak, WhatsApp Web'deki kişi seçme ekranına daha doğru geçiş yapmayı amaçladım. Eğer yine sorun yaşanırsa, bu sayıyı biraz daha artırmak faydalı olabilir.

Application.Wait Now + TimeValue("00:00:04"): Burada bekleme sürelerini biraz daha uzattım. WhatsApp Web'in yüklenmesi için daha fazla süre bırakılması gerekebilir.

metin: Sheets("Sayfa1").Range("O" & i).Text kullandım, çünkü Copy yerine direkt olarak metin almak daha mantıklı.

deneyiniz
Genişletmek için tıkla ...

Hocam selamlar, gösterdiğiniz emek için teşekkür ediyorum öncelikle, bendeki kodu bu verdiğiniz kodla değiştirdim, bu sefer de ilk mesajı yanlış kişiye atıyor yani vatsapta o anda ilk sırada kim varsa ilk mesajı ona atıyor, daha sonraki mesajları doğru atıyor 2-3-4 sıradaki kişilere mesajları doğru bi şekilde gitti ama ilk mesaj doğru kişiye gitmedi
 
Merhaba @muhasebeciyiz hocam, mesajı düzeltme yapıyorum, bu sefer 2. denediğimiz gibi tamamen yanlış yerlere tıklama yapmıyor ama 3. düzeltme ile ilk yazdığınız kod aynı işlevi yapıyor şuan, yani sizin düzelttiğiniz kod benim aşağıda belirttiğim ilk yazdığınız şekilde çalışıyor, yine 2. satırdaki mesajı whatsapp'ımdaki 1. sıradaki sohbete gönderdi, kendimi sabitlediğim için ilk mesaj bana geldi. Diğer mesajları da kodda olduğu şekilde 3 to 5 e kadar doğru gönderdi. Bu dosyayı bu şekilde ihtiyacı olan diğer arkadaşların da kullanımına sunabiliriz sanırım sadece ilk sıradaki sohbete dikkat etmeleri gerekecek

düzeltmeye konu eski mesaj;
bir önceki koda geri döndüm,kendi whatsapp'ımda ilk sıraya kendimi sabit mesaj olarak ayarladım çünkü bir önceki kod sadece ilk kişiye yanlış mesaj atıyordu, mesaj atılması gereken ilk kişiyi 2. sıraya koydum, bu sayede mesaj atılması gereken ilk kişiden son kişiye kadar sorunsuz bir şekilde mesaj atıyor, sadece ilk mesajı kendime göndererek çözdüm
 
Son düzenleme:
35KaanG' Alıntı:
Selamlar :)

Dosyanın ihtiyaç duyan başkaları tarafından da kullanılabilmesi için ekliyorum.

Dosyadaki tek problem 2. satırdaki mesajın her zaman whatsapp'ınızdaki 1. sıradaki sohbete atılacak olması, buna dikkat edersiniz ilk sırada kim var rezil olmayalım :) ben yukarıda söylediğim gibi ilk sıraya kendimi sabitledim. Zaten 3. satırdan itibaren diğer mesajlar diğer kişilere doğru şekilde gidiyor. Ben 20 kişilik örnek dosya koymuş oldum ama borç hatırlatması yapılacak kişi sayısı fazla ise eğer kodu düzenleyip if 2 to 22 alanını if 2 to (hangi satırda bitiyorsa) şeklinde ayarlayıp kaydederseniz o kadar kişiye mesaj atacaktır. Ek olarak dosyadaki sütunlardaki bilgiler de yine benim muhasebe programımdan gelen veriler olduğu için sizin il ilçe veya satışı yapan birim (OFİS) gibi bilgilere ihtiyacınız olmayabilir ama dikkat edin sütun sildikçe kodun içerisinde telefon numarasının ve mesajın alınacağı hücreyi de değiştirmeniz lazım, benim örnek dosyamda "G" sütununda telefon numarası, "O" sütununda gönderilecek mesaj var dolayısı ile kodun içindeki bu bilgileri sildiğiniz sütunlara göre düzeltmeniz gerekir.

"@muhasebeciyiz" hocama teşekkür ederiz, vadeli mal satışı yapanlar için harika kullanışlı bir dosya oldu kendisinin yardımlarıyla :)
Genişletmek için tıkla ...


Hocam çok güzel olmuş ama üstatlardan ilk mesajın doğru kişiye gitmesini sağlayacak bir formül makro varsa destek olsa çok güzel bir iş ortaya çıkmış olur diğer türlü hatalara açık olabilir:) emekleriniz için kendi adıma çok teşekkür ederim inşallah daha da geliştirilebilirsiniz.
 
onurbeyaz' Alıntı:
Hocam çok güzel olmuş ama üstatlardan ilk mesajın doğru kişiye gitmesini sağlayacak bir formül makro varsa destek olsa çok güzel bir iş ortaya çıkmış olur diğer türlü hatalara açık olabilir:) emekleriniz için kendi adıma çok teşekkür ederim inşallah daha da geliştirilebilirsiniz.
Genişletmek için tıkla ...

Selamlar hocam, bizlerden çok daha iyi bilen bir üstad 2. satırdaki mesajın mesaj atılacak ilk kişiye gönderilmesini sağlayabilirse hepimiz memnun oluruz tabiki :) yoksa ben bu dosyayı pazartesiden beri kullanıyorum şuan bayağı işlevsel bir dosya ve açıkçası tahsilat konusunda yardımı var mı görmek için öncesi ve sonrası tahsilat raporları alacağım 1 ay kullandıktan sonra
 
35KaanG' Alıntı:
Selamlar hocam, bizlerden çok daha iyi bilen bir üstad 2. satırdaki mesajın mesaj atılacak ilk kişiye gönderilmesini sağlayabilirse hepimiz memnun oluruz tabiki :) yoksa ben bu dosyayı pazartesiden beri kullanıyorum şuan bayağı işlevsel bir dosya ve açıkçası tahsilat konusunda yardımı var mı görmek için öncesi ve sonrası tahsilat raporları alacağım 1 ay kullandıktan sonra
Genişletmek için tıkla ...

Hocam sanırım meslektaşız benimde tahsilatları toplayıp aylık nakit akışlarımızın hedeflerimizin tutması için müşterilere her koldan saldırıyoruz:) kolaylıklar sizlere de tek korkum otomatik atmaya başlarken başkası mail atarsa ilk sıradakine farklı bir mesaj gider uğraş dur:D
 
onurbeyaz' Alıntı:
Hocam sanırım meslektaşız benimde tahsilatları toplayıp aylık nakit akışlarımızın hedeflerimizin tutması için müşterilere her koldan saldırıyoruz:) kolaylıklar sizlere de tek korkum otomatik atmaya başlarken başkası mail atarsa ilk sıradakine farklı bir mesaj gider uğraş dur:D
Genişletmek için tıkla ...

Muhtemelen hocam :) vadeli ürün çıkışının sonunda o tahsilatı alabilmek mesele :) tahsilat akışını hızlandıracak bir yol arıyorum ben de, insanlara "borç" kelimesi olmadan borçlarını hatırlatırsak (malum arayıp borcun vadesi geldi dediğinde ötelenmek daha kolay) belki tahsilat performansımız artar diye düşünüyorum. Dosyayı kullanmaya başladığın zaman ekranı ellememen gerekiyor tabiki, ben kullandım :)
 
35KaanG' Alıntı:
Muhtemelen hocam :) vadeli ürün çıkışının sonunda o tahsilatı alabilmek mesele :) tahsilat akışını hızlandıracak bir yol arıyorum ben de, insanlara "borç" kelimesi olmadan borçlarını hatırlatırsak (malum arayıp borcun vadesi geldi dediğinde ötelenmek daha kolay) belki tahsilat performansımız artar diye düşünüyorum. Dosyayı kullanmaya başladığın zaman ekranı ellememen gerekiyor tabiki, ben kullandım :)
Genişletmek için tıkla ...

Hocam ben onu sağolsun üstadlar sayesinde excellede yapıyorum sizlerinde sayesinde hem excelden hem whatsapptan baskılayacağım maili görmedik diyen çok oluyor çünkü:)
 
35KaanG' Alıntı:
Selamlar :)

Dosyanın ihtiyaç duyan başkaları tarafından da kullanılabilmesi için ekliyorum.

Dosyadaki tek problem 2. satırdaki mesajın her zaman whatsapp'ınızdaki 1. sıradaki sohbete atılacak olması, buna dikkat edersiniz ilk sırada kim var rezil olmayalım :) ben yukarıda söylediğim gibi ilk sıraya kendimi sabitledim. Zaten 3. satırdan itibaren diğer mesajlar diğer kişilere doğru şekilde gidiyor. Ben 3 kişilik örnek dosya koymuş oldum ama borç hatırlatması yapılacak kişi sayısı daha fazla veya daha az ise kendisi son satırdaki kişiye kadar mesaj atacaktır ister 5 ister 45 kişi listeleyin.

Ek olarak dosyadaki sütunlardaki bilgiler de yine benim muhasebe programımdan gelen veriler olduğu için sizin borcun VADE TARİHİ - İL - İLÇE veya satışı yapan birim (OFİS) gibi bilgilere ihtiyacınız olmayabilir ama dikkat edin sütun sildikçe kodun içerisinde telefon numarasının ve mesajın alınacağı hücreyi de değiştirmeniz lazım, benim örnek dosyamda "G" sütununda telefon numarası, "O" sütununda gönderilecek mesaj var dolayısı ile kodun içindeki bu bilgileri sildiğiniz sütunlara göre düzeltmeniz gerekir.

"@muhasebeciyiz" hocama teşekkür ederiz, vadeli mal satışı yapanlar için harika kullanışlı bir dosya oldu kendisinin yardımlarıyla :)
Genişletmek için tıkla ...
sayın hocam elinize emeğinize sağlık. ben bunu apartman kat maliklerinin aidat borcu olarak biraz değiştirdim.
Ancak mesaj gönderme satır aralığını seçecek bir alan butonu nasıl eklenebilir? yardımcı oursanız sevinirim.
 
Son düzenleme:
uhercan' Alıntı:
sayın hocam elinize emeğinize sağlık. ben bunu apartman kat maliklerinin aidat borcu olarak biraz değiştirdim.
Ancak mesaj gönderme satır aralığını seçecek bir alan butonu nasıl eklenebilir? yardımcı oursanız sevinirim.
Genişletmek için tıkla ...
Selamlar kusura bakmayın çok ihmal ettik buraları, Ağustos-Ocak arasında işsiz kaldım, excel ihtiyacım olmadı forumlardan ve dünyadan bi tık uzak kaldım :)

VBA kodundaki ilk 4 TAB tıklaması whatsapp web'deki sohbet arama kutusuna gidip E2 hücresindeki numarayı aratıyor ve rehberinize kayıtlıysa o kişiye tıklayıp K2 hücresindeki mesajı gönderiyor, bunu diğer alıcılar için 5er TAB yaparak E3 deki numaraya K3'deki mesajı atacak şekilde devam ettiriyor, aralık verilebilir ama önce mantığını anlatmak istedim ki 2. satırdan başlamamız gerektiğini bilelim. Anladığım kadarıyla kat malikleri atıyorum 54 kişi ama aralarında borcunu ödemediği için mesaj atmak istediğiniz 12 kişi var, bizim excel'in mantığıyla bu kişileri 2-13. satırlar arasına sırayla koymanız lazım ve VBA kodunu değiştirip excele sadece 13. satıra kadar olan mesajları at dedirtmeniz lazım ama onun yerine bu dosyadan bir kopya çıkarıp sadece mesaj atacağınız kişileri alt alta ekleyip whatsapp butonuna tıklamanız daha mantıklı çünkü kodda şu yazıyor; nekadar hücre doluysa okadar mesaj gönder. Bu 4 de olabilir 44 de olabilir, ben geçen sene borçlular listesini muhasebe programından alıp kopyala yapıştırla dosyayı doldururdum ve çalıştırıp arkama yaslanırdım, mal satışı yaptığımız yüzlerce telefoncuya mesaj atmasını izlerdim, sizin gibi aradan ayıklamam gereken atıyorum bir Türksel DSN var diyelim, o kişiyi satırdan silerek sadece mesaj atmak istediklerim kalana kadar düzenledikten sonra butona tıklıyordum tabi :)
 

Ekli dosyalar

Son düzenleme:
Cevap yazmak için giriş yap yada kayıt ol.
Geri
Üst