köprüyü hücreye kopyalama

[ahsamtis]

İhtiyacım olan köprü düzenle penceresi açıldığında altta yazan adresin görüntülenecek metin kısmında da yazması ve bunu otomatik olarak tüm A veya B sütunundaki köprülü hücrelerde yapabilmesi. Şimdiden teşekkür ederim.

 

[ozgretmen]

Aşağıdaki kodu dener misin ?

Sub dene()
On Error Resume Next
For i = 1 To [B65536].End(3).Row
Range("B" & i).Select
Selection.Hyperlinks(1).TextToDisplay = Selection.Hyperlinks(1).Address
Next i
End Sub

 

[ahsamtis]

cok ama cok tesekkur ederim calisiyor.