"sarı satırlar arasındakileri topla" nasıl deriz ?

[cios106]

Selam arkadaşlar,
elle girilmiş datalar olsun ve sarı satırlar arasında olsun, bu satırlar arasındaki toplamları el ile yapıyorum ve bazen hata oluyor. Sarı satırlar arasını topla şeklinde bir formül nasıl yapabilirim.
Örnek için bir dosya yükledim. Teşekkürler.

Download link
https://wetransfer.com/downloads/34...86d2e4466a3ff52ba82f034d20190126165206/e6a727

 

[Merhum İdris SERDAR]

.

Dosyanız burada.

http://s2.dosya.tc/server6/p1a4iz/sarilar_arasini_topla.xlsx.html

.

 

[cios106]

.

Dosyanız burada.

http://s2.dosya.tc/server6/p1a4iz/sarilar_arasini_topla.xlsx.html

.

İdris Bey merhaba, ilginize teşekkürler, ancak;

Aslında çalıştığım dosya örneklediğim kadar basit değil, or fonksiyonuna satırda yazanları manuel tanımlamışsınız, çalışma dosyamda bu mümkün değil, örneği daha kapsamlı olan sheet-2 yi ekleyerek anlattım. Bu işi renkler arası bir hale getirebilir miyiz ?

Download
link

 

[Merhum İdris SERDAR]

.

Buna bakın.

Mantık aynı.

http://s2.dosya.tc/server6/bhph92/sarilar_arasini_topla__2_.xlsx.html

.

 

[askm]

İdris Beyin formülü ile =EĞER(SOLDAN(A2;6)<>"imalat";"";TOPLA(D2:$D$20)-TOPLA(E3:$E$20)) şekilde yazabilirsiniz.
Kod ile de aşağıdaki şekilde deneyin.

Sub askm()
Dim toplam As Long
toplam = 0
satir = 0
Application.Calculation = xlCalculationManual
Application.ScreenUpdating = False
On Error Resume Next
For i = 3 To 20 'Range("A" & Rows.Count).End(3).Row
    If Cells(i, 1).Interior.ColorIndex = 44 Then
        Cells(satir - 1, 5) = toplam
        toplam = 0
        satir = 0
    Else
        If satir = 0 Then satir = i
        toplam = toplam + CDbl(Cells(i, "D").Value)
    End If
Next i
Application.ScreenUpdating = True
Application.Calculation = xlCalculationAutomatic
MsgBox "İşlem tamam...", vbInformation, "ASKM"
End Sub

 

[Korhan Ayhan]

Alternatif;

J7 hücresine uygulayınız.

DİZİ formüldür.

=EĞER(SOLDAN($B7;3)<>"6.0";"";TOPLA(KAYDIR($I7;1;;EĞERHATA(KÜÇÜK(EĞER(SOLDAN($B7:$B$250;3)="6.0";SATIR($B7:$B$250));2)-SATIRSAY($J$1:$J7)-1;ARA(2;1/(C:C<>"");SATIR(C:C))))))

 

[cios106]

.

Buna bakın.

Mantık aynı.

http://s2.dosya.tc/server6/bhph92/sarilar_arasini_topla__2_.xlsx.html

.

İdris Bey,
Geç saatte olmasına rağmen yanıtladınız, teşekkürler. Çözüm çok güzel.

 

[cios106]

İdris Beyin formülü ile =EĞER(SOLDAN(A2;6)<>"imalat";"";TOPLA(D2:$D$20)-TOPLA(E3:$E$20)) şekilde yazabilirsiniz.
Kod ile de aşağıdaki şekilde deneyin.

Sub askm()
Dim toplam As Long
toplam = 0
satir = 0
Application.Calculation = xlCalculationManual
Application.ScreenUpdating = False
On Error Resume Next
For i = 3 To 20 'Range("A" & Rows.Count).End(3).Row
    If Cells(i, 1).Interior.ColorIndex = 44 Then
        Cells(satir - 1, 5) = toplam
        toplam = 0
        satir = 0
    Else
        If satir = 0 Then satir = i
        toplam = toplam + CDbl(Cells(i, "D").Value)
    End If
Next i
Application.ScreenUpdating = True
Application.Calculation = xlCalculationAutomatic
MsgBox "İşlem tamam...", vbInformation, "ASKM"
End Sub

Teşekkür ederim...

 

[cios106]

Alternatif;

J7 hücresine uygulayınız.

DİZİ formüldür.

=EĞER(SOLDAN($B7;3)<>"6.0";"";TOPLA(KAYDIR($I7;1;;EĞERHATA(KÜÇÜK(EĞER(SOLDAN($B7:$B$250;3)="6.0";SATIR($B7:$B$250));2)-SATIRSAY($J$1:$J7)-1;ARA(2;1/(C:C<>"");SATIR(C:C))))))

Teşekkür ederim.