Hücre içindeki adresi köprü yapmak

[yesilsy]

Merhaba,

Hücre içinde yazan linkleri yine aynı hücre içinde köprü kurmam gerekli. Bazı hücredeki adres ile köprü kurulan link farklı olabiliyor. Geçen hafta forumda bir konuda çözüm vardı ama bugün bulamadım o konuyu.

Kod çalışırken köprü ne varsa kaldırmalı ve hücre içindeki yazan linki aynı hücreye köprü yapmalı. Kod sadece Z sütununda çalışmalı.
(Örnek Z6 hücresinde https://www.excel.web.tr/ yazmakta ama tıklayınca farklı adres çıkmaktadır.)

Kod için yardımınızı rica ederim. asıl çalışmamla aynı formatta örneği ekledim alttaki linke.

LINK.xlsb dosyasını indir - download

LINK.xlsb dosyasını indir, download. Dosya.tc .Dosya Upload. Dosya Paylaş. Dosya Yükle

www.dosya.tc

 

[ÖmerFaruk]

Deneyin lütfen

Sub Köprü()
Range("Z:Z").Hyperlinks.Delete
For i = 1 To 10 'İlk ve Son Satır numaralarınızı yazabilirsiniz
     ActiveSheet.Hyperlinks.Add Anchor:=Range("Z" & i), Address:=Range("Z" & i), TextToDisplay:=Range("Z" & i).Text
Next i
End Sub

 

[yesilsy]

Hocam çok teşekkür ederim,

Örnekte denedim sorun yok, asıl çalışmamda deneyeceğim.

Aralık yazabilirsiniz dediğiniz yeri nasıl yapabilirim, hiç kod bilgim yok. Örnek Z6:Z150 arası işlem yapılacak olsa kod nasıl olmalı

Deneyin lütfen

Sub Köprü()
Range("Z:Z").Hyperlinks.Delete
For i = 1 To 10 'İlk ve Son Satır numaralarınızı yazabilirsiniz
     ActiveSheet.Hyperlinks.Add Anchor:=Range("Z" & i), Address:=Range("Z" & i), TextToDisplay:=Range("Z" & i).Text
Next i
End Sub

 

[ÖmerFaruk]

For i=6 to 150 olarak düzetin.

 

[ismailavci76]

For i = 1 To 10 yazan yere 6 To 150 deneyin

 

[yesilsy]

@NextLevel , @ismailavci76

Çok teşekkür ederim