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.
Sizlere daha iyi bir deneyim sunabilmek icin sitemizde çerez konumlandırmaktayız, web sitemizi kullanmaya devam ettiğinizde çerezler ile toplanan kişisel verileriniz Veri Politikamız / Bilgilendirmelerimizde belirtilen amaçlar ve yöntemlerle mevzuatına uygun olarak kullanılacaktır.