Excel Sayfaları Toplama

[mustafagumrukcu]

Merhaba Arkadaşlar, Elimde bir excel dosyası var ve bu dosya yaklaşık 20.000 satırdan oluşuyor. Alt alta gelen sayfaların herbirinde aynı şablon var bu şablonda aynı sütun üzerinde alt alta rakamlar ve bir hücrede de bu rakların toplamı var. Yani isteiğim tam olarak şu.
Sayfanın aynı sütun üzerindeki her 53 satırda bir olan hücreleirini (örneğin: J:53, J:109, J:165 ...) toplamak istiyorum.

 

[Murat OSMA]

Bu kodları kullanabilirsiniz;

[FONT="Trebuchet MS"][SIZE="2"]Sub Emre()
    Dim i%, t#
    For i = 53 To Range("J65536").End(3).Row [COLOR="Red"]Step [/COLOR]56
        t = t + Cells(i, "J").Value
    Next i
    Range("K1").Value = t
    t = Empty: i = Empty
End Sub[/SIZE][/FONT]

 

[mustafagumrukcu]

Bu kodu nereye yazacağım. Çok profesyonel değilim kusura bakmayın

 

[YUSUF44]

Aşağıdaki kodları bir modüle yapıştırıp denerseniz J53'ten itibaren 56 satır atlayarak hücrelerin toplamını alır, en son J1 hücresine hepsinin toplamını yazar.

Mesajda 53 satır demişsiniz ancak örneğiniz 56 satır arttığı için ben de kodu 56 satır atlamaya göre yaptım. Ayrıca alınacak toplamın nereye yazılacağını belirtmediğiniz için de J1 hücresine yazılmasını kodladım. İsterseniz ilgili bölümleri (kırmızı yerler) değiştirebilirsiniz:

Sub topla()
son = Cells(Rows.Count, "J").End(3).Row
For i = 53 To son Step [COLOR="red"]56[/COLOR]
Top = Top + Cells(i, "J")
Next
[[COLOR="Red"]J1[/COLOR]] = Top
End Sub