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]
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?
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.