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
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]
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
[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]
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
Sizlere daha iyi bir deneyim sunabilmek icin sitemizde çerez konumlandırmaktayız, web sitemizi kullanmaya devam ettiğinizde çerezler ile toplanan kişisel verileriniz Veri Politikamız / Bilgilendirmelerimizde belirtilen amaçlar ve yöntemlerle mevzuatına uygun olarak kullanılacaktır.