- Katılım
- 28 Tem 2022
- Mesajlar
- 7
- Excel Versiyonu
- Excel 2016
- Excel Sürümü
- 64 Bit
- Excel Dili
- Türkçe
Merhaba,
Resimdeki hatanın çözümü için desteğinizi rica ederim.
Resimdeki hatanın çözümü için desteğinizi rica ederim.
İlyas PINAROĞLU
Sub whatsapp_link()
For i = 2 To 10
numara = Sheets("Sayfal").Range("A" & i)
mesaj = Sheets("Sayfal").Range("B" & i)
Sheets("Sayfal").Range("C" & i) = "https://api.whatsapp.com/send?phone=" & numara & "&text=" & mesaj
Range("C" & i).Select
ActiveSheet.Hyperlinks.Add Anchor:=Selection, Address:= _
Range("C" & i)
Next
End Sub
Sub whatsapp_gonder()
For i = 2 To 10
Range("C" & i).Select
Selection.hyperlings(1).follaw NewWindow:=False, addhistory:=True
Application.Wait (Now + TimeValue("00:00:07"))
Call SendKeys("-", True)
Application.Wait (Now + TimeValue("00:00:03"))
Next
End Sub
İlyas PINAROĞLU
İlyas PINAROĞLU
Run Time Error 424 Hatasını Çözme
|
|
Veri Sorgulamada Runtime Error 9 Hatasını Çözme
|
|
Kodlarda Run Time Error 1004 Hatasını Çözme
|
|
Run Time Error 424 object required Hatası
|
|
Run Time Error 13 Type Mismatch
|