Worksheet_Calculate()

[vivident]

Merhaba

"GRAF" isimli sayfamda aktif grafiğim var. Kaydırma çubuğu sayesinde hem haftalar arasında ilerleyebiliyorum, hemde "y" eksenindeki "%" değiştirebiliyorum.

"GRAF" sayfasında Worksheet_Calculate() kodları kullandım. Lakin bütün dosyamı etkliyor. Ben sadece "GRAF" sayfasında çalışmasını istiyorum.

Worksheet_Change kullanamıyorum. Çünkü hücrelerimde formül olduğu için değişiklikleri göstermiyorum. Ayrıca herhangi bir sayfada filitreleme yapmak istediğimde "ActiveSheet.ChartObjects("Grafik 2").Activate" satırında hata alıyorum

Private Sub Worksheet_Calculate()
'On Error Resume Next
Application.ScreenUpdating = False
ActiveSheet.ChartObjects("Grafik 2").Activate
ActiveChart.Axes(xlValue).MinimumScale = Range("B25") - 4
ActiveChart.Axes(xlValue).MaximumScale = Range("B26") + 2
Range("A1").Select
End Sub

 

[alicimri]

Aşağıdaki gibi deneyin. Ben deneyemedim.

Private Sub Worksheet_Calculate()
if ActiveSheet.name = "GRAF" then
'On Error Resume Next
Application.ScreenUpdating = False
ActiveSheet.ChartObjects("Grafik 2").Activate
ActiveChart.Axes(xlValue).MinimumScale = Range("B25") - 4
ActiveChart.Axes(xlValue).MaximumScale = Range("B26") + 2
Range("A1").Select

end if
End Sub

Yada kodlarınızı Calculate olayında değil normal makro olarak olarak düzenleyin kaydırma çubuğuna "makro atayın"