Bu yazımızda Excel Sayfa Makro otomatik çalıştırmatı deniyeceğiz. Daha önce Pivot Tablomuzu buton ile güncelleme makromuzu yazmıştık. Bu yazımızda da pivot tablomuzun bulunduğu sayfa açıldığında otomatik olarak kendini güncelleyecek makro kodumuzu yazacağız arkadaşlar. Bunu için Worksheet_Activate() event ımızı kullanacağız. Bu özel olayımız sayfa aktif olduğunda çalışacağından aşağıdaki kodumuzu ilgili sayfanın içine yazmalıyız.
Aynı şekilde Worksheet_Deactivate() event ı ile sayfadan çıktığımızda bir işlem gerçekleştirebiliriz.
Private Sub Worksheet_Activate()
Dim pt As PivotTable
For Each pt In ActiveSheet.PivotTables
pt.RefreshTable
Next pt
' www.kaizen40.com
End Sub
Private Sub Worksheet_Deactivate()
MsgBox ("Bye")
End SubBu sayede her sayfa için açıldığında ve kapandığında özel işlemler yapabilmiş olduk. Umarım işinize yaramıştır.
İyi çalışmalar,
0 yorum