Dinamik Grafik Oluşturma

[tamer42]

Merhabalar,
Ekli dosyada Data sayfasına verileri belli kriterlere göre filtreleyerek makro ile Grafik sayfasına getiriyorum

Data sayfasında 12 başlık (sütun) bulunmakta; yalnız bunu grafik sayfasına bunların tamamını değil, istemiş olduğum başlıkları getiriyorum
Grafik sayfasına gelen başlık ve verilere göre; çizgi grafik hazırlıyacağım, bu grafikte veri serilerini bu sayfaya gelen başlıklara (sütun) göre her seferinde dinamik olarak hazırlanmasını nasıl sağlayabiliriz?

desteğiniz için şimiden teşekkürler
iyi akşamlar.

 

[tamer42]

Merhabalar,
Ekli dosyada Data sayfasına verileri belli kriterlere göre filtreleyerek makro ile Grafik sayfasına getiriyorum

Data sayfasında 12 başlık (sütun) bulunmakta; yalnız bunu grafik sayfasına bunların tamamını değil, istemiş olduğum başlıkları getiriyorum
Grafik sayfasına gelen başlık ve verilere göre; çizgi grafik hazırlıyacağım, bu grafikte veri serilerini bu sayfaya gelen başlıklara (sütun) göre her seferinde dinamik olarak hazırlanmasını nasıl sağlayabiliriz?

desteğiniz için şimiden teşekkürler
iyi akşamlar.

iyi akşamlar,
aşağıdaki kod ile sorun çözüldü,
her şey için teşekkürler,

Sub Grafik()

Dim WS As Worksheet
Dim rngData As Range
Dim s As Long
Dim cht As Chart
Dim srs As Series


Set WS = ActiveSheet
Set cht = WS.ChartObjects(1).Chart
rw = WS.UsedRange.Rows.Count
cl = WS.UsedRange.Columns.Count

Set rngData = WS.Range(WS.Cells(2, 1), WS.Cells(rw, cl))

For Each srs In cht.SeriesCollection
    srs.Delete
Next

For s = 2 To rngData.Columns.Count

    Set srs = cht.SeriesCollection.NewSeries
   
    With srs
        .XValues = rngData.Columns(1)
        .Values = rngData.Columns(s)
        .Name = rngData.Cells(1, s).Offset(-1, 0).Value
        Order = s - 1
    End With
Next

End Sub