Hücrede ki link adresini ve adını linkten ayırmak

[irfancantr]

Hücrede ki link adresini ve adını linkten ayırmak [Çözüldü]

Merhaba değerli forum üyeleri,

Bir web sitesinden bir link kopyalıyorum ve hücreye yapıştır dediğimde:
Örneğin;
Makro-VBA
gibi hücrede görünüyor.Fakat ben bu A1:A2000 hücrelerinde ki web adreslerini
B sütununa link ismini "Makro-VBA"
C sütununa da url adresinin "http://www.excel.web.tr/f48/" yazılmasını nasıl sağlayabilirim?

Ekte daha rahat anlayabileceğinizi umuyorum.

 

[security]

araçlar/ otomatik düzeltme seçenekleri / yazarken otomatik biçimlendir /inteernet ve ag yollarını çalışırken uygula sekmesindeki tiki kaldırın ...

 

[irfancantr]

araçlar/ otomatik düzeltme seçenekleri / yazarken otomatik biçimlendir /inteernet ve ag yollarını çalışırken uygula sekmesindeki tiki kaldırın ...

Teşekkürler sayın security , lakin benim hem link adresine ihtiyacım var hemde link ismine, sizin dediğiniz yöntemi 2007 excel de denedim ama onun da verimini tam alamadım.

 

[Ömer]

Teşekkürler sayın security , lakin benim hem link adresine ihtiyacım var hemde link ismine, sizin dediğiniz yöntemi 2007 excel de denedim ama onun da verimini tam alamadım.

Merhaba,

Bu şekilde deneyin.

Sub Listele()
    
    Dim i As Long
    
    Range("B8:C" & Rows.Count).ClearContents
    
    For i = 8 To Cells(Rows.Count, "A").End(xlUp).Row
        Cells(i, "B") = Cells(i, "A").Value
        Cells(i, "C") = Cells(i, "A").Hyperlinks(1).Address
    Next i
    
End Sub

.

 

[irfancantr]

Merhaba,

Bu şekilde deneyin.

Sub Listele()
    
    Dim i As Long
    
    Range("B8:C" & Rows.Count).ClearContents
    
    For i = 8 To Cells(Rows.Count, "A").End(xlUp).Row
        Cells(i, "B") = Cells(i, "A").Value
        Cells(i, "C") = Cells(i, "A").Hyperlinks(1).Address
    Next i
    
End Sub

.

Ömer hocam zekana sağlık, çok minnettar oldum.

 

[Ömer]

Teşekkürler. Güle güle kullanın.