- Katılım
- 28 Ağustos 2013
- Mesajlar
- 19
- Excel Vers. ve Dili
- Türkçe
Aşağıdaki Kod İle Sorgulama Ekranından Sorgulama Yapınca Verileri DATA Sayfasına Aktarıyor Fakat Ben Sayfa1 de İken Direk Data Dosyasına Yönlendiriyor Beni
Benim İstediğim Bağlantıları Yenile Dediğimde Mevcut Bulunduğum Sayfadan Ayrılmak İstemiyorum.
Nasıl Bir Çözüm Uygulayabiliriz.
Aşağıdaki VBA Kodları İle Bir Bağlantısı Varmı O Konuda da Emin Değilim Onlarıda Aşağıda Paylaştım
Benim İstediğim Bağlantıları Yenile Dediğimde Mevcut Bulunduğum Sayfadan Ayrılmak İstemiyorum.
Nasıl Bir Çözüm Uygulayabiliriz.
Aşağıdaki VBA Kodları İle Bir Bağlantısı Varmı O Konuda da Emin Değilim Onlarıda Aşağıda Paylaştım
Kod:
https://finans.mynet.com/borsa/hisseler/
let
Kaynak = Web.Page(Web.Contents("https://finans.mynet.com/borsa/hisseler/")),
Data0 = Kaynak{0}[Data],
#"Değiştirilen Tür" = Table.TransformColumnTypes(Data0,{{"Hisseler", type text}, {"", type text}, {"Son", type number}, {"Değişim Yüzde", type number}, {"Hacim (TL)", type number}, {"Saat", type time}})
in
#"Değiştirilen Tür"
Kod:
Sub ekgrafikv1ek()
'
' ekgrafikv1ek Makro
'
'
ActiveSheet.ChartObjects("Grafik 2").Activate
ActiveChart.HasAxis(xlCategory) = True
ActiveSheet.ChartObjects("Grafik 2").Activate
ActiveChart.Axes(xlCategory).Select
ActiveChart.Axes(xlCategory).ReversePlotOrder = True
End Sub
Kod:
Sub GRAFİKOLUŞTUR3()
'
' GRAFİKOLUŞTUR3 Makro
'
'
ActiveSheet.ChartObjects("Grafik 2").Activate
ActiveChart.HasAxis(xlCategory) = True
ActiveSheet.ChartObjects("Grafik 2").Activate
ActiveChart.Axes(xlCategory).Select
ActiveChart.Axes(xlCategory).ReversePlotOrder = True
Sheets("GRAPH").Select
Range("Y66:AA87").Select
Selection.Replace What:=",", Replacement:=".", LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
ReplaceFormat:=False
Sheets("INDES").Select
ActiveSheet.ChartObjects("Grafik 2").Activate
ActiveChart.HasAxis(xlCategory) = True
ActiveSheet.ChartObjects("Grafik 2").Activate
ActiveChart.Axes(xlCategory).Select
ActiveChart.Axes(xlCategory).ReversePlotOrder = True
End Sub
Son düzenleme: