Sorgu için arama sonuçları: followhyperlink

  1. 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
  2. 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...
  3. 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...
  4. 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...
  5. 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...
  6. 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...
  7. B

    Klasörü Ekrana Getirmek

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

    Klasörü Ekrana Getirmek

    Veya; ActiveWorkbook.FollowHyperlink Range("A1").Text .
  9. 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
  10. 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 &...
  11. 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...
  12. 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...
  13. 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.
  14. 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
  15. Y

    Otomatik Veri doldur ve Kaydet code

    ...'Last Row PDFTemplateFile = .Range("K9").Value 'Template File Name SavePDFFolder = .Range("K11").Value 'Save PDF Folder ThisWorkbook.FollowHyperlink PDFTemplateFile Application.Wait Now + 0.00006 For CustRow = 5 To 7 'LastRow LastName = .Range("E" & CustRow).Value 'Last Name SlNumber =...
  16. T

    PDF dosyasını açmak

    ...Aldığım kod aşağıda Sub BrowsePDFDocument() Dim strDocument As String strDocument = Application.GetOpenFilename("PDF Files,*.pdf,All Files,*.*", 1, "Open File", , False) ' get pdf document name If Len(strDocument) < 6 Then Exit Sub ActiveWorkbook.FollowHyperlink strDocument End Sub
  17. D

    bulduğum bu kodu düğme tıklanınca çalışsın şekline getiremiyorum

    ...File = Target & ".*" DosyaAdı = Dir(Path & File) If DosyaAdı = "" Then MsgBox "Bu İsimde Dosya Bulunamadı" Else ThisWorkbook.FollowHyperlink Path & DosyaAdı End If End If End Sub End Sub Expected End Sub hatası diyor. düğmeye tıklayınca bu Private Sub ile başlayan kodu nasıl...
  18. E

    makro ile otomatik mail gönderilen metin içerisinde link verme

    ...= d(j) HLink = "mailto:" & Recipient & "?" HLink = HLink & "subject=" & Subj & "&" HLink = HLink & "body=" & msg ActiveWorkbook.FollowHyperlink (HLink) Application.Wait (Now + TimeValue("0:00:01")) SendKeys "%s", True Next j msg = Empty End If Next MsgBox Adet & " Adet Mail...
  19. M

    Hyperlink 2 kere açılıyor

    ...Ancak makroda hyperlinke yazınca 2 defa çalışıyor.Bunun çözümü var mı? Teşekkürler. Sub dene() Application.ThisWorkbook.FollowHyperlink...
  20. M

    Excel ile .html dosyasındaki submit butonunu aktive etmek

    ...say) .Value = Format(Now, "hh") .Interior.ColorIndex = 3 End With With Cells(Target.Row, say) .Value = Format(Now, "hh") .Interior.ColorIndex = 3 End With Application.ThisWorkbook.FollowHyperlink Address:="kor\" & Cells(Target.Row, "D").Value & ".html" End Sub
Üst