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

[mars2]

İyi akşamlar;
analite isimli çalışma kitabımda Sayfa1 de tablo bulunmakta olup F sutununda ise Zemin Nosu bulunmaktadır. Aynuı klasörün içinde parsel isimli klasör bulunmaktadır.

Listedeki F sutunda herhangibir hücreye tıkladığımda parsel klasörün içinde bulunan PDF dosyasını açmasını istemekteyim.

 

[veyselemre]

Private Sub Worksheet_BeforeDoubleClick(ByVal 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

 

[mars2]

Sayın Veyselemere;
İlginize teşekkürler, ancak parsel klasördeki aynı zemin nosundaki PDF açmadı.
Ekte örnek klasör ekledim.

Private Sub Worksheet_Change(ByVal Target As Range)

 

[veyselemre]

fname = pth & Target.Value & ".pdf"

 

[mars2]

Sayın veyselemre;
Cevabınız için teşekkürler.

 

[tahsinanarat]

Sayın veyselemre, örnek dosyadıki pdf adı 71568117 değilde 71568117 TAHSİN ANARAT olmuş olsaydı, yine örnekde olduğu gibi 6 sutunda
71568117 şeklinde yazdığı halde 71568117 TAHSİN ANARAT pdf dosyasını nasıl açtırabiliriz.
Yardımlarınız için şimdiden teşekkürler.

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
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.

 

[veyselemre]

fname = pth & Target.Value & " TAHSİN ANARAT.pdf"

 

[tahsinanarat]

Sn.veyselemre hocam cevabınız için çok teşekkür ederim, yalnız benim istediğim bu değil, sutunda binlerce sicil numarası ile adsoyad isminde pdf dosyam olacak, ancak ben excelde a sütununda yazılı sicil numarasına çift tıkladığımda dosyamda bulunan o sicile sicil ve adısoyad yazılı pdf dosyasını açmak istemiştim, yani TAHSİN ANARAT sabit değil.
NOT: pdf dosya adlarının ilk boşluktan öncesi eşleştiğinde dosyayı açmak istiyorum.

 

[veyselemre]

Private Sub Worksheet_BeforeDoubleClick(ByVal 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 & "*.pdf"
    dosya = Dir(fname)
    If dosya <> "" Then
        dosya = pth & dosya
        ActiveWorkbook.FollowHyperlink dosya
    Else
        MsgBox "Dosya Bulunamadı..."
    End If
End Sub

 

[tahsinanarat]

Sn.veyselemre hocam zihninize sağlık, tam olarak istediğim buydu. İlginize çok teşekkür ediyorum.

 

[mars2]

İyi Günler;

Yukarıdaki kodla Pdf li dosyayı açmaktayım. Ancak, aynı zemin nosundan birden fazla bulunması halinde (12456998, 12456998 (1)) diğerlerini de nasıl gösterebiliriz.

 

[mars2]

İyi Geceler;

Private Sub Worksheet_BeforeDoubleClick(ByVal 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 & "*.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 açmaktayım. Ancak, aynı zemin nosuna ait birden fazla pdf bulunması halinde (12456998, 12456998 (1)) diğerlerinin de açılması için yardımlarınız beklemekteyim.

 

[veyselemre]

Private Sub Worksheet_BeforeDoubleClick(ByVal 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 & "*.pdf"
    dosya = Dir(fname)
    Do While dosya <> ""
        dosya = pth & dosya
        ActiveWorkbook.FollowHyperlink dosya
        dosya = Dir()
    Loop
End Sub

 

[tahsinanarat]

sn. veyselemre hocam, ben denedim kodları, çok güzel çalışıyor elinize sağlık, bu kodunuzu da arşivime alıyorum. Teşekkürler.
(iş yerinde kullandığım İngilizce win10 sisteminde pdf dosya ismi içinde Türkçe karakterler (özellikle ı,i,I,İ) bulunan dosyalar açmıyor, neden olduğunu biliyorsanız cevap yazarsanız sevinirim.)

 

[Haluk]

.....
....
(iş yerinde kullandığım İngilizce win10 sisteminde pdf dosya ismi içinde Türkçe karakterler (özellikle ı,i,I,İ) bulunan dosyalar açmıyor, neden olduğunu biliyorsanız cevap yazarsanız sevinirim.)

Sanki Windows ayarlarında bir sıkıntı var gibi ..... Şu şekilde bir deneme yapın;

1) Control Panel'den bölgesel ayarları seçin....



2) Ekrana gelen pencerede, aşağıdaki resimde işaretlediğim yeri tıklayın ....



3) Şimdi ekrana gelen pencerede, aşağıdaki resimde "mavi" renkle işaretlediğim bölgede "Turkish - Türkçe" yazmıyorsa, o zaman mavi okla işaretlediğim butona tıklayın, ve gelen pencerede "Türkçe" ifadesini bulup seçin. Tüm pencereleri onaylayarak, kapatın.

 

[mars2]

İyi Günler;
Geçte olsa İlgi ve cevabınız için teşekkürler.

 

[tahsinanarat]

Sn. Haluk hocam dediğiniz gibi bilgi işleme mail atmıştım, bugün bağlanıp dediğiniz gibi ayarları değiştirdiler. Her şey normala döndü, ilginize çok teşekkür ediyorum. Saygılar.

 

[tahsinanarat]

Çok garip bölgesel ayarlardan sonra excelin kod görüntülü bölümüne, modüle ulaşamaz oldum, sayfa sekmesinden sağ tıklayıp kod görüntüle dediğimde, alt F11 yaptığımda excel otomatikman kapanıp yeniden açılıyor ne yaptımsa makroları yazdığımız bölümü, giremedim. Bu konuda bilgisi olan arkadaşlarım, böyle bir şey yaşamış olan arkadaşlarımdan yardım bekliyorum. Hangi excel dosyası olursa olsun giriş yapamadım. Aynı dosyaları başka pc de denedim herhangi bir sorun olmadı.

 

[Haluk]

Bölgesel ayarları "Türkçe" yaptığınız yerde, aşağıdaki resimde "kırmızı ok" ile belirtilen seçenek sizde varsa, oradaki onay işaretini kaldırdıktan sonra pencereleri onaylayıp kapatın.


.

.

 

[tahsinanarat]

Sn. Haluk hocam Pazartesi günü işyerine gittiğimde deneyip bilgi vereceğim, ilginize çok teşekkür ederim.