ActiveChart komutu ile ilgili...

[nuclearist]

iyi günler. bir sayfada bulunan grafik serisini güncellemek için Sayın Leventm aşağıdki kodu yollamıştı. kod bir buton aracılığıyla çalıştırılıyordu.
bu kodu başka bir sayfadan herhangi bir buton olmadan çalıştırabilirmiyiz. örneğin sayfa1 açıldığında sayfa2 de bulunan grafik güncellenebilir mi?
teşekkür ederim. iyi çalışmalar...


Sub Makro1()
Set s1 = Sheets("MWS")
ActiveSheet.ChartObjects("Grafik 3").Activate
ActiveChart.ChartArea.Select
ActiveChart.SeriesCollection(1).XValues = "=MWS!R2C2:R" & s1.[b65536].End(3).Row & "C2"
ActiveChart.SeriesCollection(1).Values = "=MWS!R2C3:R" & s1.[c65536].End(3).Row & "C3"
ActiveChart.SeriesCollection(2).XValues = "=MWS!R2C4:R" & s1.[d65536].End(3).Row & "C4"
ActiveChart.SeriesCollection(2).Values = "=MWS!R2C5:R" & s1.[e65536].End(3).Row & "C5"
ActiveWorkbook.Activate
[a1].Select
End Sub

 

[Levent Menteşoğlu]

Güncellenebilir elbette, bir örnek dosya eklermisiniz.

 

[nuclearist]

Sayın Leventm ...

gerekli izahatı ekli dosyada yaptım.

ilginiz için teşekkür ederim.

 

[Levent Menteşoğlu]

Öncelikle macro1 isimli prosüdürü aşağıdak ile değştirin.

Sub Makro1()
Application.ScreenUpdating = False
Application.EnableEvents = False
Set s1 = Sheets("MWS")
s1.Select
ActiveSheet.ChartObjects("Grafik 3").Activate
ActiveChart.ChartArea.Select
ActiveChart.SeriesCollection(1).XValues = "=MWS!R2C2:R" & s1.[b65536].End(3).Row & "C2"
ActiveChart.SeriesCollection(1).Values = "=MWS!R2C3:R" & s1.[c65536].End(3).Row & "C3"
ActiveChart.SeriesCollection(2).XValues = "=MWS!R2C4:R" & s1.[d65536].End(3).Row & "C4"
ActiveChart.SeriesCollection(2).Values = "=MWS!R2C5:R" & s1.[e65536].End(3).Row & "C5"
ActiveWorkbook.Activate
Sheets("VERI").Select
Application.EnableEvents = True
End Sub

Veri isimli sayfanın kod sayfasınada aşağıdaki prosedürü kopyalayın.

Private Sub Worksheet_Activate()
Makro1
End Sub

 

[nuclearist]

Sayın leventm ilginizden dolayı çok teşekkür ederim. sadece sizin verdiğiniz ipucu ve yardımlarla VB öğrenmeye başladım. Allah Razı olsun.