Yatırım Fonları X

[yuji]

sn yuji
Hazırladığınız portföy takip excell tablosunu kullanıyorum, çok iş görüyor.
Ama son günlerde fiyat güncellemesini yaparken yarıda bir yerde takılıp kalıyor.
runtime error gibi bir şey çıkıyor.
Galiba tefastan veri çekiminde bir yerde hata oluşuyor.
Siz böyle bir sorun yaşadınızmı, nasıl çözeriz sorunu.
Selamlarımla.

Ben yaşamıyorum hocam
Fonlardan birinin tefaştaki sayfası makrodaki kodun beklediği formatta değildir muhtemelen
Fonların listesini atarsanız denerim ben de, buluruz sorunu

[ersunan]

Aynı sorunu bugün bende yaşadım. 1 gün param boşta kaldı. Acaba hep mi oluyor, bugüne özel bir durum muydu?

Daha önce olduğunu hatırlamıyorum, bundan sonra olur mu orası da belli değil, bugün ufak bir deneme daha yapayım bakalım, yine aynı sorun olursa fonları yavaş yavaş başka bankaya taşırım.

[ersunan]

Bu ara geçecek fon bulamıyorum portföyün yarısı ppf oldu, yerli hisse fonlardan çok az almıştım bist sürekli yükselince takviye de yapamadım, şu an kademeli olarak girilecek en uygun fonlar nelerdir acaba? yabancı hisse fonlar, değerli madenler ve çoklu değişkenleri inceliyorum ama bir karar veremedim, yoksa acele etmeyip beklemek mi daha iyi, bu konuda görüşlerinizi merak ediyorum.

[Kandirildim]

sn yuji
Hazırladığınız portföy takip excell tablosunu kullanıyorum, çok iş görüyor.
Ama son günlerde fiyat güncellemesini yaparken yarıda bir yerde takılıp kalıyor.
runtime error gibi bir şey çıkıyor.
Galiba tefastan veri çekiminde bir yerde hata oluşuyor.
Siz böyle bir sorun yaşadınızmı, nasıl çözeriz sorunu.
Selamlarımla.

Sn myfinans Muhtemelen Selenium ile chrome üzerinden veri çekiyorsunuz.
Olası chrome güncellemelerinde selenium hep sorun çıkarır.
Alttaki kod ile istediğiniz fonların fiyatlarını çekebilirsiniz.
A sütununa istediğiniz fonları yazın, B sütununa yazdığınız fonların o anki tefaşta görünen fiyatlarını çeker.
VBA kısmında alttaki eklemeleri yapmalısınız.

Tools--> Referans
Microsoft XML, V6.0
Microsoft HTML Object Library

Bu 2 eklentiyi işaretleyin

Sub Tefas()
    Dim HTTP As New XMLHTTP60, HTML As New HTMLDocument
    Dim xElement As Object
    Dim sat1 As Long, s1 As Worksheet, fon As String
    Set s1 = Sheets("Sayfa1")
    sat1 = s1.Cells(65536, "A").End(xlUp).row
    For i = 1 To sat1
    URL = "https://www.tefas.gov.tr/FonAnaliz.aspx?FonKod=" & UCase(Range("A" & i).Value)
    HTTP.Open "GET", URL, False
    HTTP.send
    HTML.body.innerHTML = HTTP.responseText
    Set xElement = HTML.getElementsByClassName("top-list")
    Range("b" & i) = Split(xElement(0).innerText, vbLf)(2)
    Next
End Sub

[Lucky Player]

fon yatırımında banga yerine araçı kurum kullanmak daha iyidir diye öyle yapıyorum. nedendir bu ?
fönü sattığında günü geldiğinde 14:30 da takkk diye hesabında... ayriyetten portföyü daha rahat takip edebiliyorsun. ne almışım ne satmışım falan filan şantirifinton.
eskiden 3- 4 sene önce banga kullanıyordum fakat fön alım satımları yöğünlaşınca araçı kuruma margarinledim fön işini...
araçı kürüm seçerkenen havale eft masrafı almayan ya da cüz'i margarinleyenleri araştırırısınız. tabii ki hella sis farları eşliğinde...

[Lucky Player]

Bu ara geçecek fon bulamıyorum portföyün yarısı ppf oldu, yerli hisse fonlardan çok az almıştım bist sürekli yükselince takviye de yapamadım, şu an kademeli olarak girilecek en uygun fonlar nelerdir acaba? yabancı hisse fonlar, değerli madenler ve çoklu değişkenleri inceliyorum ama bir karar veremedim, yoksa acele etmeyip beklemek mi daha iyi, bu konuda görüşlerinizi merak ediyorum.

geçmiş sahifelerin birince cicibicinin iki fönünden bahsetmiştim. bi kurcalayın isterseniz... ayriyetten eyçesbisi'nin fönlárıni da bi kürcalayın , habune ? hepdurdu ...

iş portföyün kahkaha ve 7 numaralısı falan ....

[myfinans]

Ben yaşamıyorum hocam
Fonlardan birinin tefaştaki sayfası makrodaki kodun beklediği formatta değildir muhtemelen
Fonların listesini atarsanız denerim ben de, buluruz sorunu

Sn yuji
Bugün düzeldi, ben genelde saat 18.00'den sonra güncelliyordum.Bugün erken yapayım dedim sorun çıkmadı.
Teşekkür ederim.

[myfinans]

Sn myfinans Muhtemelen Selenium ile chrome üzerinden veri çekiyorsunuz.
Olası chrome güncellemelerinde selenium hep sorun çıkarır.
Alttaki kod ile istediğiniz fonların fiyatlarını çekebilirsiniz.
A sütununa istediğiniz fonları yazın, B sütununa yazdığınız fonların o anki tefaşta görünen fiyatlarını çeker.
VBA kısmında alttaki eklemeleri yapmalısınız.

Tools--> Referans
Microsoft XML, V6.0
Microsoft HTML Object Library

Bu 2 eklentiyi işaretleyin

Sub Tefas()
    Dim HTTP As New XMLHTTP60, HTML As New HTMLDocument
    Dim xElement As Object
    Dim sat1 As Long, s1 As Worksheet, fon As String
    Set s1 = Sheets("Sayfa1")
    sat1 = s1.Cells(65536, "A").End(xlUp).row
    For i = 1 To sat1
    URL = "https://www.tefas.gov.tr/FonAnaliz.aspx?FonKod=" & UCase(Range("A" & i).Value)
    HTTP.Open "GET", URL, False
    HTTP.send
    HTML.body.innerHTML = HTTP.responseText
    Set xElement = HTML.getElementsByClassName("top-list")
    Range("b" & i) = Split(xElement(0).innerText, vbLf)(2)
    Next
End Sub

İlginiz için teşekkür ederim.
Bu tür uygulamalar çok faydalı oluyor. Portföyü takipsiz bırakmamak lazım.