Soru Kapalı Köprülü Linki Sutuna Yazdırma

[can-can]

Merhaba hocalarım yardımınızı bekliyorum belki çok basit bir şeydir çok uğraştım araştırdım bir türlü yapamadım yardımcı olur musunuz?
Sorun şu bende youtube playlist linkleri var ama kapalı mp4 şeklinde çıkıyor. Bana sırasıyla o mp4 yazan gizli linki açığa çıkaracak formul,vba, çözüm ne olursa yardımlarınızı bekliyorum .Sağ olun Çok Teşekkürler...

ÖRNEK:
http://dosya.co/d6ofsf1glgkv/YARDIM..xlsx.html

 

[Haluk]

Sub Test()
    NoB = Range("B" & Rows.Count).End(xlUp).Row
    For i = 1 To NoB
        Range("C" & i) = Range("B" & i).Hyperlinks.Item(1).Address
    Next
End Sub

.

 

[Muzaffer Ali]

Merhaba.
Alternatif olarak şunu da yapabilirsiniz.

Aşağıdaki kodu bir Module kopyalayın.

Function Kpr(Hucre As Range) As String
    Kpr = Hucre.Hyperlinks.Item(1).Address
End Function

Köprü adresini yazmak istediğiniz hücreye aşağıdaki formülü yazınız.
Köprülü hücrenin A1 olduğunu var sayarsak.

=kpr("A1")

 

[can-can]

Sub Test()
    NoB = Range("B" & Rows.Count).End(xlUp).Row
    For i = 1 To NoB
        Range("C" & i) = Range("B" & i).Hyperlinks.Item(1).Address
    Next
End Sub

.

Merhaba.
Alternatif olarak şunu da yapabilirsiniz.

Aşağıdaki kodu bir Module kopyalayın.

Function Kpr(Hucre As Range) As String
    Kpr = Hucre.Hyperlinks.Item(1).Address
End Function

Köprü adresini yazmak istediğiniz hücreye aşağıdaki formülü yazınız.
Köprülü hücrenin A1 olduğunu var sayarsak.

=kpr("A1")

ÇOK TEŞEKKÜR EDERİM. SAĞ OLUN.