Dinamik Köprü Hakkında

[petsiye]

Merhaba,

Sorum özetle şu şekildedir.

Elimde aşağıdaki gibi C3 hücresinden başlayan 2000 satırlık bir sembol listesi var ( Hisse senetlerinin kısa kodlarının olduğu liste ). Ve yine elimde https://tr.tradingview.com/chart/?symbol= şeklinde bir link var. Bu linkin sonuna https://tr.tradingview.com/chart/?symbol=ACSEL yazıldığında, treadingview sitesi üzerinde ACSEL hissesine ait fiyat grafiği açılmakta. Aşağıdaki satırlara tıkladığımda, dinamik bir şekilde, ilgili Hisse senedine ait grafik ekranının Treaindgview sitesindeki grafiğinin açılmasını sağlayacak bir dinamik köprü oluşturmanın yolu var mıdır ?

Yardım ve desteğiniz için şimdiden teşekkür ederim.

Saygılarımla

 

[ÖmerBey]

Merhaba,
Deneyiniz...

=KÖPRÜ("https://tr.tradingview.com/chart/?symbol="&C3;C3&" grafiği için tıklayınız.")

 

[petsiye]

Merhaba,

Süper hızlı cevabınız için çok teşekkür ederim.

Fakat ben bu formülü yeni bir hücreye değil, ilgili sembolün üzerine tıklandığında açılacak şekilde nasıl yapabilirim. ( Bu formül çalışıyor bu arada )

 

[ÖmerBey]

Maalesef makro istediğinizi sonradan fark ettim, aşağıdaki kodu deneyiniz.

Sub Kod()
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

 

[petsiye]

Nokta atışı bir çözüm.

Çok çok teşekkür ederim.

Saygılarımla

 

[ÖmerBey]

Rica ederim,
İyi çalışmalar...

 

[petsiye]

Konu ile ilgili bir sorum daha var lütfen kusuruma bakmayınız,

"https://tr.tradingview.com/chart/?symbol=ACSEL/XU100"

Bu yazdığım halini bir türlü kodlayamadım. Yani, hisse senedinin Sembol' ün sonuna " /XU100 " ifadesini nasıl eklerim acaba ? ( Bölme işareti ile birlikte XU100 şeklinde yani )

 

[sbayyigit]

Cells(a, "C").Hyperlinks.Add Cells(a, "C"), "https://tr.tradingview.com/chart/?symbol=" & Cells(a, "C").Text & " /XU100 " şeklinde denediniz mi?

 

[petsiye]

Cells(a, "C").Hyperlinks.Add Cells(a, "C"), "https://tr.tradingview.com/chart/?symbol=" & Cells(a, "C").Text & " /XU100 " şeklinde denediniz mi?

Denedim ve oldu..

Yardım ve desteğiniz için Çok teşekkür ederim