Grafik Güncelleme

[nuclearist]

İyi günler.
Çalışma ktabımda kayıtlı 6 sayfa var. ilk sayfayı makro ile otomatik açıyorum. diğer beş sayfada ikişer tane grafik var. grafikleri kaynak oluşturan seriler için satır sayısı veri ekledikçe veya sildikçe değişiyor. ilk sayfa açıldığı anda tüm bu grafikleri güncelleyen (yani seri kısmında satır sayısını değiştiren) bir kod yazılabilir mi? şimdiden teşekkür ederim.

 

[hamitcan]

Yanlış anlamadıysam dinamik bir alan tanımlamak istiyorsunuz. Ben de sadece aktif sayfadaki oluşturulmuş bir grafik için böyle dinamik bir yapı oluşturdum. Size belki bir fikir verebilir.

Sub auto_open()
Set alan = [a1].CurrentRegion
ActiveSheet.ChartObjects("Grafik 1").Activate
ActiveChart.PlotArea.Select
ActiveChart.SetSourceData Source:=alan, PlotBy:= _
xlRows
End Sub

 

[nuclearist]

Sayın Hamitcan,
aktif sayfa için buna benzer bir güncelleme kodunu Sayın Leventm den almıştım. ben açık olmayan sayfalarınkinide güncellemek istiyorum. yinede çok teşekkür ederim.
bu arada bahsettiğim kodun otomatik hale getirilmesini de sayenizde öğrenmiş oldum. iyi çalışmalar.