Bir Grafik sorunu

[bahakara1923]

Hepinize iyi çalışmalar...

Ekte yolladığım dosyada dilim döndüğünce izah ettiğim bir grafik sorunum var.Yardımcı olursanız müteşekkir olurum.Herkese iyi çalışmalar ve şimdiden teşekkürler...

 

[omerceri]

Son Y1 değeri 90 yerine 100 olsa;
=EĞER($E$4=1;D7*2;EĞER($E$4=2;D7*3))
formülü ile soruna kısa yoldan bir çözüm getirilebilinir.
Daha doğrusu, Y1 ve Y2 değerlerinin X değeri ile bir oranı varmı

 

[İdris SERDAR]

Hepinize iyi çalışmalar...

Ekte yolladığım dosyada dilim döndüğünce izah ettiğim bir grafik sorunum var.Yardımcı olursanız müteşekkir olurum.Herkese iyi çalışmalar ve şimdiden teşekkürler...

Dosyanız ekte.
İsterseniz Y2'den sonra Y3... gibi sütunları da ekleyerek grafiğe çağırabilirsiniz.

.

 

[bahakara1923]

evt üstadlar bende kendim uğraşıp yapmıştım.bekledim acil cvp gelmeyince kendim uğraştım.oldu.demekki biraz uğraşmak gerekiyormuş öğrenmek içingenede çok teşekkür ediyorum.şimdide başka bir sorum var ekte yolladım dosyayı inceleyip yardımcı olabilirseniz çok sevinirim.Buna da bayaa uğraşyım ama işin içinden çıkamadım.ufak bi püf noktasını kaçırıyorum zannedersem.hürmetler....

 

[İdris SERDAR]

evt üstadlar bende kendim uğraşıp yapmıştım.bekledim acil cvp gelmeyince kendim uğraştım.oldu.demekki biraz uğraşmak gerekiyormuş öğrenmek içingenede çok teşekkür ediyorum.şimdide başka bir sorum var ekte yolladım dosyayı inceleyip yardımcı olabilirseniz çok sevinirim.Buna da bayaa uğraşyım ama işin içinden çıkamadım.ufak bi püf noktasını kaçırıyorum zannedersem.hürmetler....

Nasıl yaptınız? Bir örneğeini ekleyin de biz de yararlanalım.

.

 

[bahakara1923]

yolluyorum üstad

 

[bahakara1923]

sn üstadım yukarıda sorduğum soruylada ilgilenebilirseniz sevinirim

 

[bahakara1923]

buyrun üstadım yolladım.biraz acemice

 

[bahakara1923]

dosya bu üstad

 

[bahakara1923]

sorduğum soruyla ilgilenebilecek bi üstadım varmıydı?

 

[İdris SERDAR]

sorduğum soruyla ilgilenebilecek bi üstadım varmıydı?

Dosyanız ekte.

.

 

[bahakara1923]

teşekkürler üstadım.tam istediğim gibi olmuş gerçekten.yanlız MAK formulü ile yaptığınız düzenlemeyi nasıl grafiğe aktardığınızı algılayamadım.kısaca izah ederseniz sevinirim.saygılar üstadım...

 

[bahakara1923]

anladğım kadarıyla macro ile yapılmış.makro bilgim çok yetersiz.başka bir anlatım veya çözüm yolu varsa bilgilendirirseniz çok müteşekkir olurum...

 

[İdris SERDAR]

anladğım kadarıyla macro ile yapılmış.makro bilgim çok yetersiz.başka bir anlatım veya çözüm yolu varsa bilgilendirirseniz çok müteşekkir olurum...

Makro kaydet ile eksenleri ayarlarken Excel aşağıdaki şekilde bir kod üretir:

Sub Macro3()

ActiveSheet.ChartObjects("Chart 1").Activate
ActiveChart.Axes(xlValue).Select
With ActiveChart.Axes(xlValue)
.MinimumScale = 0
.MaximumScale = 1500
.MinorUnit = 20
.MajorUnit = 100
.Crosses = xlAutomatic
.ReversePlotOrder = False
.ScaleType = xlLinear
.DisplayUnit = xlNone
End With
ActiveChart.Axes(xlCategory).Select
With ActiveChart.Axes(xlCategory)
.MinimumScale = 0
.MaximumScale = 80
.MinorUnit = 2
.MajorUnit = 10
.Crosses = xlAutomatic
.ReversePlotOrder = False
.ScaleType = xlLinear
.DisplayUnit = xlNone
End With
End Sub


Bu kodu hücrelere bağlı düzenlemeye tabi tutar ve sayfa kod bölümüne yazarsak, aşağıdaki şekilde olur:

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

With ActiveSheet.ChartObjects("Chart 1").Chart


With .Axes(xlCategory)
.MaximumScale = ActiveSheet.Range("$f$4").Value
.MinimumScale = ActiveSheet.Range("$f$1").Value
.MajorUnit = ActiveSheet.Range("$f$5").Value
End With


With .Axes(xlValue)
.MaximumScale = ActiveSheet.Range("$g$4").Value
.MinimumScale = ActiveSheet.Range("$g$1").Value
.MajorUnit = ActiveSheet.Range("$g$5").Value
End With

End With
End Sub


.

 

[bahakara1923]

makrosuz bi çözüm yolu varsa izah edermisiniz.ama yok sanırım üstadım.en kısa zamanda makro öğrenmem lazım.artık şart oldu.ilgileriniz için çok teşekkür ederim.saygılar...

 

[bahakara1923]

üstadım makrosuz çözüm varmıydı die sormuştum ama?