Grafiklerin aşağıdan yukarı doğru görsel olarak yükselmesi

[manisali50]

Üstadım çok güzel olmuş.İlginize ve emeğinize sonsuz teşekkürler.Ama,bana powerpointte değil de excelde (örnekteki tam benim işime göre) hazırlarsanız çok memnun olacağım..

 

[manisali50]

Az önceki arkadaş çözümü powerpointten yapmış ama benim işime yarayacak olan excelde çözüm..Üstadlarımın yardımlarını bekliyorum

 

[manisali50]

Sorum ekranı terketmeden yeniden güncellemek istedim arkadaşlar

 

[manisali50]

Sorum ekranı terketmeden yeniden güncellemek istedim arkadaşlar

 

[manisali50]

Bu sefer ilgilenen olur umuduyla (SON KEZ) sorumu güncelliyorum arkadaşlar

 

[mancubus]

merhaba.
sizin grafik 2 sütun kulandığı için bire bir aynı olur mu bilemiyorum.

ama hocamızın örneğini sizin duruma adapte edersek:
önce a8:a20, c8:c20; e8:e20 olan grafik veri alanınızı a8:a2; h8:i20 olarak düzeltin.
değişirse seri isimlerini düzeltin.
yedek bir dosya üzerinde deneyin.
ben test ettim problem yok. ama hem veri çok, hem seri sayısı. biraz uzun sürebilir.

sayfanıza 1 düğme ekleyerek size uyan makroyu atayın.


her iki sütun için eş zamanlı olmasını istiyorsanız;

Sub Bas1
    Dim x As Integer
    Dim y As Integer
 
    Range("h8:i20").ClearContents
    
    On Error Resume Next
    For x = 1 To 10
        For y = 8 To 20
            DoEvents
            Range("h" & y) = Range("h" & y) + Range("c" & y) / 10
            Range("i" & y) = Range("i" & y) + Range("e" & y) / 10
        Next
    Next x
End Sub

önce 1. sütun, sonra 2. sütun gelsin istiyorsanız.

Sub Bas2
    Dim x As Integer
    Dim y As Integer
 
    Range("h8:i20").ClearContents
    
    On Error Resume Next
    For x = 1 To 10
        For y = 8 To 20
            DoEvents
            Range("h" & y) = Range("h" & y) + Range("c" & y) / 10
        Next
    Next x

    For x = 1 To 10
        For y = 8 To 20
            DoEvents
            Range("i" & y) = Range("i" & y) + Range("e" & y) / 10
        Next
    Next x

End Sub

 

[manisali50]

Üstadım harika olmuş..İlgine,bilgine,emeğine sağlık..Çok çok teşekkür ederim

 

[mancubus]

rica ederim. işe yaradığına sevindim. ben bir şey yapmadım. ben sadece sn. yurttaş'ın çalışmasını uyarladım.