VB veya makro ile iki tarih aralığındaki veriyi toplama

[mehmetacembaba]

sumifs ve sumproduct fonksiyonlarını sitede araştırdım. çıkan sonuçlar excel içinde kullanımı ile ilgiliydi. bu komutları vb olarak nasıl kullanabiliriz. verdiğim kriterlerde tarih değerlerinde "type mitsmach" hatasını aldım. string aramalarda hiç sorun yaşamadım. bu sorundan nasıl kurtulabiliriz. saygılarımla...

 

[Zeki Gürsoy]

Merhaba,

şu iki anahtar ile ararsanız, doğru başlıklarını bulacaksınız.

"WorksheetFunction"

"Evaluate"

 

[mehmetacembaba]

neyse ilginiz için teşekkürler
olayı sumifs ile çözdüm. çözümüm

Ay = AyCombo.ListIndex + 1
Yil = YilCombo.Value
Criter1 = Format(DateSerial(Yil, Ay, 1), "00000") 'ayın başlangıç tarihi
Criter2 = Format(DateSerial(Yil, Ay + 1, 0), "00000") 'ayın bitiş tarihi

GelirTop = Application.WorksheetFunction.SumIfs _
(Sheets("Hesap Hareket").Range("H3:H65530"), _
Sheets("Hesap Hareket").Range("A3:A65530"), "=GELİR", _
Sheets("Hesap Hareket").Range("B3:B65530"), "=CARİ", _
Sheets("Hesap Hareket").Range("D365530"), ">=" & Criter1, _
Sheets("Hesap Hareket").Range("D365530"), "<=" & Criter2)