Bir hücreye çift tıklandığında farklı hücredeki linkin tetiklenmesi

[Tevfik_Kursun]

Merhaba Arkadaşlar,
B1 hücresine çift tıklandığında makro çalışıyor. Çalışan makro J1 hücresine link hazırlıyor. Makro çıkışında J1 deki Link nasıl tetiklenir ?
Saygılarımla

 

[muhasebeciyiz]

Sub Çalıştır()
' ... (Makronuzun diğer kodlarını buraya yazınız )

Application.FollowHyperlink Range("J1").Hyperlinks(1).Address' Bu yöntem, J1 hücresindeki tek bir hiperlinke tıklanmasını sağlar.
' ShellExecute vbApp, vbNormal, Range("J1").Text 'Bu yöntem, J1 hücresindeki bağlantıyı varsayılan tarayıcınızda yeni bir pencerede açar.
End Sub

Denermisiniz

 

[Tevfik_Kursun]

Merhaba Arkadaşım,
İlginize teşekkür ederim. Ancak her ikisi de hata verdi.
Saygılarımla

 

[Tevfik_Kursun]

Herkesin ilgisine teşekkür ederim

Sub Link_Tetikle()
    Range("D1").Select
    Selection.Hyperlinks(1).Follow NewWindow:=False, AddHistory:=True
End Sub

D1 hücresindeki Link çağırılabiliyor. ChatGBT ile çözdüm
Saygılarımla