Yan sütundaki rakamları toplamak, toplamdan sonra kalınan yerden devam etmek...

[rihan]

Değerli excel üstatlarım. Bu forumdan gerçekten de çok faydalanıyorum ve devamını diliyorum. Benim şöyle bir sorunum var. Bir excel sayfasında ekli örnekteki gibi bir sütunda sayılarım olsun. Bu sütunun sağına da bu sayıların toplamı yazılsın. Ancak toplamdan sonra kalınan yerden yine sayılarımın olduğu sütundaki sayılar son toplamdan sonra tekrar kalınan yerden toplansın. Yardımlarınızı rica ediyorum.

 

[Korhan Ayhan]

Selamlar,

Aşağıdaki kodu denermisiniz.

Sub TOPLAM_AL()
    For Each ALAN In [B:B].SpecialCells(xlCellTypeConstants, 1).Areas
    ALAN.Offset(ALAN.Count, 1).Resize(1, 1) = Evaluate("=SUM(" & ALAN.Address & ")")
    Next
End Sub

 

[rihan]

Çok teşekkür ederim sayın Cost_Control.
Gerçekten çok işime yaradı. Ancak çalışma esnasında kodu çalıştıracağıma, iliştirilmiş dosyada görüldüğü gibi toplam "miktar" sütununda bir satırı boş bırakıp atladığım zaman boş bırakılan satırdaki "toplam" sütunununa heman toplamı yazdırabilsem çok daha kullanışlı olurdu. Şimdiden teşekkürler.

 

[Necdet]

Merhaba,

Makrosuz yapmak isterseniz eğer :

• B sütunu seçilir
• F5 (Ctrl+G, Düzen-Git)
• Özel
• Boşluklar
• Tamam

dedikten sonra -ki boş hücreler seçilmiş olur- ∑ ikonuna basılır.