Çözüldü whatsapp'a makro ile veri gönderme

[barış kaya]

Hayırlı akşamlar hocalarım

Örnek dosyada Cari sayfası H sütununda her hangi bir hücreye "w" yazdığımızda belirlediğimiz alan seçiliyor.

yardım talebimiz şöyle;

seçilen alanı Bilgi sayfası B5'teki numaraya makro ile gönderebilir miyiz? Mümkün müdür?

excel 2010

 

[barış kaya]

Hayırlı sabahlar hocalarım

Araştırarak Whatsapp penceresini açıp, kişinin sohbet bölümüne bağlanmaya kadar ulaştım

yapıştırma işlemi için yardımcı olmanız mümkün müdür?

böyle bir kod mümkün müdür acaba?

 

[Patron]

Deneyiniz.

Private Sub Worksheet_Change(ByVal Target As Range)
    If sutun = 8 Then Exit Sub
    If Target = "w" Then
        Range(Cells(Target.Row, "B"), Cells(Target.Row + 35, "G")).Select
        Selection.Copy
        ActiveWorkbook.FollowHyperlink Address:="https://web.whatsapp.com/send/?phone=" & Worksheets("Bilgi").Range("B4").Value
        Application.Wait (Now + TimeValue("00:00:10"))
        SendKeys ("^v")
        Application.Wait (Now + TimeValue("00:00:01"))
        Call SendKeys("~", True)
    End If
End Sub

 

[barış kaya]

Deneyiniz.

Private Sub Worksheet_Change(ByVal Target As Range)
    If sutun = 8 Then Exit Sub
    If Target = "w" Then
        Range(Cells(Target.Row, "B"), Cells(Target.Row + 35, "G")).Select
        Selection.Copy
        ActiveWorkbook.FollowHyperlink Address:="https://web.whatsapp.com/send/?phone=" & Worksheets("Bilgi").Range("B4").Value
        Application.Wait (Now + TimeValue("00:00:10"))
        SendKeys ("^v")
        Application.Wait (Now + TimeValue("00:00:01"))
        Call SendKeys("~", True)
    End If
End Sub

ellerinize sağlık hocam
harika çalışıyor

her seferinde yeni whatsapp sekmesi açmak yerine, açık olan mevcut sekmeden devam etmesi mümkün müdür hocam?

 

[Patron]

whatsapp rehber dışındaki kişiye mesaj gönderme

https://www.excelcozum.com/konu/pdf-dosyasini-whatsappdan-toplu-mesaj-atma.3909/#post-42167 buradaki dosyayı indirdim çalışmasında sıkıntı yok yalnız rehberde yada bana daha önce mesaj atmayan kişileri çekmiyor bu konuda yardımcı olur musunuz?

excelcozum.com

konusunu inceleyiniz.

 

[barış kaya]

whatsapp rehber dışındaki kişiye mesaj gönderme

https://www.excelcozum.com/konu/pdf-dosyasini-whatsappdan-toplu-mesaj-atma.3909/#post-42167 buradaki dosyayı indirdim çalışmasında sıkıntı yok yalnız rehberde yada bana daha önce mesaj atmayan kişileri çekmiyor bu konuda yardımcı olur musunuz?

excelcozum.com

konusunu inceleyiniz.

hocam modüldeki kodu inceledim ama pek bir şey anlamadım

yazdığınız kod, chrome kapalı ise açıyor sonra whatsapp'ı açıp işlem yapıyor
yeniden mesaj göndermek istediğimizde ise açık olan whatsaptan işlem yapmıyor, yeni whatsapp sekmesi açıyor

eğer mümkünse yeni sekme açmak yerine açık olan whatsapp üzerinden mesajı gönderse çok iyi olacak
eğer mümkün değilse de yapacak bir şey yok, bu şekilde kullanmaya devam ederiz

ilginiz ve emeğiniz için çok çok teşekkür ediyorum hocam

 

[Patron]

Peşpeşe (siz müdalele etmeden ardışık olarak) dosya gönderilecekse
Yazdığınız mumara rehberde kayıtlı değil işaretlenirse yeni sayfa açar.
Aksi halde aynı sayfada devam eder.

 

[barış kaya]

Deneyiniz.

Private Sub Worksheet_Change(ByVal Target As Range)
    If sutun = 8 Then Exit Sub
    If Target = "w" Then
        Range(Cells(Target.Row, "B"), Cells(Target.Row + 35, "G")).Select
        Selection.Copy
        ActiveWorkbook.FollowHyperlink Address:="https://web.whatsapp.com/send/?phone=" & Worksheets("Bilgi").Range("B4").Value
        Application.Wait (Now + TimeValue("00:00:10"))
        SendKeys ("^v")
        Application.Wait (Now + TimeValue("00:00:01"))
        Call SendKeys("~", True)
    End If
End Sub

ellerinize sağlık hocam
hayırlı akşamlar olsun