Makro ile grafik oluşturmak

[ozgretmen]

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

Merhabalar;
Yukarıda ki kodlar ile MAYIS sayfasında A1 hücresinde yazılı olan ( A2:A8 gibi) bir aralığı grafikte nasıl oluşturabilirim ?

 

[Levent Menteşoğlu]

.Range([a1]) şeklinde deneyin.