internet linki olan hücreleri bul

[kykbt]

Arkadaşlar Merhaba

Excell sayfasında B sutununda bazı hücrelerde internet linkleri var.
Ben bu linklerin olduğu hücrelerin yanına yani C sutununa linkin olduğuna dair bir işaret koymak veya sayı no koymak istiyorum.

Yardımlarınmız için şimdiden teşekkür ediyorum.:redface:

 

[Necdet]

Merhaba,

Aşağıdaki kodları deneyiniz. C sütununa linkin adresini yazar.

Sub LinkBul()

    Dim i   As Long
    
    Application.ScreenUpdating = False
    
    For i = 2 To Cells(Rows.Count, "B").End(3).Row
        If Range("B" & i).Hyperlinks.Count > 0 Then Range("C" & i) = Range("B" & i).Hyperlinks(1).Address
    Next i
    
    Application.ScreenUpdating = True
    
End Sub

 

[kykbt]

Teşekkür

Nejdet hocam çok çok teşekkür ediyorum.... :mutlu:

 

[Necdet]

Güle güle kullanınız.