Excel köprü linklerini yan satırına nasıl yazdırabilirim

[doganayfidaan]

Merhaba,
Ekteki resimde a sutununda bağlantı linkleri var.Bu sayfayı bir facebook grubundan çektim.Fakat bana linkleri lazım.Bu linkleri nasıl bulabilirim.9000 bin küsür isim var.Linkleri direkt b sutuna aynı hizaya yazdırabilir miyim?
Saygılarımla.

 

[dEdE]

Buraya bakmak lazım.

 

[doganayfidaan]

Hocam,o dosya cok buyuk diye sikayet geldi yukliyemiyorum o yuzden.Ozelden iletsem sorun olur mu?

 

[doganayfidaan]

Buraya bakmak lazım.

Sanirim cevap o konuda var incelemekteyim.

 

[Levent Menteşoğlu]

Aşağıdaki kodu deneyin.

Sub linkleri_yaz()

For a = 1 To Cells(Rows.Count, "A").End(3).Row

Cells(a, "B") = Cells(a, "A").Hyperlinks(1).SubAddress

Next

End Sub

 

[doganayfidaan]

Aşağıdaki kodu deneyin.

Sub linkleri_yaz()

For a = 1 To Cells(Rows.Count, "A").End(3).Row

Cells(a, "B") = Cells(a, "A").Hyperlinks(1).SubAddress

Next

End Sub

Çok sağ olun hocam.Çok teşekkür ederim.