Alt tolpların toplamını alma

[koboy]

Merhaba

excel dosyam var
a b c d e sütününlarına değer girdim

a2 b2 c2 d2 e2 başlayıp
a5 b5 c5 d5 e5 bitiyor
bu bölümlere alttoplam aldırıyorum

bir kaç satır aşğıda başka bir işlem yapıyorum
a12 b12 c12 d12 e12 başlayıp
a20 b20 c20 d20 e20 bitiyor

alt toplam değeri varsa en alta genel toplam nasıl aldırabilirim

 

[Ömer]

Merhaba,

Sorunuzu örnek dosya ile desteklemenizi rica ederim.

.

 

[askm]

Alt toplamları aldırdığınız kısma A sütunlarına. Makroda döngü ile bu toplamları en alta toplam aldırabilirsiniz.

 

[koboy]

Merhaba dosya ekledim bilgi yazdım dosyada

Merhaba,

Sorunuzu örnek dosya ile desteklemenizi rica ederim.

.

 

[koboy]

askm merhaba nasıl yapabilirim makro ile dosya ekledim yardımcı olursanız memnun olurum

Alt toplamları aldırdığınız kısma A sütunlarına. Makroda döngü ile bu toplamları en alta toplam aldırabilirsiniz.

 

[askm]

Aşağıdaki kodları deneyin.

Sub askm()
Dim SonSat As Long
SonSat = Range("B" & Rows.Count).End(xlUp).Row
Toplam1 = 0
Toplam2 = 0
Toplam3 = 0
Toplam4 = 0
For i = 6 To SonSat
    If Cells(i, 2) = "TOPLAM" Then
        Toplam1 = Toplam1 + Cells(i, 3)
        Toplam2 = Toplam2 + Cells(i, 4)
        Toplam3 = Toplam3 + Cells(i, 5)
        Toplam4 = Toplam4 + Cells(i, 6)
    End If
    If Cells(i, 2) = "GENEL TOPLAM" Then
        Cells(i, 3) = Toplam1
        Cells(i, 4) = Toplam2
        Cells(i, 5) = Toplam3
        Cells(i, 6) = Toplam4
    End If
Next i

End Sub

 

[koboy]

Merhaba g sütünunun toplamını nasıl alabilirim

Aşağıdaki kodları deneyin.

Sub askm()
Dim SonSat As Long
SonSat = Range("B" & Rows.Count).End(xlUp).Row
Toplam1 = 0
Toplam2 = 0
Toplam3 = 0
Toplam4 = 0
For i = 6 To SonSat
    If Cells(i, 2) = "TOPLAM" Then
        Toplam1 = Toplam1 + Cells(i, 3)
        Toplam2 = Toplam2 + Cells(i, 4)
        Toplam3 = Toplam3 + Cells(i, 5)
        Toplam4 = Toplam4 + Cells(i, 6)
    End If
    If Cells(i, 2) = "GENEL TOPLAM" Then
        Cells(i, 3) = Toplam1
        Cells(i, 4) = Toplam2
        Cells(i, 5) = Toplam3
        Cells(i, 6) = Toplam4
    End If
Next i

End Sub