Yıla göre toplam alma

[seddur]

Merhaba.Ekran alıntısından görüldüğü üzere aşağıdaki kod ile VERİLER sayfası "L" sutunundaki toplamları "C" sutunundaki aylara göre Anasayfa "O" sutununda ay ay listeliyorum.Yapmak istediğim Anasayfa "G2" sutununda bulunan yıl verisine göre toplam alsın.Yani 2022 yılıni ayrı 2023 yılını ayrı toplasın.Yıllar VERİLER sayfası "D" sutununda bulunmaktadır.Yardımcı olacak arkadaşa Teşekkür ederim.


Dim i As Integer
Dim ShV As Worksheet
Dim ShA As Worksheet
Dim s1 As Worksheet
Dim s2 As Worksheet
Dim j As Byte
Set ShV = Sheets("VERİLER")
Set ShA = Sheets("ANASAYFA")
i = ShV.Cells(Rows.Count, "B").End(3).Row
ShA.Select
For j = 3 To 14
Range("O" & j).Formula = "=SUMIF(VERİLER!C2:C" & i & ",G" & j & ",VERİLER!L2:L" & i & ")"


Next j

 

[EmrExcel16]

Merhaba , yıl değişikliği yaptığınız yerde çalışan kodlarınızın altına ekleyerek deneyiniz..

With ThisWorkbook.Sheets("ANASAYFA").Range("S3:U14")
    .Formula = "=SUMIFS(VERİLER!C12,VERİLER!C4,R2C7,VERİLER!C3,RC7,VERİLER!C10,""*""&R2C&""*"")"
    .Value = .Value
End With

 

[seddur]

Kod için Teşekkür ederim.Kod ANASAYFA da boş sutuna kayıt yaptığı halde benim istediğim ANASAYFA "O" sutununa kayıt yapmıyor.Nedenini bulamadım.Acaba vaktiniz varsa dosyaya bir de siz bakabilirmisiniz.Kod ANASAYFA da commandbutton1 de yazılı.
https://s5.dosya.tc/server6/ytjnx6/Apartman.34.xlsm.html

 

[EmrExcel16]

"O2" hücresine yapıştırıp aşağıya doğru çekiniz.

=ÇOKETOPLA(VERİLER!$L:$L;VERİLER!$D:$D;$G$2;VERİLER!$C:$C;$G3)

 

[EmrExcel16]

Kod olarak isterseniz de aşağıdaki gibi deneyiniz..

Sub Test()
    With ThisWorkbook.Sheets("ANASAYFA")
        .Range("S3:U14").Formula = "=SUMIFS(VERİLER!C12,VERİLER!C4,R2C7,VERİLER!C3,RC7,VERİLER!C10,""*""&R2C&""*"")"
        .Range("S3:U14").Value = .Range("S3:U14").Value
        .Range("O3:O14").Formula = "=SUMIFS(VERİLER!C12,VERİLER!C4,R2C7,VERİLER!C3,RC7)"
        .Range("O3:O14").Value = .Range("O3:O14").Value
    End With
End Sub

 

[Tefo]

Kod olarak isterseniz de aşağıdaki gibi deneyiniz..

Sub Test()
    With ThisWorkbook.Sheets("ANASAYFA")
        .Range("S3:U14").Formula = "=SUMIFS(VERİLER!C12,VERİLER!C4,R2C7,VERİLER!C3,RC7,VERİLER!C10,""*""&R2C&""*"")"
        .Range("S3:U14").Value = .Range("S3:U14").Value
        .Range("O3:O14").Formula = "=SUMIFS(VERİLER!C12,VERİLER!C4,R2C7,VERİLER!C3,RC7)"
        .Range("O3:O14").Value = .Range("O3:O14").Value
    End With
End Sub

Merhabalar,
Veriler sayfasından almış olduğunuz verileri başka bir çalışma kitabından aldırma imkanımız var mıdır? Teşekkür ederim şimdiden.