Kod:
Sub calistir()
Dim a As Integer
a = Sheets("MAYIS").Range("A1").Value
ActiveSheet.ChartObjects("Grafik 1").Activate
ActiveChart.ChartArea.Select
ActiveChart.SetSourceDataSource:=Sheets("MAYIS").Range([COLOR="Red"]"&a"[/COLOR])
'ActiveChart.SetSourceDataSource:=Sheets("MAYIS").Range("A2:A8") gibi
End Sub
Yukarıda ki kodlar ile MAYIS sayfasında A1 hücresinde yazılı olan ( A2:A8 gibi) bir aralığı grafikte nasıl oluşturabilirim ?