Soru excel dosyasından whatsapp mesaji göndermek

[sebahattin]

Selamun Aleyküm kıymetli hocalarım uzun aradan sonra sizlerden yardım talep ediyoruz. Ekte bulunan Excel dosyasının H sütununda bulunan mesajı B sütununa bulunan numaraya whaps üzerinden mesaj çekmek bu konuda sizlerden yardım istiyoruz ALLAHA EMANET OLUNUZ
Sebahattin kaldırım

 

[sebahattin]

Cevap bekliyoruz

 

[sebahattin]

Sorumuza cevap yokmu

 

[sebahattin]

Merhaba ustatlardan sorumuza cevap bekliyoruz

 

[Korhan Ayhan]

Soru - Excel Dosyasından Whatsapp Üzeri Mesaj Göndermek

Selamun Aleykum Ustadlar elimde bulunan bir şablon mevcut birde telefon numaraları ve kişiye ait bilgiler içeren bilgiler mevcut Bizim burada yapmak istediğimiz ekte bulunan WORD SABLONUNDA BELİRTİLEN Şekilde whaps üzerinden mesaj göndermek istiyoruz yanı ekte bulunan telefon rehberinden...

www.excel.web.tr

 

[sebahattin]

Hocam ben bu metinden bir şey anlamadım

 

[Korhan Ayhan]

Metne tıklarsanız daha önce sorduğunuz soru için verdiğim linkleri görebilirsiniz. Bu linkleri inceleyerek önerilen kodları dosyanıza uyarlayabilirsiniz.

 

[hasankardas]

Sebahattin Bey,
daha önce aynı veya benzer soruyu sormuşsunuz, size cevap verilmiş ve forumda bununla ilgili örnek bir sürü çözüm var. Bu formun amacı gönüllülük üzerine yardım ve öğrenmek için kurulmuş bir platform olmasıdır. Aynı tür soruları siz sorarsanız kendinize excel de hiçbir şey katamazsınız. saygılar.

 

[excelokyanus500]

Deneyin..

Sub Whatsup_MesajinizVar()
'Whatsup webden daha önce giriş yapmış olmanız lazım kodun çalışması için

Dim alo_whatsup As String
Dim Sayfaadi As Worksheet
Set Sayfaadi = ThisWorkbook.Sheets("Sayfa1")

Dim i As Integer

For i = 2 To Sayfaadi.Range("A" & Application.Rows.Count).End(xlUp).Row ' 2. satırdan başla

If Sayfaadi.Range("H" & i).Value <> "" Then '' H de numara var mı

alo_whatsup = Sayfaadi.Range("H" & i).Value 'Numaramız

ThisWorkbook.FollowHyperlink "https://web.whatsapp.com/send?phone=%2B" & alo_whatsup & "&text=" & _
Sayfaadi.Range("A" & i).Value & "&app_absent=1&send=1" ' A sütununda mesajımız

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

VBA.SendKeys "~", True

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

End If

Next i

MsgBox "Mesaj gönderildi", vbInformation

 

[sebahattin]

sayın [B]excelokyanus500[/B] kardeşim kodu ekteki Excel dosyasına ekleyip göndermeniz mümkün mudur ben Bir turlu çalıştıramadım dosyayı
selamlar

 

[sebahattin]

Hocam sizden cevap bekliyoruz

 

[excelokyanus500]

Konu hakkında size özelden bir cevap yazmıştım. Kontrol edin.
Not: Ben altın üye değilim. Siteye eklediğiniz dosyaları inceleyemem, görüntüleyemem.