serilerin otomatikleştirilmesi hakkında...

[nuclearist]

İyi akşamlar.
elimde x değerlerini A kolonundan, y değerlerini de B kolonundan alan bir grafik var. kolonlarda 46 tane satır mevcut. ancak ben satır sayısını artırdığımda ya da azalttığımda grafik serisi otomatik olarak değişmiyor. bu sorun için Sayın leventm DOLAYLI terimini kullanmamı önerdi. ancak ben beceremedim. ilgili grafiği ekte gönderiyorum. yardımlarınız için şimdiden teşekkür ederim.
İyi çalışmalar.

 

[Levent Menteşoğlu]

Grafikte maalesef dinamik fonksiyon kullanılamıyor yada ben yöntemini bulamadım. İstediğinizi VBA ile çözmek için aşağıdaki kodu sayfa1 in kod sayfasına kopyalayın. A ve B sütunundaki veriler değiştikçe grafikte güncellenecektir.

Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, [a:b]) Is Nothing Then Exit Sub
sat = [a65536].End(3).Row
ActiveSheet.ChartObjects("Grafik 4").Select
ActiveChart.SeriesCollection(1).XValues = "=Sayfa1!R1C1:R" & sat & "C1"
ActiveChart.SeriesCollection(1).Values = "=Sayfa1!R1C2:R" & sat & "C2"
ActiveWorkbook.Activate
[d5].Select
End Sub