Hücre içindeki değeri linklemek

[tahh_74]

Merhaba,

I sütununda bulunan texti c:\deneme\resimler altında arayacak ve ilgili dosya ismini bulunca mesela deneme.bmp ona link verecek bir projeyi bir türlü gerçekleştiremedim. yardımlarınızı rica ederim

şimdiden teşekkürler

 

[tahh_74]

Yardım edebilecek arkdaşlar lütfen yardımcı olunuz şimdiden teşekkürler

Ahmet

 

[Levent Menteşoğlu]

Aşağıdaki kodu sayfanın kod sayfasına kopyalayarak deneyin. Eğer dosya mevcutsa A1 hücresimde link oluşturacaktır.

[vb:1:c699b646a7]Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, [i:i]) Is Nothing Or Target = 0 Then Exit Sub
dosya = CreateObject("Scripting.FileSystemObject").FileExists("C:\deneme\resimler\" & Target & ".bmp")
If dosya = True Then
ActiveSheet.Hyperlinks.Add Anchor:=[a1], Address:="C:\deneme\resimler\" & Target & ".bmp", TextToDisplay:="deneme.bmp"
Else
MsgBox "DOSYA BULUNAMADI"
End If
End Sub
[/vb:1:c699b646a7]

 

[tahh_74]

sayın leventm öncelikle cevabınız için size gerçekten çok teşekkür ederim.
istediğime çok yakın olmuş.Bu kodları şu şekilde geliştirmede bana yardımcı olabilirseniz sevinirim. I stünuna yazılı textleri bir butona basınca yukarıdaki örnekteki gibi linklemesi ama bu linklemeleri yine aynı hücrelere yazmalarını istiyorum Yardımlarınız için şimdiden teşekkürler

Ahmet

 

[Levent Menteşoğlu]

Aşağıdaki kodu deneyin.

[vb:1:fd4e9725f7]Sub linkver()
For a = 1 To [i65536].End(3).Row
ara = Cells(a, "i")
dosya = CreateObject("Scripting.FileSystemObject").FileExists("C:\deneme\resimler\" & ara & ".bmp")
If dosya = True Then ActiveSheet.Hyperlinks.Add Anchor:=Cells(a, "i"), Address:="C:\deneme\resimler\" & ara & ".bmp", TextToDisplay:=ara & ".bmp"
Next
End Sub[/vb:1:fd4e9725f7]

 

[tahh_74]

teşekkürler tam istediğim gibi oldu elinize emeğinize sağlık
Ahmet

 

[tahh_74]

yukarıdaki linkleme kusursuz çalışıyordu ama güvenlik paketi yükledikten sonra For a = 1 To [i65536].End(3).Row satırındaki a değerini compiler edemedim diye hata vermeye başladı.Linkleme için başka yöntem var mı acaba
teşekkürler

 

[Levent Menteşoğlu]

Bu muhtemelen "i" harfinden kaynaklanıyor. [i65536].End(3).Row yerine aşağıdaki gibi kullanın.


cells(65536,9).end(3).row

 

[tahh_74]

denedim ama malesef aynı hatayı veriyor.I sütununu değil de başka sütunda kullansam yine aynı hata devam ediyor.

 

[Levent Menteşoğlu]

kod içindeki tüm Cells(a, "i") şeklindeki hücre tanımlamasındaki "i" harflerinide 9 rakamı ile değiştirin.