Grafik Alt Ve Üst Sınırlarını Makro İle Otomatik Belirlemek

[ttnetttnet]

Merhabalar,

Ekteki Excel'de DATA sekmesinde C5 hücresinde alt tolerans diye bir değer var. Ben bu değeri zaman zaman manuel değiştireceğim.

Yapmak istediğim şey; CHARTS sekmesindeki alt sınır değerini ve üst sınır değerini bahsettiğim bu DATA > C5 hücresindeki değerin %10 altı ve %10 üstü olarak belirlemek.

Bu mümkün müdür?

 

[ÖmerBey]

Merhaba,
Şöyle bir kod işinizi görür mü?

Sub kod()
üst = Int(Sheets("Data").Range("C5") * 1.1)
alt = Int(Sheets("Data").Range("C5") * 0.9)
Sheets("Charts").Activate
ActiveSheet.ChartObjects("Chart 1").Select
ActiveChart.Axes(xlValue).MinimumScale = alt
ActiveChart.Axes(xlValue).MaximumScale = üst
Sheets("Data").Activate
End Sub

 

[ttnetttnet]

Merhaba,
Şöyle bir kod işinizi görür mü?

Sub kod()
üst = Int(Sheets("Data").Range("C5") * 1.1)
alt = Int(Sheets("Data").Range("C5") * 0.9)
Sheets("Charts").Activate
ActiveSheet.ChartObjects("Chart 1").Select
ActiveChart.Axes(xlValue).MinimumScale = alt
ActiveChart.Axes(xlValue).MaximumScale = üst
Sheets("Data").Activate
End Sub

Çalışıyor çok teşekkürler. Bir yerde takılırsam yazarım. Selamlar