TextBox içine Köprü Atamak

[petsiye]

Merhaba

Aşağıdaki kod yardımıyla, Excel tablosu içinde Hücre içindeki ifadenin Son kısmına, Hücre içindeki ifadeyi de ekleyerek, Hücreye tıklandığı zaman, Web Browser üzerinden ilgili sitede ( Tradingwiev WEb sitesi ), İlgili sembolun Teknik analiz Grafiği açılıyor.

Bunun Aynısını Userform'da bulunan TextBox'a uyarlamak acaba mümkünmüdür ? Yani Userformda bulunan 24 ayrı TextBox içindeki ifadeyi de, aşağıdaki kodun sonuna otomatik eklenmesi, ve sonuçta da, TextBox üzerine tıklandığında da ilgili Web sitesinin Sembol Grafiğinin açılması mümkün müdür ?

Tekrar çok Teşekkür ederim.


Sub KOPRU()

Application.ScreenUpdating = False

For a = 3 To Cells(Rows.Count, "C").End(3).Row
Cells(a, "C").Hyperlinks.Add Cells(a, "C"), "https://tr.tradingview.com/chart/?symbol=" & Cells(a, "C").Text
Next

End Sub

 

[ÖmerBey]

Merhaba,
A1 ifadesini boş bir hücreye uyarlayıp deneyiniz...

Private Sub TextBox1_DblClick(ByVal Cancel As MSForms.ReturnBoolean)
With Range("A1")
    .Hyperlinks.Add Range("A1"), "https://tr.tradingview.com/chart/?symbol=" & TextBox1.Text
    .Hyperlinks(1).Follow
    .Clear
End With
End Sub

Ben Textbox'ın çift tıklama olayının uygun olacağını düşündüm ama siz dilerseniz farklı olaylarda da kullanabilirsiniz.

 

[petsiye]

Merhaba,
A1 ifadesini boş bir hücreye uyarlayıp deneyiniz...

Private Sub TextBox1_DblClick(ByVal Cancel As MSForms.ReturnBoolean)
With Range("A1")
    .Hyperlinks.Add Range("A1"), "https://tr.tradingview.com/chart/?symbol=" & TextBox1.Text
    .Hyperlinks(1).Follow
    .Clear
End With
End Sub

Ben Textbox'ın çift tıklama olayının uygun olacağını düşündüm ama siz dilerseniz farklı olaylarda da kullanabilirsiniz.

Çok TEşekkür ederim Sayın @ÖmerBey . Tek Click olmuyormu acaba ? Ama bu da işimi görüyor

 

[ÖmerBey]

Rica ederim,
Tek tık için kodları MouseUp veya MouseDown olayının içine yazınız. Ancak bu durumda TextBox boşken içine girmek istediğinizde de kodlar çalışacağı için if sorgusuyla kontrol eklemeniz gerekebilir.
İyi çalışmalar...

 

[petsiye]

Bu mantıkla ilk mesajınızdaki kod çok daha sağlıklı görünüyor. Tekrar Çok Teşekkür ederim Ömer Bey