Yatırım Fonları X

[Lemon]

Rpd +3,76
rık +2,76
yas +3,83
mac +2,37

Yas'ı daha fazla beklerdim. Kendim eşit oranda koç iştiraklerine bölsem daha fazla getirirdi gibi.

[yuji]

Rpd +3,76
rık +2,76

Vay bunlar ne yapmış öyle

Bendekilerden belli olanlar:

	tefas	mkk	getiri
GZN	14,81267	14,957344	0,977%
IRF	1,900348	1,932647	1,700%
RPD	3,783609	3,926071	3,765%
RIK	1,44845	1,488352	2,755%

IRFan'a güvenemedim, tefaş'ta bile günde iki defa değişiyor fiyatı : )
GZN vites küçültmüş, kuzeni IPB'nin gerisinde kalmaya başladı

[cennetyolu]

Vay bunlar ne yapmış öyle

Bendekilerden belli olanlar:

	tefas	mkk	getiri
GZN	14,81267	14,957344	0,977%
IRF	1,900348	1,932647	1,700%
RPD	3,783609	3,926071	3,765%
RIK	1,44845	1,488352	2,755%

IRFan'a güvenemedim, tefaş'ta bile günde iki defa değişiyor fiyatı : )
GZN vites küçültmüş, kuzeni IPB'nin gerisinde kalmaya başladı

Borsada yakın dönemde bir düşüş yaşanırsa bu yazdıklarınızdan GZN de pozitif bir ayrışma yaşanabilir. Bu fonun yöneticisiyle daha önce görüştüğümüzde gerekli durumda hisselerin düşüşüne de oynayabiliyoruz demişti. Diğerlerinde böyle bir durum var mı bilmiyorum araştırmak lazım.

[byroltr]

Vay bunlar ne yapmış öyle

Bendekilerden belli olanlar:

	tefas	mkk	getiri
GZN	14,81267	14,957344	0,977%
IRF	1,900348	1,932647	1,700%
RPD	3,783609	3,926071	3,765%
RIK	1,44845	1,488352	2,755%

IRFan'a güvenemedim, tefaş'ta bile günde iki defa değişiyor fiyatı : )
GZN vites küçültmüş, kuzeni IPB'nin gerisinde kalmaya başladı

RPD strateji değiştirmiş gibi.

[yuji]

Vay bunlar ne yapmış öyle

Bendekilerden belli olanlar:

	tefas	mkk	getiri
GZN	14,81267	14,957344	0,977%
IRF	1,900348	1,932647	1,700%
RPD	3,783609	3,926071	3,765%
RIK	1,44845	1,488352	2,755%

IRFan'a güvenemedim, tefaş'ta bile günde iki defa değişiyor fiyatı : )
GZN vites küçültmüş, kuzeni IPB'nin gerisinde kalmaya başladı

IRFan gene aynı hareketi yaptı: bi ara %1.7 göründü tefaş'ta, sonra %3.22'ye güncellendi
R kardeşlerin hepsi güzel getirmiş bugün(RTP,RTH,RPD,RIK)

[myfinans]

IRFan gene aynı hareketi yaptı: bi ara %1.7 göründü tefaş'ta, sonra %3.22'ye güncellendi
R kardeşlerin hepsi güzel getirmiş bugün(RTP,RTH,RPD,RIK)

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.

[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

[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.