DOSYA İndirmek/Yüklemek için ÜCRETLİ ALTIN ÜYELİK Gereklidir!
Altın Üyelik Hakkında Bilgi
Range("C4") = Range("B4").Hyperlinks.Item(1).Address
Function kopru(rg As Range)
kopru = rg.Hyperlinks.Item(1).Address
End Function
Bir döngüye alarak istediğinz kadar satıra tatbik edebilirsiniz.