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

Bir yanıt yazın

Avatar placeholder

E-posta adresiniz yayınlanmayacak. Gerekli alanlar * ile işaretlenmişlerdir

Bu site, istenmeyenleri azaltmak için Akismet kullanıyor. Yorum verilerinizin nasıl işlendiği hakkında daha fazla bilgi edinin.