Hyperlink adresini diğer bir hücreye yazdırmak

[paybux]

Merhaba,

İçeresinde Hyperlink olan bir hücrenin hedef adresini yanındaki hücreye yazdırmak istiyorum

Listem oldukça uzun

Bunu nasıl gerçekleştirebilirim?

Yardımınıza teşekkürler

 

[Levent Menteşoğlu]

Hyperlinklerin A sütununda olduğunu farz edersek aşağıdaki kodu deneyin.

[vb:1:1d49fe3a3b]Sub hyperlinkadres()
For a = 1 To Cells(65536, 1).End(xlUp).Row
Cells(a, 2) = Cells(a, 1).Hyperlinks(1).SubAddress
Next
End Sub
[/vb:1:1d49fe3a3b]

 

[hsayar]

bende olmadı hocam
tüm hücrelerin değeri Siyasi partiler ve a sütununda
linkleri ise hepsinin farklı ve b sütununa yazmöak istiyorum?