GÜncel Özet Tablo

[ANTALYA 01]

Merhabalar

Ekte Çalışmada 2 Adet Özet Tablo oluşturdum.ÖZET 1-ÖZET 2 Ben günlük Verilemi Girdikçe ÖZET1 Tablonun ve ÖZET 2 Tablonun Güncellenmesini istiyorum.
Yani 10-02 Sayfasının verilerini girdiğimde bir tuş yardımıyla Otamatik Özet 1 Tablonun Güncellenmesini 10-02-D Verilerini girdiğimde bir tuş yardımıyla ÖZET 2 Tablosunun Güncellenmesini istiyorum.Mümkünse

 

[ANTALYA 01]

F

Böyle bir şey mümkün mü ?

 

[zafer]

Merhaba

Verileri girdiğiniz sayfanın kod sayfasına aşağıdaki kodları yapıştırınız.
hangi sütüundaki verilerinizi girdikten sonra özet tablo güncelenecekse
A2:a600 alanını o alan göre düzenleyiniz.

Sayfa ve özet tablo adınıda kendinize göre düzenleyiniz.

Private Sub Worksheet_Change(ByVal Target As Range)
Set alan = Application.Intersect(Target, Range("a2:a600"))
If Not alan Is Nothing Then
Sheets("Özet 1").PivotTables("Özet Tablo 1").PivotCache.Refresh
End If
Set alan = Nothing
End Sub

 

[ANTALYA 01]

d

Süpersiniz ya ne hızlılık böyle teşekkürler