Aylara Göre Kişilerin toplam aidat dağılımı

[Mdemir63]

Selamlar
Arkadaşlar ekteki dosyada aidatların olduğu sayfadan aylara ve isimlere göre icmal sayfasına toplayarak yazdırmak istiyorum. VBA ile nasıl yapılır?

Saygılar

 

[hamit]

Pivot olmaz mı?

 

[Mdemir63]

Selamlar
Sayın @hamit ilginize teşekkür ederim.
Tabi ki olabilir ama ben bunu Form üzerinden buton yardımıyla icmal sayfasına aktarıp çıktısını almak istiyorum.
Saygılar

 

[çıtır]

Deneyiniz.

Sub Ayicmal()
Dim s1 As Worksheet: Dim s2 As Worksheet
Dim son1 As Long: Dim son2 As Long
Set s1 = Sheets("aidat")
Set s2 = Sheets("icmal")
    son1 = s1.Cells(1048541, "B").End(3).Row
    son2 = s2.Cells(1048541, "A").End(3).Row
   For sat = 3 To son2 Step 4
   For sut = 1 To 12
ılk = CDbl(CDate(DateValue("2020" & " /" & s2.Cells(sat, sut + 1) & "/" & "1")))
son = CDbl(CDate(WorksheetFunction.EoMonth(DateValue("2020" & " /" & s2.Cells(sat, sut + 1) & "/" & "1"), 0)))
s2.Cells(sat + 1, sut + 1) = Application.WorksheetFunction.SumIfs(s1.Range("D2:D" & son1), s1.Range("C2:C" & son1), ">=" & ılk, s1.Range("C2:C" & son1), "<=" & son, s1.Range("B2:B" & son1), s2.Cells(sat, 1))
Next sut
Next sat
MsgBox "İşlem tamam"
End Sub

 

[assenucler]

Sayın Çıtır,

Rapor sayfasındaki kişi sayısı 50 olursa, kodun hangi satırı değişir?
Yardımınız ve bilgilendirmeniz için önceden teşekkür ederim.

Saygılar,

 

[assenucler]

Sayın Çıtır,

Rapor sayfasındaki kişi sayısı 50 olursa, kodun hangi satırı değişir?
Yardımınız ve bilgilendirmeniz için önceden teşekkür ederim.

Saygılar,

 

[Mdemir63]

Selamlar
@çıtır Hocam elinize emeğinize sağlık. Teşekkür ederim

Saygılar

 

[Mdemir63]

Tekrar merhabalar
Hocam kodlardaki 2020 yıl bilgisini dinamik yapabilirmiyiz?

saygılar

 

[çıtır]

Sanırım icmal sayfasındaki kişi sayısı.Aynı düzende devam ederse değişikliğe gerek yok.2020 yılını bir hücre ile ilişkilendirerek dinamik yapabilirsiniz.

 

[Mdemir63]

Teşekkürler hocam.
Saygılar

 

[assenucler]

Aidat sayfası E1 hücresine Veri Doğrulama (2020;2021;2022) listesi ile seçim yaptığımda, kodun hangi satırını nasıl düzenlemeliyim?

 

[Tevfik_Kursun]

Sayın Çıtır Hocam,
Elinize, emeğinize sağlık. Ben de bu dosyaya uyarlamanızı istesem, çok mu ayıp etmiş olurum?
Saygılarımla

 

[çıtır]

Deneyiniz.

Sub Ayicmal()
Dim s1 As Worksheet: Dim s2 As Worksheet
Dim son1 As Long: Dim son2 As Long
Set s1 = Sheets("Sayfa1")
Set s2 = Sheets("Sayfa2")
    son1 = s1.Cells(1048541, "H").End(3).Row
    son2 = s2.Cells(1048541, "A").End(3).Row
   For sat = 4 To son2
   For sut = 1 To 12
ılk = CDbl(CDate(DateValue("2020" & " /" & s2.Cells(4, sut + 2) & "/" & "1")))
son = CDbl(CDate(WorksheetFunction.EoMonth(ılk, 0)))
s2.Cells(sat + 1, sut + 2) = Application.WorksheetFunction.SumIfs(s1.Range("K5:K" & son1), s1.Range("H5:H" & son1), ">=" & ılk, s1.Range("H5:H" & son1), "<=" & son, s1.Range("I5:I" & son1), s2.Cells(sat + 1, 2))
Next sut
Next sat
MsgBox "İşlem tamam"
End Sub

 

[çıtır]

Aidat sayfası E1 hücresine Veri Doğrulama (2020;2021;2022) listesi ile seçim yaptığımda, kodun hangi satırını nasıl düzenlemeliyim?

ılk = CDbl(CDate(DateValue(s2.Range("E1") & " /" & s2.Cells(sat, sut + 1) & "/" & "1")))
son = CDbl(CDate(WorksheetFunction.EoMonth(DateValue(s2.Range("E1") & " /" & s2.Cells(sat, sut + 1) & "/" & "1"), 0)))
şeklinde olabilir.

 

[Tevfik_Kursun]

Sayın Çıtır Hocam,
İlginize çok teşekkür ederim.
Saygılarımla

 

[çıtır]

Sayın Çıtır Hocam,
İlginize çok teşekkür ederim.
Saygılarımla

Rica ederim.Dönüş yaptığınız için teşekkür ederim.

 

[assenucler]

Sayın @çıtır,

İlginiz için teşekkürler. Üstadım aşağıdaki hata iletisini alıyorum.

 

[Ziynettin]

Alternatif;

Aidat sayfası E1 hücresine yıl girin ve kodu çalıştırın.

 

[assenucler]

Sayın @Ziynettin,

Üstadım ilgi ve yardımınız için teşekkür ederim. Rica etsem, rapor sayfasında "Genel Toplam" eklenmesi mümkün mü?

 

[Ziynettin]

Rapor sayfasında "Genel Toplam" eklenmesi mümkün mü?

 

[assenucler]

Teşekkürler ve saygılar üstadım.