Web Bağlantı Aktarım Sorunu

[burak2385]

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

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"

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

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

 

[DoğanD]

Merhaba,

Kodun ilk satırına Application.screenupdating = False kodunu ekleyin. End Sub'dan hemen önce de sayfa1.select ve Application.screenupdating =True kodlarını alt alta yazın. Formül yine o sayfayı seçecek fakat siz fark etmeyeceksiniz.

 

[ozbinici07]

Teşekkürler Yardımınız İçin

Merhaba,

Kodun ilk satırına Application.screenupdating = False kodunu ekleyin. End Sub'dan hemen önce de sayfa1.select ve Application.screenupdating =True kodlarını alt alta yazın. Formül yine o sayfayı seçecek fakat siz fark etmeyeceksiniz.