Soru Makro ile Otomatik köprü

[MESUT K]

Herkese Merhaba

Site içerisinde aradım fakat tam istediğim bilgiye ulaşamadım.Klasör içerisinde excel listelenmiş dosyam ve yığınla pdf,xls,doc uzantılı dosyalar var.Excel içerisinde listelenmiş dosyamı açtığımda listede döküman adı kısmındaki dökümanlardan birini tıkladığımda ilgili dosyayı otomatik bulup açmasını istiyorum.üstadlarımdan konu ile ilgili yardım istiyorum

Saygılarımla


https://dosya.co/irjp7otwzbk0/OTOMATİK_KÖPRÜ.xlsx.html

 

[acar6783]

Dim ds As New FileSystemObject
yol = ThisWorkbook.Path & "\klasör\"
 Range("A3:A" & Rows.Count).Hyperlinks.Delete
' Set klasör = ds.GetFolder(yol)
 For SAT = 3 To Cells(Rows.Count, "A").End(3).Row
 vno = Cells(SAT, "A")
If Dir(yol & vno & ".txt") <> Empty Then
 
 
 'If vno = Cells(SAT, "A") Then
 ActiveSheet.Hyperlinks.Add Anchor:=Cells(SAT, "A"), Address:= _
        "klasör\" & Cells(SAT, "A").Value & ".pdf"

Kodları kendinize göre uyarlyın

 

[MESUT K]

Döküman klasörü taşınabilir bellekte duruyor.Yani yol sabit değil.Otomatik köprü excel dosyası ile aynı döküman klasöründe bulunanları ,makro arayıp bulup açmalı(örnek olarak pdf dosyalarını resimde gösterdim fakat uzantılar farklı dosyalara ait olabilir)

Verdiğiniz kodda resimdeki listede D sütunundakileri arayacak.Kodlarda tam olarak neleri değiştirmeliyim

 

[Korhan Ayhan]

İlgili sayfanızın kod bölümüne aşağıdaki kodu uygulayıp deneyiniz.

Hücrelere çift tıkladığınızda kod çalışacaktır.

Option Explicit

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
    Dim Yol As String, Dosya_Adi As String, Dosya As String
    If Intersect(Target, Range("D4:D" & Rows.Count)) Is Nothing Then Exit Sub
    Cancel = True
    Yol = ThisWorkbook.Path & Application.PathSeparator
    Dosya_Adi = Target.Value
    Dosya = Dir(Yol & Dosya_Adi & "*")
    If Dosya <> "" Then
        CreateObject("Shell.Application").Open (Yol & Dosya)
    Else
        MsgBox "Dosya bulunamadı!", vbCritical
    End If
End Sub

 

[MESUT K]

Korhan Bey
Excel ile aynı klasörde bulunan DÖKÜMAN AB 'ye çıft tıkladığımda dosya bulunamadı hatası alıyorum

 

[MESUT K]

ingilizce versiyon excel kullandığım için listedeki DOKÜMAN AB ye tıkladığımda dosya bulunamadı hatası verdi.listedeki yazıyı Döküman AB olarak değiştirdiğimde sorun çözüldü

Elinize sağlık yardımlarınız için çok teşekkür ediyorum.

 

[MESUT K]

Korhan Bey sizden bir ricam olacak.Kod düzgün çalışıyor yalnız listede türkçe karakter ile yazılmış döküman adı ve türkçe karakterler ile yazılmış döküman dosyası olunca bulamıyor

şöyleki

listede "yalnız" isimli döküman adı yazıyor.Klasörde "yalnız.pdf" dosyasını bulup açamıyor

listedeki döküman ismini "yalniz" ve klasördeki dosya ismini "yalniz.pdf" olarak değiştirdiğimde dosyayı açıyor.

ingilizce excel ve windows kullanıyorum.hem ingilizce hemde türkçe versiyonlarında çalışacak şekilde bir çözüm yolu varmıdır

 

[MESUT K]

Bir sorunda sadece "yalniz.pdf" dosyasını excel ile aynı klasöre koyduğumda "yalniz.pdf" dosyası açılıyor."yalniz.pdf" diğer pdf dosyalarımın ile aynı klasöre koyduğumda "yalniz.pdf" dosyasını bulup açamıyor."yalniz.pdf" dosyası ile aynı isimde olan çakışan ya da "y" harfi ile başlayan dosya adı yok bu rağmen bulup açamıyor

 

[Korhan Ayhan]

Merhaba,

Türkçe karakter sorunu için linkte benzer problem için çözüm paylaşılmış. Deneyip sonucu bildirir misiniz?

https://www.excel.web.tr/threads/klasoerdeki-ayni-nolu-pdf-dosyasini-acma-islemi.179456/

Son mesajınızda "bulup açamıyor" demişsiniz. Zaten taleplerinizde dosyayı arasın ve bulduğunda açsın gibi bir açıklamanız yoktu diye hatırlıyorum. Bu sebeple kod içinde YOL tanımlaması yapılmıştır. Arasın dediğinizde nerede arayacak sorusu gelecektir.

 

[MESUT K]

Merhaba,

Türkçe karakter sorunu için linkte benzer problem için çözüm paylaşılmış. Deneyip sonucu bildirir misiniz?

https://www.excel.web.tr/threads/klasoerdeki-ayni-nolu-pdf-dosyasini-acma-islemi.179456/

Son mesajınızda "bulup açamıyor" demişsiniz. Zaten taleplerinizde dosyayı arasın ve bulduğunda açsın gibi bir açıklamanız yoktu diye hatırlıyorum. Bu sebeple kod içinde YOL tanımlaması yapılmıştır. Arasın dediğinizde nerede arayacak sorusu gelecektir.

Korhan Bey türkçe karakter sorununu verdiğiniz linkten şimdi bakacağım.

"Arasın dediğinizde nerede arayacak sorusu gelecektir" excel dosyası bulunduğu klasör içerisinde aramalı.aşağıdaki resimde excel dosyası ile pdf dosyalar aynı klasörde bulunuyor.excel dosyası döküman klasöründe olduğu için pdfleri bu klasörde arayacak.(döküman klasörü taşınabilir bellekte,sabit diskte değildir
)

 

[MESUT K]

Korhan Bey türkçe versiyon excel 2010 da kodu denedim.Sıkıntısız çalışmaktadır.Excel ile aynı klasörde bulunan dosyayı bulup açmaktadır.Bir önceki mesajdaki sıkıntı tamamen versiyonun ingilizce olmasından kaynaklı bir sorundur.Türkçe karakter sorunu ile ilgili attığınız linki inceledim.Muhtemelen sorunun çözümü verdiğiniz linkte.Adımları izleyerek sorunu çözüyordumki admin erişimi istedi(şirket bilgisayarı olduğu için)

 

[onurbeyaz]

Merhaba Üstatlar bu konu tamamlandıysa buna benzer benimde bir işleme ihtiyacım var MESUT K
dosyanın tamamlanmış halini gönderebilir misin ekleyebilir misin siteye teşekkürler, b.onur1989@gmail.com