ÇOKETOPLA Formülünü kullanabilirsin.
Örneğin N7 Hücresine
Kod:
=ÇOKETOPLA(G:G;B:B;">=01.07.2021";B:B;"<=31.07.2021")
Ya da alttaki Makroyla hesaplatabilirsiniz
Kod:
Range("N7:Q12") = ""
For x = 7 To 11
Cells(x, 14).Formula = "=SumIfs(G:G,B:B,"">=01." & x & ".2021"",B:B,""<01." & x + 1 & ".2021"")"
Cells(x, 15).Formula = "=SumIfs(H:H,B:B,"">=01." & x & ".2021"",B:B,""<01." & x + 1 & ".2021"")"
Cells(x, 16).Formula = "=SumIfs(I:I,B:B,"">=01." & x & ".2021"",B:B,""<01." & x + 1 & ".2021"")"
Cells(x, 17).Formula = "=Sum(N" & x & ":P" & x & ")"
Next x
For t = 14 To 17
Cells(x, t) = WorksheetFunction.Sum(Range(Cells(7, t), Cells(11, t)))
Next t