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 Sub
Bu 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