Sorgu için arama sonuçları: followhyperlink

  1. burhanyildirim11

    Oto Twit

    ...ile ilgili video denk geldi ama çalıştıramadım nerede yanlış yapıyorum yardımcı olabilirmisiniz. Sub TWWT() ActiveWorkbook.FollowHyperlink Address:="https://twitter.com/home" Application.Wait (Now + TimeValue("00:00:07")) For i = 1 To 5 twit = Range("A" & i) Call SendKeys("n", True)...
  2. S

    En son indirilen exceli makro ile açmak

    ...< 6 Then Exit Sub Dosyasonu = Right(strDownloads, Len(strDownloads) - InStrRev(strDownloads, "\")) ActiveWorkbook.FollowHyperlink strDownloads Range("a1").Select If Range("I6").Value <> "İŞLETMEDEKİ SIĞIR-MANDA TÜRÜ HAYVAN BİLGİ RAPORU" Then MsgBox ("Lütfen doğru liste...
  3. ankara34

    Soru ücreti mukabilinde tw oto mesaj programı

    selamlar sizede umarım yardımcı olurlar , takipteyim emekleriniz için teşekkür ederim
  4. TiOr

    Soru ücreti mukabilinde tw oto mesaj programı

    ...dosya paylaşıyorum. Her iki sekmede birbirine yakın ama hemen hemen aynı basit bir uygulama "ama" aşağıdaki satırda; ActiveWorkbook.FollowHyperlink address:="https://twitter.com/home" Görsellerdeki hataları alıyorum; (baya bir araştırdım ama bir türlü çözemedim) Belki formdan kıymetli...
  5. W

    excel den whatsapp msj gönderme hakkında

    ...& ".xlsx") Set s2 = Worksheets(1) kime = Sheets("Sayfa1").Range("F1").Text metin = s2.Range("A1:G2").Copy ActiveWorkbook.FollowHyperlink Address:="https://web.whatsapp.com/" Application.Wait (Now + TimeValue("00:00:10")) Call SendKeys("{TAB}", True) Application.Wait (Now +...
  6. E

    PDF Kaydederken "Fit Sheet On One Page"

    ...".") - 1) Yol = CreateObject("WScript.Shell").SpecialFolders("Desktop") & "\" & "PROFORMA FATURA-" & Dsy & "-" & [A1] Syf.PageSetup.Zoom = False: Syf.PageSetup.FitToPagesWide = 1 Syf.ExportAsFixedFormat Type:=xlTypePDF, Filename:=Yol ThisWorkbook.FollowHyperlink Yol & ".Pdf"...
  7. Korhan Ayhan

    Makro ile PDF önizlemesi ve PDF listeleme

    ...Set Alan = Nothing ActiveSheet.Range("filePath").Value = DialogBox.SelectedItems(1) ActiveWorkbook.FollowHyperlink DialogBox.SelectedItems(1) AppActivate VBA.Split(DialogBox.SelectedItems(1), Application.PathSeparator)(1) Application.Wait Now +...
  8. northcyprus

    Bir dosyanın köprüsünden gelen uyarı mesajı

    ...kodda gelen mesaja On Error Resume Next ten sonra Tamam ı tıkla diye bir kod ekleyebilirsek olur mu aceba. Sub sarkı1() Dim fileaudio As String On Error Resume Next fileaudio = "C:\.........................................wav" ActiveWorkbook.FollowHyperlink Address:=fileaudio End Sub
  9. S

    Veri Doğrulamada Köprü Oluşturma

    Korhan bey merhaba, Yardımlarınız ve ilginiz için çok teşekkür ederim bir şeyleri yanlış yaptığımdan sonuca ulaşamıyorum sizi daha fazla uğraştırmak istemem sağ olun var olun.
  10. Korhan Ayhan

    Veri Doğrulamada Köprü Oluşturma

    ...Target As Range, Cancel As Boolean) Dim Yol As String If Intersect(Target, Range("A1")) Is Nothing Then Exit Sub Cancel = True Yol = "C:\Users\Admin\Desktop\Test\" & Target.Value & ".jpg" ActiveWorkbook.FollowHyperlink Address:=Yol, NewWindow:=True End Sub
  11. S

    Klasör içindeki dosyalara bağlantı oluşturmak

    Hocam bu hali tam istediğim gibi oldu,Teşekkürler.
  12. Cengiz Demir

    Klasör içindeki dosyalara bağlantı oluşturmak

    ...Then bul.Offset(i, 0).Activate Dim strFilePath As String strFilePath = "\\Dosya Yolu\" & ComboBox1.Value '& ".pdf" ThisWorkbook.FollowHyperlink (strFilePath) Exit For End If Next bul End Sub Bu çalışma kitabındaki kod aşağıdaki gibi düzenlenecek. Private Sub WorkBook_open() For i = 1 To 200...
  13. S

    Klasör içindeki dosyalara bağlantı oluşturmak

    ...bul.Offset(i, 0).Activate Dim strFilePath As String strFilePath = "\\dosya yolu\" & ComboBox1.Value & ".pdf" ThisWorkbook.FollowHyperlink (strFilePath) Exit For End If Next bul End Sub workbook Private Sub WorkBook_open() For i = 1 To 200 Sayfa1.ComboBox1.AddItem Range("A"...
  14. mancubus

    whatsapp ile aktif satırdaki bilgileri gönder

    ...& "BAGLANTI_TUTARI: " & Range("AE" & lRow) & vbCrLf waMsg = waMsg & "PLASIYER_eposta: " & Range("AF" & lRow) ActiveWorkbook.FollowHyperlink Address:=" https://web.whatsapp.com/send?phone=" & Cells(i, 1) & "&text=" & Cells(i, 2) Application.Wait Now + TimeValue("00:00:20")...
  15. H

    Buton İle Web Sayfası Açmak

    Merhabalar; Aşağıdaki makro ile butona bastığımda açacağım adresi "İnternet Explorer" ile açıyor. Bun adresi devamlı olarak Google Chromeile açabilir miyiz ? Private Sub CommandButton12_Click() ActiveWorkbook.FollowHyperlink _ Address:="https://ebys.ogm.gov.tr/edys-web/sistemeGiris.xhtml" End Sub
  16. H

    Hyperlink Olmayan Köprü ile oluşmuş Hücreye VBA ile Tıklama

    Deneyebilir misiniz ? Sub Makro1() For Each kopru In Sayfa1.Hyperlinks ActiveWorkbook.FollowHyperlink Address:=kopru.Address Next End Sub
  17. B

    1004 Nesne eklenemiyor hatası

    Sub dene() hedef = ThisWorkbook.Path & "\" & "Ortak" & "\" & [C5].Value & ".pdf" ActiveWorkbook.FollowHyperlink hedef Sheets("register").[c1] = hedef End Sub Üstad çok teşekkürler ... Birşey daha sormak istiyorum, on error goto 10 satırı ile dosya yoksa C2 hücresine dosya yok" yazdırıyorum...
  18. Korhan Ayhan

    1004 Nesne eklenemiyor hatası

    Deneyiniz. ActiveWorkbook.FollowHyperlink hedef
  19. S

    Çalışma kitabındaki sayfaları birleştirmek

    ...< 6 Then Exit Sub Dosyasonu = Right(strDocument, Len(strDocument) - InStrRev(strDocument, "\")) ActiveWorkbook.FollowHyperlink strDocument Range("a1").Select If Range("M15").Value <> "MALATYA" Then MsgBox ("Lütfen doğru liste seçiniz..."), vbCritical, "Hatalı Liste..."...
  20. S

    Çalışma kitabındaki sayfaları birleştirmek

    ...< 6 Then Exit Sub Dosyasonu = Right(strDocument, Len(strDocument) - InStrRev(strDocument, "\")) ActiveWorkbook.FollowHyperlink strDocument Range("a1").Select If Range("M15").Value <> "MALATYA" Then MsgBox ("Lütfen doğru liste seçiniz..."), vbCritical, "Hatalı...
Üst