URL'yi hücreye yazdırmak

[nailsavas]

Merhaba benim sorunun şu excel'de link atılmış bir hücrenin hangi linki gösteriyorsa onu bir sağdaki hücreye yazmasını istiyorum. Lütfen ekli dosyayı inceleyiniz ve örneğe dikkat ediniz. İlgilenen tüm arkadaşlarıma şimdiden teşekkürlerimi sunarım.

 

[Merhum İdris SERDAR]

.

Bu kodları deneyin.

Sub URLadresi()
    Dim shp As Shape
    Dim metin As String
    

    For Each shp In ActiveSheet.Shapes
        metin = ""
        On Error Resume Next
        metin = shp.Hyperlink.Address
        On Error GoTo 0
        If metin <> "" Then
       shp.TopLeftCell.Value = metin
           
        End If
        
    Next
    
    Columns("A:A").Copy
    Range("B1").PasteSpecial Paste:=xlPasteValues
    Columns("A:A").Clear
    Range("A1").Select
    
End Sub

.

 

[nailsavas]

Teşekkür

Çok baba adamsın bunu da çözdün. Ellerine sağlık