Grafik Source İleri Geri

[emre311]

Merhaba;
"ActiveChart.SetSourceData Source:=Range("Sayfa1!$A$1:$A$2,Sayfa1!$L$1:$U$2")" kodu ile grafik alanını belirleyebiliyorum . Excel sayfasında kaydırma ekleyeceğim kaydırma çubuğu ile L1 i M1 , U2i V2 şeklinde değiştire bilirmiyim? Grafik uzun olduğundan görseli kayıyor bu şekilde ileri geri yaparak gösterebilirim. Kaydırma çubuğu ile ileri geri yapabileceğim bir grafik elde etmek istiyorum. Kod ile yardımcı olursanız çok sevinirim . Birde üst limit yani enfazla atıyorum AX sütunana gidebilir şeklinde yazılırsa sevinirim.
İyi çalışmalar.

 

[emre311]

Formülle hazırladım teşekkürler.

 

[hamitcan]

Bu şekilde dener misiniz ?

Private Sub ScrollBar1_Change()
    ScrollBar1.Min = 12
    ScrollBar1.Max = 28

    a = ScrollBar1.Value + 1
    x = Range("A1:A2").Address
    y = Range(Cells(1, 12 + a).Address & ":" & Cells(1, 21 + a).Address).Address
    ActiveSheet.ChartObjects("Grafik 1").Activate
    ActiveChart.SetSourceData Source:=Range(x, y)
End Sub