Sorgu için arama sonuçları: followhyperlink

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

...On Error Resume Next Application.ScreenUpdating = False Application.CutCopyMode = False ActiveWorkbook.FollowHyperlink Address:="https://web.whatsapp.com/send/?phone=90" & Worksheets("YIF").Range("C2") Application.Wait (Now + TimeValue("00:00:10"))...

bu kodda Application.Wait (Now + TimeValue("00:00:02")) yerine başka bir kod kullanabilirmiyiz? yani send key değilde click yapmak istediğimizde yeni sayfanını açılmasını beklemek için manuel bir zaman yerine sayfa açılana kadar bekleme yapabilirmiyiz?

...As String Dim linkAdresi As String KullaniciAdi = Sheets("Sayfa1").Range("A2").Copy linkAdresi = Range("C2").Value ActiveWorkbook.FollowHyperlink Address:=linkAdresi Application.Wait (Now + TimeValue("00:00:5")) Call SendKeys("{TAB}", True) 'Application.Wait (Now + TimeValue("00:00:02"))...

...As Range, X_Address As String Set Rng = Sayfa1.Range("C2") If Rng.Hyperlinks.Count > 0 Then ThisWorkbook.FollowHyperlink Rng.Hyperlinks(1).Address Else X_Address = Replace(Replace(Split(Sayfa1.Range("C2").Formula, ",")(0), "=HYPERLINK(", ""), ",", "")...