Sorgu için arama sonuçları: followhyperlink

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

    Klasörü Ekrana Getirmek

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

    Klasörü Ekrana Getirmek

    Veya; ActiveWorkbook.FollowHyperlink Range("A1").Text .
  5. 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
  6. 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 &...
  7. 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...
  8. 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...
  9. 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.
  10. 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
  11. 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 =...
  12. 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
  13. 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...
  14. 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...
  15. 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...
  16. 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
  17. S

    Excelden açılan web sayfasını tam ekran açmak

    arkadaşlar aşağıdaki kod web sayfasını açıyor peki tam ekran olarak çamasını nasıl sağlayabilirim? Teşekkürler. Private Sub CommandButton0_Click() ThisWorkbook.FollowHyperlink Address:="http://www.google.com", NewWindow:=True End Sub
  18. T

    Cc kısmına adres ekleme

    ...HLink = HLink & "subject=" & Subj & "&" HLink = HLink & "body=" & msg ActiveWorkbook.FollowHyperlink (HLink) Application.Wait (Now + TimeValue("0:00:01")) SendKeys "%s", True Next j End If...
  19. I

    outlookda eksik kodlamaya yardım lütfen

    ...= "mailto:" & Recipient & "?" & "cc=" & Recipientcc _ & "&" & "bcc=" & Recipientbcc & "&" HLink = HLink & "subject=" & Subj & "&" HLink = HLink & "body=" & msg ActiveWorkbook.FollowHyperlink (HLink) Application.Wait (Now + TimeValue("0:00:02")) Application.SendKeys "%s"
  20. O

    Köprü düğmesi çalışmıyor ???

    ...artık çalışmıyor.Yardımcı olabilecek arkadaşlara şimdiden teşekkür ederim. Sub KlasörAc() Sheets("Dok Güncelleme").Select Range("j1").Select On Error Resume Next ActiveWorkbook.FollowHyperlink Address:="\\Server\d\M.I.S\Kalite\Dokümantasyon\" & Range("j1").Value & "\", NewWindow:=True End Sub
Üst