Köprü Oluşturma Hk.

[valentino06]

Arkadaşlar Merhaba aşağıdaki kod ile çift tıklayınca köprü oluşturuyorum. yapmak istediğim Örnek sayfasında bulunan B5:B sütununda bulunan kodların kırmızı ile boyadığım kısma göre Pdf de sadece bu kodlara köprü oluşturmasını istiyorum. Hocam pdflerin arka kısmında da aşağıdaki gibi metin olabiliyor. sayısal kısma göre köprü oluştursun isityorum. çok teşekkür ederim.

123456789_abcdddd formu.pdf

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Intersect(Target, Range("B5:B" & Rows.Count)) Is Nothing Then Exit Sub
YOL = "/"
Set ds = CreateObject("Scripting.FileSystemObject").GetFolder(YOL).SubFolders
For Each d In ds
    dsy = Dir(d.Path & "\" & Target.Text & ".*")
    If dsy <> "" Then
        Target.Hyperlinks.Delete
        Target.Hyperlinks.Add Target, d.Path & "\" & dsy
        GoTo son
    End If
Next


MsgBox YOL & " dizininde " & Target.Text & " dosyasi bulunamadi."
son:
Cancel = True

End Sub

 

[valentino06]

Hocam Özür dilerim. Excel içindeki sol baştaki sıfır da olmayacak. sıfırdan sonraki sayısal rakamlara göre köprü kurulabilir mi . lütfen yardımcı olabilir misiniz. çok teşekkür ederim.

 

[valentino06]

Arkadaşlar lütfen yardımcı olabilir misiniz. çok teşekkür ederim.

 

[ÖmerFaruk]

1. Köprü kuracağınzı Pdf dosyaları hangi klasör altında? Aşağıdaki kod satırı doğru mudur?

Set ds = CreateObject("Scripting.FileSystemObject").GetFolder(YOL).SubFolders​

2. Kırmızı kısımlarda mı köprü oluşacak sadece? Yoksa kırmızı kısımlar pdf dosya adının ilk 9 karakterini mi belirliyor?

 

[valentino06]

Sayın Ömer Faruk Hocam öncelikle çok teşekkür ederim. Allah kat kat razı olsun inşallah. Hocam bu kodu yol kısmına ortak alan yolunu yazıyorum. Excel de çalışıyor. Ama pdf de hiç denemedim. Hocam sayısal değerlerin de sıfırdan sonra ki değerlere göre oluşturun istiyorum.
Örnek hocam 400003749 bu Excel içinde ki pdf sadece bu karşılık gelen sayısal degeri alsın ve köprüyü olsuştursun. İnşallah anlata bilmişim dir.

 

[ÖmerFaruk]

Benim sorduğum 2 soruya da cevap değil bunlar.

 

[valentino06]

Sayın Ömer Faruk Hocam bu adres doğru ( " Set ds = CreateObject("Scripting.FileSystemObject").GetFolder(YOL).SubFolders ") Hocam 2 sorunuz da evet hocam pdf dosyadının ilk 9 karekteri oluyor. Yalnız 9 karekter den sonra metin yazıyor. örnek: 123456789_abc bilgi formu.pdf
Özet olarak Hocam Excel deki 9 karekter ve pdf deki ilk 9 karektere göre köprü oluştursun istiyorum.

 

[ÖmerFaruk]

Pdf dosyalarınız tek bir klasörde değil mi ki tüm bilgisayarınızda bu dosyları aramaya çalışıyoruz.?

 

[valentino06]

Hocam Pdf'ler tek bir klasör içinde ortak alan içinde de klasör içine koyuyoruz. Sayın Ömer Faruk Hocam eğer daha hızlı bir kod olursa o koda göre düzenleme yapabilirim.

 

[Korhan Ayhan]

İlk 9 karaktere ait dosyayı aşağıdaki satır ile sorgulayabilirsiniz.

dsy = Dir(d & "\" & Left(Target.Text, 9) & "*.*")

 

[valentino06]

Sayın Korhan Ayhan Hocam çok teşekkür ederim. Hocam baştaki sıfırı almasın 0123456789 yazı tipi koyu olan kısma göre köprü oluşturabilir miyiz

 

[Korhan Ayhan]

PDF dosyalarınızın isminde başta sıfırlar var mı?

 

[Korhan Ayhan]

Bu şekilde deneyiniz.

dsy = Dir(d & "\" & IIf(Left(Target.Text, 1) = "0", Mid(Target.Text, 2, 9), Left(Target.Text, 9)) & "*.*")

 

[valentino06]

Sayın Korhan Ayhan Hocam çok teşekkür ederim. Hocam geç cevap verdiğim için özür dilerim. Hocam pdf lerin başında sıfır yok. Hocam yarın iş yerinde denerim ve cevap yazarım.
Hayırlı Akşamlar.

 

[valentino06]

Sayın Korhan Ayhan Hocam çok teşekkür ederim.
saygılarımla,
iyi çalışmalar.