• DİKKAT

    DOSYA İndirmek/Yüklemek için ÜCRETLİ ALTIN ÜYELİK Gereklidir!
    Altın Üyelik Hakkında Bilgi

Sorgu için arama sonuçları: followhyperlink

  1. 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
  2. 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
  3. 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...
  4. Korhan Ayhan

    1004 Nesne eklenemiyor hatası

    Deneyiniz. ActiveWorkbook.FollowHyperlink hedef
  5. 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..."...
  6. 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ı...
  7. 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
  8. 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...
  9. 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...
  10. 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...
  11. veyselemre

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

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

    ...= 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 kodla F sutundaki hücrede bulunan zemin nosuna ait Pdf yi...
  13. B

    Klasörü Ekrana Getirmek

    Haluk üstadım çok teşekkür ediyorum, sağlıcakla kalın,
  14. H

    Klasörü Ekrana Getirmek

    Veya; ActiveWorkbook.FollowHyperlink Range("A1").Text .
  15. Korhan Ayhan

    Türkçe Karakter sorunu

    ...If Dosya <> "" Then Dosya = pth & Dosya For X = 0 To UBound(TR_Karakter) Dosya = Replace(Dosya, TR_Karakter(X), EN_Karakter(X), , , vbTextCompare) Next ActiveWorkbook.FollowHyperlink Dosya Else MsgBox "Dosya bulunamadı!" End If End Sub
  16. Muzaffer Ali

    Türkçe Karakter sorunu

    ActiveWorkbook.FollowHyperlink dosya satırını ActiveWorkbook.FollowHyperlink fname ile değiştirip dener misiniz? Bende İngilizce olmadığı için deneyemiyorum. Kodlarda bundan başka bir sorun görünmüyor. Eğer yukarıdaki gibi yaptıktan sonra çalışırsa şu satırı da silebilirsiniz. dosya = pth &...
  17. T

    Türkçe Karakter sorunu

    ...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 Sn. veyselemre hocamın kodları ile evimdeki türkçe windows...
  18. veyselemre

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

    ...Target.Value = "" Then Exit Sub pth = ThisWorkbook.Path & "\parsel\" fname = pth & Target.Value & "*.pdf" dosya = Dir(fname) If dosya <> "" Then dosya = pth & dosya ActiveWorkbook.FollowHyperlink dosya Else MsgBox "Dosya Bulunamadı..." End If...
  19. T

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

    ...Cancel = True If Target.Column <> 6 Or Target.Value = "" Then Exit Sub pth = "C:\Users\Tomson\Desktop\TOMSON\" fname = pth & "*" & Target.Value & "*" & ".pdf" If Dir(fname) = "" Then ActiveWorkbook.FollowHyperlink fname End Sub bu şekilde denedim ama hata verdi.
  20. veyselemre

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

    ...Target As Range, Cancel As Boolean) Cancel = True If Target.Column <> 6 Or Target.Value = "" Then Exit Sub pth = ThisWorkbook.Path & "\parsel\" fname = pth & Target.Value If Dir(fname) <> "" Then ActiveWorkbook.FollowHyperlink fname End If End Sub
Üst