Her butonda ayrı grafik gösterme

[ilhaan]

Arkadaşlar eklenti dosyasında bulunan iki adet makro atanmış butonum var. Ancak her ikiside farklı verileri içeriyor. Bunlara ait grafikleri nasıl oluşturabilirim?Teşekkürler.

 

[Mahir64]

Merhaba

Sorguyu değiştirdim bu tarz bir şeymi? Zaten makro mevcut dosyanızda

 

[mancubus]

aynı grafik içinde farklı veriler ile grafikler oluşmasını istiyorsanız.

bas1 prosedürünü aşağıdaki gibi değiştirin.

Sub Bas1()
    
Dim x As Integer
Dim y As Integer

Range("[COLOR="Red"]F3:F7[/COLOR]").ClearContents

On Error Resume Next
For x = [COLOR="#ff0000"]1 To 10[/COLOR]
    For y = [COLOR="#ff0000"]3 To 7[/COLOR]
        DoEvents
        Range("F" & y) = Range("F" & y) + Range("C" & [COLOR="#ff0000"]y + 6[/COLOR]) / 10
    Next
Next x

End Sub

 

[ilhaan]

Teşekkürler

 

[Mahir64]

Merhaba

ilhaan bey
ben farklı bir soru ya göndereceğim dosyayı eklemişim lusura bakmayın.
sayın mancubus cevaı vermiş. iyi çalışmalar

 

[ilhaan]

Arkadaşlar uğraştım ancak bir türlü yapamadım. Veriler bir türlü f9:f13 hücrelerine atayamıyorum. Dosyadan gösterirseniz sevinirim.Sağolun.

 

[mancubus]

grafiğin veri alanı F3:F7 aralığı olarak tanımlanmış.

mutlaka F9:F13 aralığına veri yazılsın istiyorsanız her iki makro da değişmeli.


aşağıdaki makro excel2007'de hazırlandı. eğer uymaz ise makro kaydedicisini çalıştırın. grafiğin üstüne gelerek veri seç ile kendi makronuzu hazırlayın.

Sub grafik1()

Dim x As Integer
Dim y As Integer

Range("F3:F7").ClearContents
 
ActiveSheet.ChartObjects("Grafik 1").Activate
ActiveChart.SeriesCollection.NewSeries
ActiveChart.SeriesCollection(1).Values = Range("F3:F7")

On Error Resume Next
For x = 1 To 10
    For y = 3 To 7
        DoEvents
        Range("F" & y) = Range("F" & y) + Range("C" & y) / 10
    Next
Next x

End Sub

Sub grafik2()

Dim x As Integer
Dim y As Integer

Range("F9:F13").ClearContents

ActiveSheet.ChartObjects("Grafik 1").Activate
ActiveChart.SeriesCollection.NewSeries
ActiveChart.SeriesCollection(1).Values = Range("F9:F13")

On Error Resume Next
For x = 1 To 10
    For y = 9 To 13
        DoEvents
        Range("F" & y) = Range("F" & y) + Range("C" & y) / 10
    Next
Next x

End Sub

not: değişiklik aptım. 2003'te de çalışması lazım.

 

[ilhaan]

Teşekkürler