Excelden Whatsappa Kodla Mesaj Atma

Hayırlı akşamlar, whatsapp ile ilgili daha önce bi kod yazdığımı hatırlamıyorum. Bu kod öncesinde ctrl c ile manuel kopyalama mı yapıyorsunuz?

Kopyalama işlemini sonradan farkettim.

SendKeys "^v" & " tercihiniz için teşekkür ederiz."

Bu şekilde deneyin.

Galiba onu ben yazmıştım @okutkan hocam
Şu şekilde de deneyebilirsiniz:

Hayırlı günler @okutkan hocam

SendKeys ("tercihiniz için teşekkür ederiz" & "^v")

Hocam nedendir anlamadım, öyle çalışmadı bu şekilde çalıştı

Emeklerin ve ilginiz için çok teşekkür ediyorum

@FerhatCK hocam hakkınızı helal edin dikkat etmemişim.
Emeklerin ve ilginiz için çok teşekkür ediyorum

If sutun = 8 Then
If Target = "w" Then
Range(Cells(Target.Row, "B"), Cells(Target.Row + 35, "G")).Select
Selection.Copy
ActiveWorkbook.FollowHyperlink Address:="WhatsApp Web" & Worksheets("Bilgi").Range("B14").Value
Application.Wait (Now + TimeValue("00:00:15"))
SendKeys ("tercihiniz için teşekkür ederiz" & "^v")
Application.Wait (Now + TimeValue("00:00:03"))
Call SendKeys("~", True)
End If

hocalarım H sütununa "w" yazdığımızda kod bu şekilde düzgünce çalışıyor

ilave olarak;
H sütununa "w" yazdığımızda, yazdığımız hücrenin sağındaki 4. hücre (K sütunu) dolu ise, "tercihiniz için teşekkür ederiz", boş ise "kontrol ediniz" şeklinde mesaj gitmesi için ne yapmalıyız.

epey uğraştım içinden çıkamadım

ilginiz için tekrar çok teşekkür ederim

Aşağıdaki kodu deneyiniz

@FerhatCK
hocam kastım mesaj kutusu değildi
whatsaptan gönderilen mesajın değişmesini istiyoruz

@FerhatCK hocam ellerinize sağlık çok teşekkür ederiz

hocam G sütunu ve 35 satır altı için
If Target.Offset(35, -1) = "" Then
yaptım çalışmadı

nasıl yapsak çalışır?

Adrese başvurun eğer adres sabitse


gibi

yok hocam adres soldan 1. aşağıdan 35. hücre olarak değişken

Görmeyince bişey diyemicem. Resimli veya dosyalı anlatın.

@FerhatCK

If Target.Offset(, -1) = "" Then

hocam bu şekilde, şeklinde G sütununu seçiyor

ör. H1 e "w" yazdığımızda G1 en durumuna bakıyor
H1 e yazdığımızda G34 ün durumuna bakması için ne yapabiliriz acaba hocam

hocam H sütununda birden fazla birleştirilmiş hücreler olduğu için hata veriyormuş

If Target.Offset(34, -1) = "" Then

bu yeterli oldu

@FerhatCK @okutkan
ilginiz ve emeğiniz için çok çok teşekkür ediyorum
Allâh iyiliğinizi ziyadesiyle versin