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

Katılım
29 Kasım 2010
Mesajlar
85
Excel Vers. ve Dili
MS Excel Professional Plus 2010
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?
 

Ekli dosyalar

ÖmerBey

Destek Ekibi
Destek Ekibi
Katılım
22 Ekim 2012
Mesajlar
4,086
Excel Vers. ve Dili
2007 Türkçe
Merhaba,
Şöyle bir kod işinizi görür mü?
PHP:
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
 
Katılım
29 Kasım 2010
Mesajlar
85
Excel Vers. ve Dili
MS Excel Professional Plus 2010
Merhaba,
Şöyle bir kod işinizi görür mü?
PHP:
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
 
Üst