Hareketli grafik oluşturma

[thecarow]

Merhaba;
Pivot vasıtası ile hazırlamış olduğum bir grafik var.Hücrelere değer girip yenile butonuna bastığımda grafik değişiyor.Bunu değer girdiğimde otomatik olarak yeniletme gibi bir durum varmıdır.
Saygılarımla.

 

[Korhan Ayhan]

Merhaba,

Tabiki yapabilirsiniz. Özet tablonuzun bulunduğu sayfanın kod bölümüne aşağıdaki kodu yazın. Sayfa aktif olduğunda grafik güncellenecektir.

Private Sub Worksheet_Activate()
    ActiveSheet.PivotTables("Özet Tablo 1").PivotCache.Refresh
End Sub

Eğer özet tablonuz veriler ile aynı sayfada ise özet tablonuzun bulunduğu sayfanın kod bölümüne aşağıdaki kodu uygulayın. "A1:Z100" aralığı verilerinizin bulunduğu alandır. Kendinize göre düzenleyiniz.

Private Sub Worksheet_Change(ByVal Target As Range)
    If Intersect(Target, Range("A1:Z100")) Is Nothing Then Exit Sub
    ActiveSheet.PivotTables("Özet Tablo 1").PivotCache.Refresh
End Sub

 

[thecarow]

Hocam teşekkür ederim ilginiz için.Ama makrodan fazla anlamadığım için soruyorum.Dediğiniz gibi yapıyorum ama hata veriyor.("Özet tablo 1") yazılı alana ne yazmam gerekiyor.

 

[Korhan Ayhan]

Merhaba,

Sizin oluşturduğunuz özet tablonuzun adını yazmanız gerekiyor.

 

[Merhum İdris SERDAR]

Hocam teşekkür ederim ilginiz için.Ama makrodan fazla anlamadığım için soruyorum.Dediğiniz gibi yapıyorum ama hata veriyor.("Özet tablo 1") yazılı alana ne yazmam gerekiyor.

.

Eğer özet tablo adları ile uğraşmak istemezseniz, Sayın Korhan Ayhan'ın kodlarını aşağıdaki şekilde düzenleyin.

Private Sub Worksheet_Activate()

Dim pivotTable As pivotTable
For Each pivotTable In ActiveSheet.PivotTables
pivotTable.RefreshTable

Next

End Sub

Private Sub Worksheet_Change(ByVal Target As Range)
    Dim pivotTable As pivotTable
    If Intersect(Target, Range("A1:Z100")) Is Nothing Then Exit Sub
    For Each pivotTable In ActiveSheet.PivotTables

pivotTable.RefreshTable

Next

End Sub

.

 

[thecarow]

İlginiz ve desteğiniz için teşekkür ederim.