Köprü hk.

[valentino06]

Sayın Excel hocalarım aşağıdaki kodda revizyon yapılabilir mi lütfen yardımcı olabilir misiniz. Aşağıdaki kodu normalde çift tıklayarak köprü oluşturuyor. Örnek "111111" bu şekilde olduğunda gösteriyor. benim yapmak istediğimse hücre içindeki veri "111111.xlsb " olduğunda köprü oluşturmuyor. Yardımlarınızdan dolayı çok teşekkür ederim.
Saygılarımla,
İyi çalışmalar.

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Intersect(Target, Range("D4:D" & Rows.Count)) Is Nothing Then Exit Sub
yol = "\"
dosya = Dir(yol, vbNormal): kontrol = False
Do While "" <> dosya
hcr = yol & Target.Text
dsy = yol & Split(dosya, ".")(0)
If dsy = hcr Then
Target.Hyperlinks.Delete
Target.Hyperlinks.Add Target, yol & dosya
kontrol = True
Target.Offset(1, 0).Select
End If
dosya = Dir
Loop



If kontrol = False Then MsgBox yol & " dizininde " & Target.Text & " dosyasi bulunamadi."





End Sub

 

[valentino06]

Arkadaşlar lütfen yardımcı olabilir misiniz.

 

[Korhan Ayhan]

Bu satırı;

hcr = yol & Target.Text

Aşağıdaki gibi değiştirip deneyiniz.

hcr = yol & Split(Target.Text, ".")(0)

 

[valentino06]

Sayın Korhan Ayhan Hocam çok teşekkür ederim. Allah kat kat razı olsun. İnşallah.

Saygılarımla,
İyi çalışmalar.