Çözüldü ŞEKİLLERE VBA İLE LİNK VERMEK

[black_72]

Merhaba dostlar,
Excel çalışmamda A1 hücresine bir link yerleştirdim ve yanına bir tane "Aç" butonu koydum. Butondan her defasında A1 hücresine yazdığım linki açmasını istiyorum. Örneğin diyelim ki A1 hücresine "https://borsadel.com" linkini yazdım. Butona tıkladığım zaman bu linki açmasını istiyorum. Farklı bir link yazdığım zamanda o linki bana chrome tarayıcısında açmasını istiyorum. Bunu nasıl yapabilirim?

 

[dEdE]

Sayfanın kod bölümüne yazarak dener misiniz?

Private Sub Worksheet_Change(ByVal Target As Range)
    If Intersect(Target, [A1]) Is Nothing Then Exit Sub
    ActiveSheet.Hyperlinks.Add Anchor:=ActiveSheet.Shapes("Dikdörtgen 1"), Address:=[A1].Value
End Sub

 

[black_72]

Hocam kodu yazdım fakat nasıl çalıştıracağım bunu

 

[Korhan Ayhan]

Altenatif;

Kodu butona tanımlayınız.

Sub Link_Open()
    ActiveWorkbook.FollowHyperlink Range("A1").Value
End Sub

 

[black_72]

Altenatif;

Kodu butona tanımlayınız.

Sub Link_Open()
    ActiveWorkbook.FollowHyperlink Range("A1").Value
End Sub

Kod çalıştı , çok teşekkürler

 

[dEdE]

Hocam kodu yazdım fakat nasıl çalıştıracağım bunu

Sayfanın kod bölümüne ekleyip, buton olarak tanımladığınız nesnenin adını Dikdörtgen 1 yazan yere yazmanız yeterli.
Ama Korhan Hocamın çözümü usta işi. Ben olsam onu kullanırdım.

 

[assenucler]

Sayın black_72,

Dosyanızın son halinin linkini paylaşır mısınız?

Önceden teşekkürler.