Seçmeli yatay toplama

[teonet]

Merhaba Sayın Arkadaşlar, Örnek dosyamda sorum belirtilmiştir. Kısaca şöyle, yatay toplama istiyorum fakat rakamların yanındaki harfe göre bi toplama yapması gerekmeketedir.

Tüm arkadaşlarıma şimdiden teşekkürler.

 

[hamitcan]

Sub Topla()
    For i = 7 To 15
    C = 0
    D = 0
    E = 0
    F = 0
    For j = 7 To 18
    If Cells(i, j) = [c6] Then C = C + Cells(i, j - 1): Cells(i, 3) = C
    If Cells(i, j) = [d6] Then D = D + Cells(i, j - 1): Cells(i, 4) = D
    If Cells(i, j) = [e6] Then E = E + Cells(i, j - 1): Cells(i, 5) = E
    If Cells(i, j) = [f6] Then F = F + Cells(i, j - 1): Cells(i, 6) = F
    Next
    Next
End Sub

 

[teonet]

Sayın Hamitcan, Yardımlarınız için öncelikle teşekkür ederim. Fakat ben bunu uygulamaya geçiremedim. Excel dosya üzerinde yapabilir misiniz?

Saygılarımla

 

[teonet]

Sayın Hamitcan Buton ekleyerek toplayı gösterdim ve çalıştı. Fakat şöyle bi sorun yaşadım. Daha önceden yazmış olduğum veriyi sildiğimde toplamdan düşmedi. bunu nasıl giderebiliriz. Bunun dışında süper çalışıyor.

Çok teşekkür ederim.

 

[teonet]

Buna ilker bi yöntem ile çözüm buldum... En sağda ki boş hüçrelere A,B,M,İ ve önlerine 0 (sıfır) değerini verdim. Bu durumda hatalı yazılmış olan değer silindiğinde Ayni katoğoride (A,B,M,İ olmadığında silinen değeri toplamda gösteriyordu) başka bi değer de olduğu için yeniden tolayarak gerçek değeri vermektedir.

Saygılarımla

 

[hamitcan]

Sayın Hamitcan Buton ekleyerek toplayı gösterdim ve çalıştı. Fakat şöyle bi sorun yaşadım. Daha önceden yazmış olduğum veriyi sildiğimde toplamdan düşmedi. bunu nasıl giderebiliriz. Bunun dışında süper çalışıyor.

Çok teşekkür ederim.

Çünkü toplam içeren hücreler formül değil bu yüzden kodu tekrar çalıştırmalısınız yada kodu, sayfa olaylarından birine bağlamalısınız.

 

[teonet]

Sayın Hamitcan, Her değişiklikte çalıştırıyorum. Elinize sağlık, değerli yardımlarınız için çok teşekkür ederim.