mekist
Altın Üye
- Katılım
- 13 Ağustos 2008
- Mesajlar
- 343
- Excel Vers. ve Dili
- Office 365 ProPlus-Türkçe
- Altın Üyelik Bitiş Tarihi
- 03-10-2026
Merhaba
@pitchoute üstadın yardımıyla aşağıdaki kod ile hisselerinin temettü bilgilerini alıyorum, Tablo olarak aldığı için sayfaya yüklemesi aşırı yavaş
HTML olarak daha hızlı olabileceğini düşünerek html olarak almak mümkün müdür
Makro ile html olarak className yazarak @Haluk Beyin kodlarıyla almıştık
@pitchoute üstadın yardımıyla aşağıdaki kod ile hisselerinin temettü bilgilerini alıyorum, Tablo olarak aldığı için sayfaya yüklemesi aşırı yavaş
HTML olarak daha hızlı olabileceğini düşünerek html olarak almak mümkün müdür
Makro ile html olarak className yazarak @Haluk Beyin kodlarıyla almıştık
Kod:
let
KaynakHam = Web.Page(Web.Contents("https://www.isyatirim.com.tr/tr-tr/analiz/hisse/Sayfalar/sirket-karti.aspx?hisse=" & Hisse)),
Kaynak = Table.Buffer(KaynakHam),
Tablolar = Kaynak[Data],
IstenenTablo = List.First(
List.Select(
Tablolar,
each List.Contains(Table.ColumnNames(_), "Kod") and List.Contains(Table.ColumnNames(_), "Dağ. Tarihi")
),
null
),
SonucTablo = if IstenenTablo <> null then
let
#"Tarih Dönüştürüldü" = Table.TransformColumns(
IstenenTablo,
{{"Dağ. Tarihi", each try Date.FromText(_, "tr-TR") otherwise null, type date}}
),
#"Filtrelenmiş Satırlar" = Table.SelectRows(
#"Tarih Dönüştürüldü",
each [Dağ. Tarihi] >= #date(2024, 1, 1)
),
#"Tekil Satırlar" = Table.Distinct(#"Filtrelenmiş Satırlar")
in
#"Tekil Satırlar"
else
null
in
SonucTablo