Hücre değerinden pdf dosyasına link olusturma

[uygaroz]

Forumda Köprü konusunda araştırma yaptım ama tam olarak istediğime ulaşamadım.

Teklif numarasından belirtilen klasor deki dosyaya link olusturmak için yardımlarınızı rica ediyorum.

simdiden teşekkürler.
Uygar

 

[Ömer]

Merhaba,

Revize edildiğini nasıl anlamamız gerekiyor. Bu kısmı daha detaylı açıklar mısınız.

 

[uygaroz]

Ömer bey
Revize edildiğinde teklif numarasını manuel olarak değistiriyorum.
Esasinda teklif numarasını da otomatik yapmak istiyorum fakat henüz yapamadım
Teklif = "Yıl" & "Ay"& "Gün" ve teklif için "T" harfi ve kaçıncı teklifse o sayidan olusuyor.

130207T3 = 7 SUBAT 2013 tarihinde verilen üçüncü teklif gibi.
Uygar

 

[uygaroz]

Ömer Bey
eğer sizin farklı bir çözümünüz olacaksa. Teklif revize edildiğinde teklif numarasını da değiştirebilirim, yada sizin tavsiye edeceğiniz şekilde başka bir yolda izleyebilirim.

 

[Ömer]

Teklif revize olayını anlarsam otomatik te yapılabilir fakat ben anlamadım. Yada açıklamanız ile dosyadaki veriler tutarsız.

Yeni bir dosya ekleyerek revize bölümünü dosya içerisinde detaylı açıklarmısınız.

 

[uygaroz]

Ömer Bey
Revize edilen teklifle ilgili açıklamayı dosyaya ekledim.
fakat revize kısmını yok sayabiliriz.
Sadece teklif numarasına göre belirtilen klasörün içerisinden ilgili dosyayı bulup açması fazlasıyla işimi görecektir.
Uygar

 

[uygaroz]

Ömer bey
bakma sansınız oldumu acaba?
tesekkurler
Uygar

 

[Ömer]

Merhaba,

Kusura bakmayın konuyu atlamışım.

Bu şekilde deneyin.

Sub Kopru()
 
    Dim d As Object, yol As String, i As Long, deg
    
    Sheets("Teklif").Select
        
    yol = "C:\Users\uygaroz\Documents\İhracat\. Teklifler 2013\. Teklifler\"
    Set d = CreateObject("Scripting.Dictionary")
    
    Cells.Hyperlinks.Delete
 
    For i = 3 To Cells(Rows.Count, "E").End(xlUp).Row
        deg = Cells(i, "C") & "|" & Cells(i, "E")
        If Not d.exists(deg) Then
            d.Add deg, Nothing
            ActiveSheet.Hyperlinks.Add Anchor:=Cells(i, "E"), _
                Address:=yol & Cells(i, "E") & " - " & Cells(i, "C") & ".pdf"
        End If
    Next i
 
End Sub

.

 

[uygaroz]

Ömer Bey
teşekkür ederim ama sadece Ispati.pdf ye yonelik calısyor galiba

 

[Ömer]

Haklısınız yanlış anlamışım. #8 numaralı mesajdaki kodları düzelttim.

 

[uygaroz]

Ömer bey yardımlarınız için tesekkur ederim
teklif numarası ile firma ismini birleştirip kopru yapıyor galiba.
size çok yük oldum ama sadece belirtilen klasor içerisinde teklif numarasını arayıp en yakın dosyayı acması icin ne yapmam gerek