Değişken link nasıl verilir?

[Tevfik_Kursun]

Merhaba Arkadaşlar,
Ekli dosyada Bilgi sayfasına girilenler, Goster sayfasında ekrana getiriliyor.
K kolonuna gelen ve yerleri de gösteren ifadelere "link" özelliği verilemez mi?
İlgilenen arkadaşlara şimdiden teşekkür ederim.
Saygılarımla
Tevfik Kurşun
Office 2010

 

[Emir Hüseyin Çoban]

. . .

Kodları çalıştırdığınızda K sütunundaki linklere, köprü özelliği ekleyecektir.

Sub KOD()
    Application.ScreenUpdating = False
    Range("K:K").Hyperlinks.Delete
    For i = 1 To [K65536].End(3).Row
        If IsError(Cells(i, "K")) = False Then
            If Cells(i, "K") <> "" Then
                ActiveSheet.Hyperlinks.Add Anchor:=Cells(i, "K"), Address:=Cells(i, "K")
            End If
        End If
    Next i
    Application.ScreenUpdating = True
    MsgBox "B i t t i "
End Sub

. . .

 

[Tevfik_Kursun]

Sayın Hüseyin Çoban Hocam,
Teşekkür ederim, çok makbule geçti. Hemen kullanacağım.
Ama aklıma gelen şu soruyu da sormadan geçemeyeceğim.
Acaba bu çalışma makrosuz yapılabilir miydi?
Hepinizin eline, fikrine, zihnine sağlık. Tekrar teşekkür ediyorum.
Saygılarımla
Tevfik Kurşun

 

[Emir Hüseyin Çoban]

. . .

Köprü formülünü deneyiniz.
KÖPRÜ(bağ_konumu, [yakın_ad])

K6 hücresi için formül. Mevcut formüllerinizi KÖPRÜ formülü içene alınız.

=KÖPRÜ(EĞER(DÜŞEYARA($C$6;Bilgi!$B$6:$R$15;11;YANLIŞ)="";"";DÜŞEYARA($C$6;Bilgi!$B$6:$R$15;11;YANLIŞ)))

. . .

 

[Tevfik_Kursun]

Sayın Hüseyin Hocam,
İşte bu süper oldu. Muhteşemsiniz. Makroya mahkum olmamak çok güzel.
Çok teşekkürler.
Saygılarımla
Tevfik Kurşun