Koşula bağlı toplama

[flz82]

Merhaba,
Ekte kişilerin izinli olduğu iş günlerini toplamaya çalıştığım tablonun bir kısmı var. Amacım kişilerin izinli oldukları iş günlerini toplatmak. Liste çok uzun ben bir yolunu bulamadım, yardımcı olursanız sevinirim.

 

[Korhan Ayhan]

Merhaba,

Bir yardımcı sütun kullanarak saydırma işlemini kolaylıkla yapabilirsiniz.

"A" sütununu seçin.
CTRL+ tuşlarına basıp boş sütun ekleyin.

A3 hücresine aşağıdaki formülü uygulayın. Alt hücrelere sürükleyin.

=EĞER(B3="";"";EĞER(B3="Yıllık İzin";A2;B3&"Yıllık İzin"))

Daha sonra F3 hücresine aşağıdaki formülü uygulayın ve alt hücrelere sürükleyin.

=EĞER(YADA(B3="";B3="Yıllık İzin");"";ETOPLA(A:A;B3&"Yıllık İzin";E:E))

İstediğiniz sonucu elde etmiş olacaksınız.

 

[flz82]

Çok teşekkür ederim Korhan Bey, iyi çalışmalar

 

[flz82]

Korhan Bey anlayamadığım bir kısım var ama, benim istediğim E sütunundaki toplamları el etmek. Sizin yazdığınız 2. formül ancak e sütununda toplam varsa çalışıyor.

 

[hamitcan]

Bende bir çözüm ürettim.

Sub IZIN()
    Dim arr()
    For i = 6 To [a65536].End(3).Row
        If Cells(i, 1) = "" Then
            c = c + 1
            ReDim Preserve arr(0 To c)
            arr(0) = 5
            arr(c) = i
        End If
    Next
    c = c + 1
    ReDim Preserve arr(0 To c)
    arr(c) = [a65536].End(3).Row
    
    On Error Resume Next
    x = 3
    Columns(6).Clear
    For j = 0 To UBound(arr)
       Cells(x, "f") = WorksheetFunction.Sum(Range("d" & arr(j) & ":" & "d" & arr(j + 1)))
       x = arr(j + 1) + 1
    Next
    MsgBox "Bitti"
End Sub

 

[Korhan Ayhan]

"E" sütunundaki formüllerinizi unutun.

Siz "A" sütununa boş bir sütun eklediğinizde "E" sütunu otomatik olarak "F" sütununa kayacaktır. Yani tablonuz sağa doğru kayacaktır. Doğal olarak benim size F3 hücresine uygulayın dediğim formül aslında sizin "E" sütununuzu ifade etmektedir.

 

[flz82]

Teşekkür ederim Hamitcan bey, elinize sağlık, iyi çalışmalar

 

[flz82]

Tamam Korhan Bey, anladım şimdi teşekkür ederim.