Makro ile grafik üzerine seri ekleme

[tamer42]

Merhaba,

Ekli dosyada Grafik üzerine makro ile dikey çizgiler çizdirmek istiyorum

Aşağıda verilen kodla bir çizgi çizilebiliyor, yalnız burada for..... next döngüsü sağlayarak 1 den 10 a kadar tüm çizgileri nasıl çizdirebiliriz.

Not: i değişkeninde "=Sheet1!$E$" & i şeklinde hata alıyorum

     Range("H1").Select
    ActiveSheet.ChartObjects("Chart 1").Activate
    
    ActiveChart.SeriesCollection.NewSeries
        
    ActiveChart.SeriesCollection(1).Name = "=Sheet1!$E$2"
    ActiveChart.SeriesCollection(1).XValues = "=Sheet1!$D$2;Sheet1!$D$3"
    ActiveChart.SeriesCollection(1).Values = "={0\1}"

iyi çalışmalar.