URL adresinin (Köprünün) hücreye yazdırılması.

[nailsavas]

Merhaba benim amacım

Hücrede atıfta bulunan linkin (köprünün ) tam url 'sinin hücreye yazılması hk
Lütfen ekli dosyayı inceleyiniz.

cevaplarınızı bekliyorum.

soruma kafa yoran tüm arkadaşlara teşekkür ederim...

 

[nailsavas]

Babalar neredesiniz valla şaşırdım forumda en fazla 45 dk da tatminkar cevap alırdım.

 

[Ferhat Pazarçevirdi]

Merhabalar

Bu kodu çalıştırdığınızda, istediğiniz şey gerçekleşir.

Range("C4") = Range("B4").Hyperlinks.Item(1).Address

Bir döngüye alarak istediğinz kadar satıra tatbik edebilirsiniz.

 

[Recep İpek]

Kusura bakmayın.Bu sefer zor bir soru sordunuz.

Biraz araştırmamız gerekiyor...

Edit:Cevap gelmiş bile...

 

[Ferhat Pazarçevirdi]

Pardon, Burası Fonksiyonlar bölümüymüş

Aşağıdaki KTF işinizi görür.

Function kopru(rg As Range)
kopru = rg.Hyperlinks.Item(1).Address
End Function

 

[Recep İpek]

Bir döngüye alarak istediğinz kadar satıra tatbik edebilirsiniz.

Veya kullanıcı tanımlı fonksiyon (KTF) haline de getirebilirsiniz.

Edit:Yine geç kaldım...

 

[Ferhat Pazarçevirdi]

Aman Ripek Hocam, sizin aklınıza gelmemiştir hemen ... Saygılar

 

[nailsavas]

Babalar ellerinize sağlık ancak bugun bakabildim. sonsuz saygılar sizin için sıradan benim için çok önemli bir konu idi....