Sheets("Grafik2").Select deyimindeki grafik sayfasını değişkene atamak istersek kulla

[hsayar]

Sheets("Grafik2").Select deyimindeki grafik sayfasını değişkene atamak istersek kulla

Sheets("Grafik2").Select deyimindeki grafik sayfasını değişkene atamak istersek kullacağımız tip ne olmalıdır.

Sub grf_alan_degistir()
Dim buKtp       As Workbook:        Set buKtp = ThisWorkbook
Dim Grf_D       As Worksheet:       Set Grf_D = buKtp.Worksheets("GRFD")
Dim Grf_1       As Worksheet:       Set Grf_1 = buKtp.Worksheets("Grafik2")
Dim Aralik_SrDeg, Aralik_SrYzd, Aralik_EksX     As Range:
 
SonSat = 16
Set Aralik_EksX = Grf_D.Range("c3:c" & SonSat)
Set Aralik_SrDeg = Grf_D.Range("d3:d" & SonSat)
Set Aralik_SrYzd = Grf_D.Range("e3:e" & SonSat)
    Grf_1.Select
    ActiveChart.SeriesCollection(1).XValues = Aralik_EksX
    ActiveChart.SeriesCollection(1).Values = Aralik_SrDeg
    ActiveChart.SeriesCollection(2).XValues = Aralik_EksX
    ActiveChart.SeriesCollection(2).Values = Aralik_SrYzd
End Sub

şeklinde bir kod yazdım ama grafik2 adlı grafik sayfasını bir değişkene set edip kullanmam için ne yapmalıyım

chart ve charts deyimlerini kulandım.

 

[hsayar]

dim .... As chart : set = ... .charts(......) şeklinde imiş. ben ikiisnide chart yazmışım.