Düğme ile KÖPRÜ fonksiyonunu çalıştırma

[Tevfik_Kursun]

Merhaba Arkadaşlar,
C2 hücresine koyduğum KÖPRÜ fonksiyonunu makro yardımı ile çalıştırmak istiyorum. Yardımcı olursanız sevinirim.
Saygılarımla

 

[Korhan Ayhan]

Deneyiniz.

Option Explicit

Sub Goto_Hyperlink_Address()
    Dim Rng As Range, X_Address As String
    
    Set Rng = Sayfa1.Range("C2")
    
    If Rng.Hyperlinks.Count > 0 Then
        ThisWorkbook.FollowHyperlink Rng.Hyperlinks(1).Address
    Else
        X_Address = Replace(Replace(Split(Sayfa1.Range("C2").Formula, ",")(0), "=HYPERLINK(", ""), ",", "")
        ThisWorkbook.FollowHyperlink Range(X_Address)
    End If

    Set Rng = Nothing
End Sub

 

[Tevfik_Kursun]

Sayın Korhan Ayhan Hocam,
Çok teşekkür ederim.
X_Address = Replace(Replace(Split(Sayfa1.Range("C2").Formula, ",")(0), "=HYPERLINK(", ""), ",", "")
bu satırda siz C2 hücresindeki formülü tercüme etmiş oldunuz zannediyorum. Buna niçin gerek var, ki?
Saygılarımla

 

[Korhan Ayhan]

Formülle oluşturulmuş köprü için gerekiyor..

 

[Tevfik_Kursun]

Tekrar teşekkür ederim
Saygılarımla