Soru Vba ile çoketopla Sumifs (Örnek Dosya Paylaşıldı)

[f4tih]

ekte sunduğum excel dosyası içerisindeki ürünler sayfam bu şekilde.

Private Sub Doldur_Click()
For i = 5 To 288
hafta1tarih1 = Range("c3")
hafta1tarih2 = Range("c4")
Cells(i, 3) = Application.WorksheetFunction.SumIfs(Sheets("SHR").Range("K:K"), Sheets("SHR").Range("A:A"), Cells(i, 1), Sheets("SHR").Range("C:C"), ">=" & CDbl(CDate(hafta1tarih1)), Sheets("SHR").Range("C:C"), "<=" & CDbl(CDate(hafta1tarih2)))
Next i
End Sub


Kodlarım yukarıdaki şekilde. Benim yapmak istediğim. yine getir butonu üzerinden diğer sütunlarıda aynı döngü içerisinde doldurmak. Yani ben getire bastığımda diğer sütunlar içinde toplamları getirsin.

 

[GursoyC]

Bu şekilde dener misiniz.

Private Sub Doldur_Click()
For k = 3 To 12
For i = 5 To 288
hafta1tarih1 = Cells(3, k)
hafta1tarih2 = Cells(4, k)

Cells(i, k) = Application.WorksheetFunction.SumIfs(Sheets("SHR").Range("K:K"), Sheets("SHR").Range("A:A"), Cells(i, 1), Sheets("SHR").Range("C:C"), ">=" & CDbl(CDate(hafta1tarih1)), Sheets("SHR").Range("C:C"), "<=" & CDbl(CDate(hafta1tarih2)))

Next i
Next k
End Sub

 

[f4tih]

Tşk ederim hocam.

 

[GursoyC]

Rica ederim.