Sorgu için arama sonuçları: followhyperlink

Hocam selamlar, gösterdiğiniz emek için teşekkür ediyorum öncelikle, bendeki kodu bu verdiğiniz kodla değiştirdim, bu sefer de ilk mesajı yanlış kişiye atıyor yani vatsapta o anda ilk sırada kim varsa ilk mesajı ona atıyor, daha sonraki mesajları doğru atıyor 2-3-4 sıradaki kişilere mesajları...

Sub whatsapp_mesaj_gonder_duzeltilmis() Dim kime As String Dim metin As String Dim i As Integer ActiveWorkbook.FollowHyperlink Address:="https://web.whatsapp.com/" Application.Wait Now + TimeValue("00:00:15") kime = Sheets("Sayfa1").Range("G2").Text metin =...

...tamYol = dosyaYolu & dosyaAdi If Dir(tamYol) <> "" Then ThisWorkbook.FollowHyperlink tamYol Else MsgBox "Dosya bulunamadı: " & vbCrLf & tamYol, vbExclamation End If End If End If End Sub PDF...

...tamYol = dosyaYolu & dosyaAdi If Dir(tamYol) <> "" Then ThisWorkbook.FollowHyperlink tamYol Else MsgBox "Dosya bulunamadı: " & vbCrLf & tamYol, vbExclamation End If End If End If End Sub...

Faydalı olabilir... https://www.excel.web.tr/search/919543/?q=followhyperlink&o=date

merhaba; her mesaj için yeniden bir link açıyor. whatsapp ekranı açık oldugu içinde hataya düşünüyor. whsapp ekranı açık burada kullan uyarısı alıyorum. mesaj gönderemeden hataya düşünüyor. uygulama üzerindende işlem yapılabilir. desteğinizi rica ederim

..."https://web.whatsapp.com/send?phone=" & phoneNumber & "&text=" & Application.EncodeURL(message) ThisWorkbook.FollowHyperlink url Application.Wait (Now + TimeValue("0:00:10")) Next i MsgBox "Mesajlar gönderildi!" End Sub Mesajların...

Üstadım Merhaba; Konu oldukça dikkatimi çekti gerçekten elinize emeğinize sağlık. Benimde buna benzer bir konu üzerine sorum ve yardım rica olacak. Ben bir sitenin yöneticisiyim her evin ayrı ayrı borç alacak tablosu var. Kodlarla da PDF çevirebiliyorum ancak gönderme konusunda tek tek...

...sorunlara ve çözüm yollarına birlikte bakalım. 1. WhatsApp Web'i Tekrar Tekrar Açma Sorunu: Döngü içinde ActiveWorkbook.FollowHyperlink komutu WhatsApp Web'i her seferinde yeniden açıyor. Bunu önlemek için, WhatsApp Web'i bir kere açıp, sonrasında döngüde sadece tab tuşlarını ve gerekli...

...bulunmaktadır. Bu tabloyu bu telefon numaralarına göndermek istiyorum, yazdığım kodda da bunda başarılı oldum fakat ActiveWorkbook.FollowHyperlink Address:="https://web.whatsapp.com/" komutu döngünün içerisinde olduğu için her döngüde sayfayı yeniden açıyor döngünün dışına çıkarınca da excel...

merhaba Güngör Bey kullandığınız excelden whatsaap mesaj gönderme programını paylaşabilirmisiniz bende o tür uygulama arıyorum sitede buldum aktif çalışmıyor

Sub Çalıştır() ' ... (Makronuzun diğer kodlarını buraya yazınız ) Application.FollowHyperlink Range("J1").Hyperlinks(1).Address' Bu yöntem, J1 hücresindeki tek bir hiperlinke tıklanmasını sağlar. ' ShellExecute vbApp, vbNormal, Range("J1").Text 'Bu yöntem, J1 hücresindeki...

YUkardaki makronuz, "Anwesenheit IT" adlı çalışma sayfasının A1:Q16 alanını her gün otomatik olarak PDF formatında kaydetmekte olup, her gün için ayrı bir Anwesenheit_YYYYMMDD.pdf isim formatında bir dosya oluşturmaktadır. ' ... Dim ortakAlanURL As String Dim klasorAdi As String ortakAlanURL...

...A1 bis M16 als PDF exportieren ThisWorkbook.Worksheets("Anwesenheit IT").Range("A1:Q16").ExportAsFixedFormat Type:=xlTypePDF, Filename:=pfad & "\" & dateiname2 ' Optional: PDF-Datei in einem neuen Fenster öffnen ' Application.FollowHyperlink pfad & "\" & dateiname2 End Sub

...Type:=xlTypePDF, Filename:=pfad & "\" & dateiname2 ' Optional: PDF-Datei in einem neuen Fenster öffnen ' Application.FollowHyperlink pfad & "\" & dateiname2 End Sub Bu sekilde belirli bir alani bilgisayara Pdf seklinde kaydedebiliyorum ancak internette bir ortak alan...

...= 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

...Range("D170").Select ActiveSheet.Paste Selection.ShapeRange.Name = "picture 1" sh.Shapes("picture 1").Copy ActiveWorkbook.FollowHyperlink Address:="https://web.whatsapp.com/send?phone=" & Cells(i, 33) & "&Text=" & Cells(i, 43) Application.Wait (Now + TimeValue("00:00:15")) Call...

...kime As String Dim metin As String kime = Sheets("Data").Range("B1").Text metin = Sheets("Data").Range("B2").Text ActiveWorkbook.FollowHyperlink Address:="https://web.whatsapp.com/send?phone=90" & kime & "&text=" & metin & "&app_absent=1&send=1" Application.Wait (Now +...

...Syg, If ListBox1.ListIndex < 0 Then MsgBox "Listeden seçim yapılmalı!" Exit Sub End If On Error GoTo hata aranan = ListBox1.List(ListBox1.ListIndex, 9) DosyaYol = ThisWorkbook.Path & "\" & aranan & ".pdf" ActiveWorkbook.FollowHyperlink DosyaYol Exit Sub hata: MsgBox "Aranan Dosya bulunamadı"

...bilgim yok açıkçası. Bizimkisi el yordamı. Link örneği aşağıdaki gibi. Telefon numarasını bulamaz ise hata veriyor. ActiveWorkbook.FollowHyperlink Address:="https://web.whatsapp.com/send?phone=+905000000000&Text=Merhaba" URL kontrol eden bazı kodlar buldum ama, bu kodlar hiç açılmayan veya...