4 Tabloyu aynı anda güncelleme

[furkankaya]

Merhaba Ekte Bırakmış olduğum excel ekine ANA_SAYFA tablosunda DUSEY-LIST tablosundan değerleri getiriyoruz ve bu değerler diğer tabloların altından gelmekte
Gümlük değerler değiştiğinden ANA_SAYFA tablosuna Güncelle Adında makro yerleştirmek istiyorum fakat yeterli kod bilgisine sahip değilim.
İstenilen güncelle butonuna tıklanınca 4 tabloda ki değerler güncelleştirisin, Değerler internet sayfasından gelmektedir.
dosya şifresi : 6358
link -> https://dosya.co/uu6kqfaypeb6/MAZOT_FİYATLARI.rar.html

 

[veyselemre]

Sub Macro1()

    ActiveWorkbook.RefreshAll
    'ThisWorkbook.Queries(1).Parent.Parent.RefreshAll
    Sheets("ANA_SAYFA").PivotTables("PivotTable2").RefreshTable

End Sub