Sütundaki boş hücrelere toplam aldırmak.

[Korhan Ayhan]

Selamlar arkadaşlar,

Ekteki dosyamda A sütununda bazı veriler var ve bu verilerin aralarındada boş hücreler var. Ben bu boş hücrelere toplam aldırmak istiyorum. Liste ve veriler değişken olduğu için (yani listeyi her gün güncelliyorum) toplam aldırıken sıkıntı yaşıyorum. Ve bu işlemi makro ile yapmak istiyorum.

 

[Levent Menteşoğlu]

Aşağıdaki kodu deneyin.

[vb:1:148163f104]Sub topla()
For a = 5 To [a65536].End(3).Row + 1
c = Cells(a, "b") + c
If Cells(a, "b") = 0 Then
Cells(a, "b") = c
c = 0
End If
Next
End Sub
[/vb:1:148163f104]

 

[Ali]

Bunu bir butona atayıp, buton iki kez tıklayınca hesap edilenin üstüne ilave etmez mi? :düsün:

 

[Levent Menteşoğlu]

Bunu bir butona atayıp, buton iki kez tıklayınca hesap edilenin üstüne ilave etmez mi?

Haklısınız eder; şimdi yukarıdaki kodda küçük bir düzeltme yaptım.

 

[Ali]

Ellerinize sağlık faydalanacağımız bir çalışma oldu. :bravo:

 

[Korhan Ayhan]

Çok teşekkür ederim. :hey:

 

[kerem yüce]

Selam Kodu birden fazla sütüna uygulamak için nasıl değişiklikler yapmak gerekir. Tşk.

 

[dost]

Sayın COST_CONTROL,

Sayın leventm sorunuzu cevaplamış. Kendisinin izni ile, ayrıca alternatif olması açısından ve hız olarak da bayağı hızlı çalışan örnek dosya ektedir.

Kolay gelsin.

 

[kerem yüce]

Teşekkürler Dost ama aynı işlemi sadece B sütununda değilde C, D, ve E vb. sütunlarda da yapmak istersek ne yapmamız gerekiyor. Þimdiden teşekkürler.

 

[Korhan Ayhan]

Sizede ilginizden dolayı teşekkür ederim Sn. dost :arkadas:

 

[dost]

Sayın Yüce,

Yalnızca bir sütunda yapmak isterseniz, örneğin "D" sütununda yapmak isterseniz;

For Each alan In Columns("D").SpecialCells(xlConstants, xlNumbers).Areas

satırını yukarıdaki şekilde değiştiriniz.

Birden fazla sütunda aynı anda yapmak isterseniz, ardışık sütunlar olmayabilir diye alttoplam aldırmak istediğiniz sütunları sutunlar dizine girerseniz istediğiniz olur.

Sub AltToplamAl()

    toplam = 0
    sutunlar = Array("B", "C", "D")
    
    For i = 0 To UBound(sutunlar)
        For Each alan In Columns(sutunlar(i)).SpecialCells(xlConstants, xlNumbers).Areas
        
            SumAdres = alan.Address(False, False)
            toplam = WorksheetFunction.Sum(Range(SumAdres))
            alan.Offset(alan.Count, 0).Resize(1, 1) = toplam
            toplam = 0
        
        Next alan
    Next i
    
End Sub

 

[kerem yüce]

Çok teşekkürler Dost tam istediğim gibi bende daha önceki kodu alta bir daha kopyalayıp sütun harfini değiştirmek gibi ipridai bir yol bulmuştum şimdi daha kolay olacak sayende. Tekrar teşekkürler.