Sadece Hissenin Adını Yazın, Excel Tüm Tarihsel Veriyi Getirsin! (TL / USD) скачать в хорошем качестве

Sadece Hissenin Adını Yazın, Excel Tüm Tarihsel Veriyi Getirsin! (TL / USD)

Faydalı olduğunu düşünüyorsanız beğenmeyi, abone olmayı ve yorum yapmayı ihmal etmeyiniz. Mail adresinizi yorum olarak eklerseniz dosyayı sizlere mail olarak iletebilirim. Link: https://www.isyatirim.com.tr/tr-tr/an... Excel (Query) Formüller: = Excel.CurrentWorkbook(){[Name="Parametreler"]}[Content]{0}[Hisse] = Date.From(Excel.CurrentWorkbook(){[Name="Parametreler"]}[Content]{0}[BaslangicTarihi]) = Date.From(Excel.CurrentWorkbook(){[Name="Parametreler"]}[Content]{0}[BitisTarihi]) Excel Query Gelişmi Düzenleyici Kod: let // 1) Parametreler tablosunu tek sefer al Param = Excel.CurrentWorkbook(){[Name="Parametreler"]}[Content], // 2) İlk (ve tek) satırdan alanları çek // (Sütun isimlerin Parametreler tablosundaki başlıklarla birebir eşleşmelidir) Hisse = Text.From(Param{0}[Hisse]), BasTarihDate = Date.From(Param{0}[BaslangicTarihi]), BitTarihDate = Date.From(Param{0}[BitisTarihi]), // 3) Tarihleri istenen formata çevir BasTarih = Date.ToText(BasTarihDate, "dd-MM-yyyy"), BitTarih = Date.ToText(BitTarihDate, "dd-MM-yyyy"), // 4) Dinamik URL oluştur URL = "https://www.isyatirim.com.tr/_layouts..." & Hisse & "&startdate=" & BasTarih & "&enddate=" & BitTarih, // --- (Geçici test adımı: URL'in doğru oluşup oluşmadığını görmek istersen burayı çıktıya al) // TestURL = URL, // 5) Web'den JSON'u çek Kaynak = Json.Document(Web.Contents(URL)), value = Kaynak[value], #"Tabloya Dönüştürüldü" = Table.FromList(value, Splitter.SplitByNothing(), null, null, ExtraValues.Error), #"Genişletilen Column1" = Table.ExpandRecordColumn(#"Tabloya Dönüştürüldü", "Column1", {"HGDG_HS_KODU", "HGDG_TARIH", "HGDG_KAPANIS", "HGDG_AOF", "HGDG_MIN", "HGDG_MAX", "HGDG_HACIM", "END_ENDEKS_KODU", "END_TARIH", "END_SEANS", "END_DEGER", "DD_DOVIZ_KODU", "DD_DT_KODU", "DD_TARIH", "DD_DEGER", "DOLAR_BAZLI_FIYAT", "ENDEKS_BAZLI_FIYAT", "DOLAR_HACIM", "SERMAYE", "HG_KAPANIS", "HG_AOF", "HG_MIN", "HG_MAX", "PD", "PD_USD", "HAO_PD", "HAO_PD_USD", "HG_HACIM", "DOLAR_BAZLI_MIN", "DOLAR_BAZLI_MAX", "DOLAR_BAZLI_AOF"}, {"HGDG_HS_KODU", "HGDG_TARIH", "HGDG_KAPANIS", "HGDG_AOF", "HGDG_MIN", "HGDG_MAX", "HGDG_HACIM", "END_ENDEKS_KODU", "END_TARIH", "END_SEANS", "END_DEGER", "DD_DOVIZ_KODU", "DD_DT_KODU", "DD_TARIH", "DD_DEGER", "DOLAR_BAZLI_FIYAT", "ENDEKS_BAZLI_FIYAT", "DOLAR_HACIM", "SERMAYE", "HG_KAPANIS", "HG_AOF", "HG_MIN", "HG_MAX", "PD", "PD_USD", "HAO_PD", "HAO_PD_USD", "HG_HACIM", "DOLAR_BAZLI_MIN", "DOLAR_BAZLI_MAX", "DOLAR_BAZLI_AOF"}) in #"Genişletilen Column1" Excel Otomatik Yenileme Makrosu için Kod: If Not Intersect(Target, Me.Range("A2")) Is Nothing Then Application.EnableEvents = False ThisWorkbook.RefreshAll Application.EnableEvents = True End If ------------ ABONE OLMAYI UNUTMAYIN-------------- Borsa Hisse Tarihsel Veri Excele #excel #excelborsa #borsa #bilanço #excelhisse Excelde tarihsel veri Excel veri getirme Excel işyatırım veri çekme Excel işyatırım tarihsel veri getirme