Aylık satış raporu alma

[seddur]

Merhabalar.Ekli dosyada bulunan listviev'e 12 aylık satış toplamlarını ay ay dökümünü yaptırmak istiyorum.Satış tutarları "G" sutununda,tarihler "C" sutununda bulunmaktadır.Yapılan dökümün önümüzdeki yılları da kapsaması daha iyi olacaktır.Yardımcı olabilecek arkadaşa Teşekkür Ederim.

 

[seddur]

Aşağıdaki kod ile textboxlara veri girerek iki tarih arası döküm alabiliyorum ama bu yöntem biraz uzun geliyor.Tek seferde 12 aylık dökümü sadece "G" sutunundaki rakamları toplatarak kısa yoldan alamazmıyız.?

Set S1 = Sheets("Anasayfa")
For i = 15 To S1.Cells(Rows.Count, "c").End(xlUp).Row
If CLng(CDate(Cells(i, "c").Value)) >= CLng(CDate(TextBox1.Value)) And CLng(CDate(Cells(i, "c").Value)) <= CLng(CDate(TextBox2.Value)) Then


Set List = .ListItems.Add(, , S1.Cells(i, "a").Text)
List.ListSubItems.Add , , S1.Cells(i, "c").Text
List.ListSubItems.Add , , S1.Cells(i, "f").Text
List.ListSubItems.Add , , S1.Cells(i, "g").Text
List.ListSubItems.Add , , S1.Cells(i, "h").Text

 

[seddur]

Yukarıya yazdığım kod yanlış oldu kullandığım kodu aşağıda yeniden paylaşıyorum.(Textboxlar aa2 ve aa3 hücrelerine bağlı.)

Sheets("Anasayfa").TextBox17.Value = Application.WorksheetFunction.SumIfs(Sheets("Anasayfa").Range("g14:g50000"), Sheets("Anasayfa").Range("C14:C50000"), ">=" & CDbl(CDate(Sheets("Anasayfa").Range("aa2"))), Sheets("Anasayfa").Range("C14:C50000"), "<=" & CDbl(CDate(Sheets("Anasayfa").Range("aa3"))))

 

[Ziynettin]

#2. ve #3. mesajda textboxlar userformda yok.


#1. mesajdaki sorunuza ait ay yıl seçenekli çalışma.

 

[seddur]

2021 yılının dışında bir yıl seçersem toplama yapmıyor.

 

[Ziynettin]

C2, C3 ve C4 tarihlerini 2022 olarak denedim toplama işlemi oluyor.

 

[seddur]

C2 hücresinde aşağıdaki satır hata veriyor.Diğer hücrelerde sorun yok çalışıyor.
dc(krt) = dc(krt) + CDbl(a(i, 5) + 0)

 

[seddur]

Tamamdır.satırı silince düzeldi.Tekrar Teşekkür ediyorum.