Hücrelere otomatik köprü oluşturma

[scorpix]

Yapmak istediğim A stununda yazılı olan kodlarla aynı adı taşıyan c:\urunler\ klasöründeki Jpg dosyasını açabilmek için D stununa köprü oluşturmak ancak tek tek yapmak çok zaman alıyor. Bunu nasıl halledebiliriz.

örnek dosya ektedir.

 

[ozgretmen]

Aşağıdaki kodu dener misin ?

Sub basla()
For i = 2 To [A65536].End(3).Row
Range("D" & i).Select
Selection.Hyperlinks.Add Anchor:=Selection, Address:="c:/urunler/" & Cells(i, "A") & ".jpg", _
TextToDisplay:="Resim"
Next i
End Sub

 

[scorpix]

Sn. ozgretmen
Tam olarak istediğim buydu çok teşekkürler

 

[ozgretmen]

Sn. ozgretmen
Tam olarak istediğim buydu çok teşekkürler

Rica ederim.
İyi çalışmalar.:mutlu:

 

[Bagcivan]

Yıllar önce görmüştüm konuyu. Bugün işim düştü. Teşekkürler.

 

[thsn00]

Peki bu C/Urunler İçinde Alt Klasör Olması Durumda Alternatif Kod Varmıdır ?