Köprü-Link Yazdırma

[mertdurmaz2]

Merhaba, hücreye bağlanmış köprüyü(linki) yanındaki hücreye text olarak nasıl yazdırabilirim? Şimdiden çok teşekkürler,

 

[Merhum İdris SERDAR]

.

Bir Module'nin içine bu kodları yazın.

Function Formul(hcr As Range) As String

    Formul = hcr.FormulaLocal
    
End Function

=Formul(A1)

gibi kullanın.

.

 

[mertdurmaz2]

görünen texti değil köprüdeki texti nasıl alabilirim?
örnek hücrede "ali" yazıyor ama köprü "www.ali.com"a gidiyor.

 

[Emir Hüseyin Çoban]

. . .

İdris Bey' in kodlarında şu değişiklikleri yaparak deneyiniz.

Formül:

=EĞERHATA(Formul(B16);"Yok")

KTF

Function Formul(hcr As Range) As String
    Formul = hcr.Hyperlinks(1).Address
End Function

. . .

 

[mertdurmaz2]

çok teşekkürler