Sorgu için arama sonuçları: followhyperlink

...As Range, Cancel As Boolean) Dim Yol As String If Intersect(Target, Range("A1")) Is Nothing Then Exit Sub Cancel = True dizin=C:\Users\muratgunay48\Desktop\Test\ Yol = Dir ( dizin & Target.Value & (*.gif; *.jpg; *.png; *.jpeg) ActiveWorkbook.FollowHyperlink Address:=Yol, NewWindow:=True End Sub

...kullanarak çeşitli dosya uzantılarını kullanarak dosyanın varlığını kontrol etmeniz gerekiyor. Sonra doğru uzantılı dosya bulununca FollowHyperlink yöntemiyle dosyayı açmanız kolaylaşacaktır. Linkler faydalı olacaktır...

...Range, Cancel As Boolean) Dim Yol As String If Intersect(Target, Range("A1")) Is Nothing Then Exit Sub Cancel = True Yol = "C:\Users\muratgunay48\Desktop\Test\" & Target.Value & "(*.gif; *.jpg; *.png; *.jpeg)" ActiveWorkbook.FollowHyperlink Address:=Yol, NewWindow:=True...

Hocam emeğinize sağlık. Hocam çoklu uzantı için Yol = "C:\Users\Admin\Desktop\Test\" & Target.Value & ".jpg" * ".jpeg" Şeklinde yazıyorum ama Aynı şekilde =KÖPRÜ("C:\Users\Birgül\Desktop\Öztaş Apt\GÖRÜNTÜLER\"&A1&".jpg"*".jpeg";"Görsele ulaşmak için tıklayınız…") Hata alıyorum. Neden acaba.

selamınaleyküm hocam bu makro çok işime yaradı. lakin şöyle birşeye ihtiyacım var. resmi bilgisayar içinde değilde google driver içerisinde arayıp açacak bi makro mümkünmü acaba. excelide internet tarayıcıdan kullanıyorum makro yaptıktan sonra drivere yüklücem exceli ordan kullanacağım. şimdiden...

...message As String phoneNumber = "+905555555555" ' Telefon numarasını buraya girin message = "deneme" ' Dim url As String url = "whatsapp://send?phone=" & phoneNumber & "&text=" & message ' Bağlantıyı aç ThisWorkbook.FollowHyperlink Address:=url, NewWindow:=True...

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