umitumit
Altın Üye
- Katılım
- 5 Eylül 2006
- Mesajlar
- 364
- Excel Vers. ve Dili
-
Excel 2016
Türkçe
- Altın Üyelik Bitiş Tarihi
- 13-07-2028
Arkadaşlar,
"MÜŞTERİ DETAY" isimli sayfamın D4 hücresinde yazılı mesajı A4 hücresinde yazılı numaraya whatsapp üzerinden atan makro aşağıdadır. Google chrome varsayılan tarayıcım.
Umarım işinize yarar
Sub SendMessageToWhatsApp()
Dim phoneNumber As String
Dim message As String
Dim url As String
' MÜŞTERİ DETAY sayfasını seçin
Sheets("MÜŞTERİ DETAY").Select
' A4 hücresindeki telefon numarasını ve D4 hücresindeki mesajı al
phoneNumber = Range("A4").Value
message = Range("D4").Value
' WhatsApp web URL'sini oluştur
url = "https://web.whatsapp.com/send?phone=" & phoneNumber & "&text=" & WorksheetFunction.EncodeURL(message)
' WhatsApp Web'i varsayılan tarayıcıda aç
ThisWorkbook.FollowHyperlink Address:=url, NewWindow:=True
End Sub
"MÜŞTERİ DETAY" isimli sayfamın D4 hücresinde yazılı mesajı A4 hücresinde yazılı numaraya whatsapp üzerinden atan makro aşağıdadır. Google chrome varsayılan tarayıcım.
Umarım işinize yarar
Sub SendMessageToWhatsApp()
Dim phoneNumber As String
Dim message As String
Dim url As String
' MÜŞTERİ DETAY sayfasını seçin
Sheets("MÜŞTERİ DETAY").Select
' A4 hücresindeki telefon numarasını ve D4 hücresindeki mesajı al
phoneNumber = Range("A4").Value
message = Range("D4").Value
' WhatsApp web URL'sini oluştur
url = "https://web.whatsapp.com/send?phone=" & phoneNumber & "&text=" & WorksheetFunction.EncodeURL(message)
' WhatsApp Web'i varsayılan tarayıcıda aç
ThisWorkbook.FollowHyperlink Address:=url, NewWindow:=True
End Sub