Sumproduct hk.

[kemal turan]

Merhaba
2 adet İsteğim olacak.
Birincisi. (Kasa devreden nakit tutar)
Bilgiler..
Veritabanı I sutunu Tarihtir.
Veritabanı C sutunu kasa ise
Veritabanı D sutunu nakit ise
I Sutunundaki tarih Textbox34 den küçük ise AT sutununu topla.textbox14 de göster.
İkincisi (iki tarih arası toplam)
2 adet tarih içeren textbox var
Textbox1 ve textbox2
Textbox1 Textbox2 tarıh arasında yukarıda şartlar dahilinde yine AT sutunundan toplam alacak koda ihtiyacım var.
Teşekkür ederim
Not tlf.dan yazdığımdan dolayı hatam varsa kusura bakmayın

 

[Korhan Ayhan]

Kendinize göre uyarlarsınız.

Private Sub CommandButton1_Click()
    Set S1 = Sheets("Veritabanı")
    
    Veri = WorksheetFunction.SumIfs(S1.Range("AT:AT"), S1.Range("C:C"), "KASA", S1.Range("D:D"), "NAKİT", S1.Range("I:I"), "<" & CLng(CDate(TextBox34.Value)))
    TextBox14.Value = Format(Veri, "Currency")
    
    Veri = WorksheetFunction.SumIfs(S1.Range("AT:AT"), S1.Range("C:C"), "KASA", S1.Range("D:D"), "NAKİT", S1.Range("I:I"), ">=" & CLng(CDate(TextBox1.Value)), S1.Range("I:I"), "<=" & CLng(CDate(TextBox2.Value)))
    TextBox15.Value = Format(Veri, "Currency")
End Sub

 

[kemal turan]

Sn.Korhan Hocam
Çok teşekkür ederim.
Hakkınızı helal ediniz.
Selametle