- Katılım
- 2 Mart 2005
- Mesajlar
- 2,960
- Excel Vers. ve Dili
-
ev: Ofis 2007- Win Xp
iş: Ofis 2010- Win Vista
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.
ş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.
Sheets("Grafik2").Select deyimindeki grafik sayfasını değişkene atamak istersek kullacağımız tip ne olmalıdır.
Kod:
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
chart ve charts deyimlerini kulandım.