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
Printable View
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.
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
Kod: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
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...