makro ile altın fiyatlarını alabilir miyiz?

[ÖmerBey]

Alternatif olarak aşağıdakiler de kullanılabilir.
Örnek Kullanım:
=Teb_Altin("Çeyrek";"Alis")
=Teb_Doviz("USD";"MerkezAlis")

Function Teb_Altin(tur As String, islem As String) As Double
'***tur değerleri***
'GR
'Çeyrek
'Yarım
'Tam

'***islem değerleri***
'Alis
'Satis

Application.Volatile
Set x = CreateObject("MSXML2.XMLHTTP")
With x
    .Open "GET", "https://www.cepteteb.com.tr/services/GetGunlukAltinKur", False
    .Send
End With
met = Split(Replace(x.responseText, Chr(34), ""), "{")
m = Replace(Filter(Split(Filter(met, tur, 1, 1)(0), ","), islem, 1, 1)(0), ".", ",")
Teb_Altin = Replace(Split(m, ":")(1), ".", ",")
End Function

Function Teb_Doviz(tur As String, islem As String) As Double
'***tur değerleri***
'USD
'EUR
'GPB

'***islem değerleri***
'merkezAlis
'merkezSatis
'tebAlis
'tebSatis

Application.Volatile
Set x = CreateObject("MSXML2.XMLHTTP")
With x
    .Open "GET", "https://www.cepteteb.com.tr/services/GetGunlukDovizKur", False
    .Send
End With
met = Split(Replace(x.responseText, Chr(34), ""), "{")
m = Replace(Filter(Split(Filter(met, tur, 1, 1)(0), ","), islem, 1, 1)(0), ".", ",")
Teb_Doviz = Replace(Split(m, ":")(1), ".", ",")
End Function

 

[adnan güngör]

üstadım çok güzel bir çalışma olmuş, fakat benim sormak istediğim excell tablosunu ilk indirdiğimizde çalıştığında aşağıda örnek olarak eklediğim şekilde saat dakika sabit kalıyor anlık güncellemeye ne şekilde ulaşabilirim. saygılarımla,

Altın	CEPTETEB Alış	CEPTETEB Satış	Tarih
GR	910,052136​	926,797473​	08042022 10:14:00
Çeyrek	1456,083418​	1482,875957​	08042022 10:14:00
Yarım	2912,166835​	2965,751914​	08042022 10:14:00
Tam	5824,33367​	5931,503827​	08042022 10:14:00

 

[adnan güngör]

üstadım çok güzel bir çalışma olmuş, fakat benim sormak istediğim excell tablosunu ilk indirdiğimizde çalıştığında aşağıda örnek olarak eklediğim şekilde saat dakika sabit kalıyor anlık güncellemeye ne şekilde ulaşabilirim. saygılarımla,

Altın	CEPTETEB Alış	CEPTETEB Satış	Tarih
GR	910,052136​	926,797473​	08042022 10:14:00
Çeyrek	1456,083418​	1482,875957​	08042022 10:14:00
Yarım	2912,166835​	2965,751914​	08042022 10:14:00
Tam	5824,33367​	5931,503827​	08042022 10:14:00

araştırıken site içerisinde anlık çalışanı gördüm üstadım saygılarımla