Bir Hücreden Köprü linkini yada adresini nasıl alabilirim ?

[tanisdirbali]

Merhaba arkadaşlar.
Bir forumdan kopyala yapıştır yoluyla aldığım uzunca bir listem var. Bu listeyi excele yapıştırdığımda satırlardaki metinler, üzerine tıklanabilir köprü olarak geliyor ve o metnin üzerine tıklandığında o adrese gidiyor.
Örneğin: A1 hücresinde AKBANK yazıyor ve tıkladığımda "www.akbank..." adresine gidiyor.
Köprü işlevi ile her satırın içindeki internet adresini url olarak görebiliyorum. Ancak Liste çok uzun olduğu için bunları tek tek içine girip kopyala yapıştır yapması çok zaman alacak.
Benim ihtiyacım olan A sutunundaki metinlerin içindeki köprü adreslerini ("http://www..." şeklinde) B sutununa alabilecek bir formül yada makro.

Kullandığım Excel sürümü 2003.

Excel 2003 yada daha yeni sürümler ile bu işlemin yapılması mümkünmüdür acaba ? Yardımcı olabilecek arkadaşlara şimdiden Teşekkür ederim.

 

[tanisdirbali]

Tekrardan merhabalar.
Sorunum Kullanıcı tanımlı Fonksiyon ile çözdü.
Sayaadan visual basic düzenleyicisini açıp yeni modül ekledim. İçine aşağıdaki kodları yapıştırdım.
function URL(rg as range) as string
dim Hyper as hyperlink
Set Hyper = rg.Hyperlinks.Item(1)
URL = hyper.address
end function

=URL(A1) şeklinde formül yazınca adresi alabiliyorum.

Yalnız Modül sadece eklediğim çalışma kitabında çalışıyor. Tüm çalışma kitaplarında bu fonksiyonu kullanabilmem için ne yapmam gerekir acaba ?