Ay Adlı Grafik Sayfaasındaki başlığı, grfData Çalışma Sayfasındaki D2 hücresi değişin

[hsayar]

Ay Adlı Grafik Sayfaasındaki başlığı, grfData Çalışma Sayfasındaki D2 hücresi değişince değiştirmek mümkünmüdür?

2008 yılı Çeltik harcama zaman Grafiği

 

[metot]

sayın hsayar

dosyanız ektedir inceleyiniz, umarım doğru anlamışımdır

 

[hsayar]

Alakanıza teşekkür ederim

Private Sub Chart_Activate()
Yıl = Sheets("grfData").Range("D2").Value
    
    ActiveChart.ChartArea.Select
    With ActiveChart
        .HasTitle = True
        .ChartTitle.Characters.Text = Yıl & " yılı Çeltik harcama zaman Grafiği"
        .Axes(xlValue).Select
        .SeriesCollection(1).Name = "=""" & Yıl & "/YTL"""
    End With
End Sub

Garafik sayfasında makro çalışıyormuş deneme yanılma ile halletitim.
grafik sayfası seçilince veriyi alıyor.