Sorgu için arama sonuçları: followhyperlink

  1. 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 +...
  2. 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"...
  3. 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 +...
  4. 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
  5. 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.
  6. 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
  7. S

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

    Hocam bu hali tam istediğim gibi oldu,Teşekkürler.
  8. 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...
  9. 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"...
  10. 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")...
  11. 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
  12. 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
  13. 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...
  14. Korhan Ayhan

    1004 Nesne eklenemiyor hatası

    Deneyiniz. ActiveWorkbook.FollowHyperlink hedef
  15. 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..."...
  16. 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ı...
  17. systran

    Soru 8 karakterli rakamadan az olması halinsde PDF dosyasının açılmması?

    ...Cancel = True If Target.Column <> 6 Or Target.Value = "" Or len(Target.value) <>8 Then Exit Sub pth = ThisWorkbook.Path & "\ Bilgi\" fname = pth & Target.Value & "*.pdf" dosya = Dir(fname) Do While dosya <> "" dosya = pth & dosya ActiveWorkbook.FollowHyperlink dosya dosya = Dir() Loop End Sub
  18. M

    Soru 8 karakterli rakamadan az olması halinsde PDF dosyasının açılmması?

    ...If Target.Column <> 6 Or Target.Value = "" Then Exit Sub pth = ThisWorkbook.Path & "\ Bilgi\" fname = pth & Target.Value & "*.pdf" dosya = Dir(fname) Do While dosya <> "" dosya = pth & dosya ActiveWorkbook.FollowHyperlink dosya dosya = Dir() Loop...
  19. M

    Klasördeki aynı nolu PDF dosyasını açma işlemi?

    ...If Target.Column <> 6 Or Target.Value = "" Then Exit Sub pth = ThisWorkbook.Path & "\parsel\" fname = pth & Target.Value & "*.pdf" dosya = Dir(fname) Do While dosya <> "" dosya = pth & dosya ActiveWorkbook.FollowHyperlink dosya dosya = Dir() Loop...
  20. T

    Açık olan Pdf dosyasını kapatmak

    ...pth & "*" & Target.Value & "*.pdf" dosya = Dir(fname) If dosya <> "" Then dosya = pth & dosya ActiveWorkbook.FollowHyperlink dosya Else MsgBox "Dosya Bulunamadı..." End If End Sub Yukarıdaki kod ile belirtilen dosya içirisinde A sutununda yazılı olup...
Üst