Otomatik Köprü Mümkün mü ?

[cratos35]

Çalıştığım tabloda kendim tek tek köprü atıyorum bunu hızlı bir şekilde yapmak mümkün mü acaba?

biraz daha açmak gerekirse

tablo içinde yeni oluşturduğum excelin numarasını yazıyorum tabloya aynı zamanda köprü atıyorum. yeni bir numara yazdığımda yada var olan numaralara excel kendisi köprü oluştırabilir mi ?

araştırdım fakat detay bulamadım,

http://dosya.altervista.org/download.php?file=8c33c2a6aa84fd13490a6236cd2f97e1

 

[ÖmerBey]

Linklerinizi çözebildiğim kadarıyla birşeyler yaptım ama umarım bir standartı vardır. Aşağıdaki kodu deneyiniz.
Önce ilgili alanı seçip sonra kodu çalıştırınız, seçtiğiniz alandaki dolu hücrelere köprü ekler.

Sub Köprü_Ekle()
For Each hcr In Selection
    If hcr.Text <> "" Then
        nu = Split(hcr.Text, "-")(1)
        If InStr(nu, " ") > 0 Then
            nu1 = Format(Split(nu, " ")(0), "00000")
            If Split(nu, " ")(1) = "B" Then nu2 = "B" Else nu2 = "A"
        Else
            nu1 = Format(nu, "00000")
            nu2 = "A"
        End If
    
        ActiveSheet.Hyperlinks.Add Anchor:=hcr, Address:="\\fileserv\Project-59$\DCC\8-IR\CU\IN\EXW-P059-0000-CU-TEK-IR-" & nu1 & " REV." & nu2 & " IN.pdf"
    End If
    nu = Empty
    nu1 = Empty
    nu2 = Empty
Next
End Sub

 

[cratos35]

ne kadar dua etsem azdir cok tesekkur ederim mukemmel calisiyor.

 

[mrtyzc]

excel 2016 kullanıyorum.
alt sheetlere tıkladığında view code kısmından açılan sayfaya sizin kodunuzu ekliyorum fakat çalıştıramıyorum