İki tarih arası aralık belirleyip sağındaki sütunda arama yapmak

[kelkitli]

Değerli Dostlar Selamlar,
B1 hücresindeki tarih ile B3 hücresindeki tarihlerin G sütununda aranarak 2 tarih arasında I sütununa bakılarak bu alanda kaç tane "0" rakamı olduğunu J1 hücresine yazdırmak,
Aynı tarihler arasında E2:E13 aralığında bulunan tarih kaç adet J2 hücresine yazdırmak istiyorum.
Bunu kod ile yapmak istiyorum.

 

[Korhan Ayhan]

Selamlar,

Aşağıdaki kodu denermisiniz.

Sub TARİH_ARALIĞINDA_SIFIR_VE_ÖZEL_GÜN_SAY()
    İLK_TARİH = CLng(Sheets("Sayfa1").[B1])
    SON_TARİH = CLng(Sheets("Sayfa1").[B3])
    [J1] = Evaluate("=SUMPRODUCT((G2:G100>=" & &#304;LK_TAR&#304;H & ")*(G2:G100<=" & SON_TAR&#304;H & ")*(I2:I100=0))")
    [J2] = Evaluate("=SUMPRODUCT((G2:G100>=" & &#304;LK_TAR&#304;H & ")*(G2:G100<=" & SON_TAR&#304;H & ")*((G2:G100=E2)+(G2:G100=E3)+(G2:G100=E4)+(G2:G100=E5)+(G2:G100=E6)+(G2:G100=E7)+(G2:G100=E8)+(G2:G100=E9)+(G2:G100=E10)+(G2:G100=E11)+(G2:G100=E12)+(G2:G100=E13)))")
End Sub

 

[kelkitli]

Sn.COST_CONTROL Selamlar,
Cevabınız için teşekkür ederim. Güzel olmuş emeğinize sağlık. Sizlerden ve bu foruma emeği geçenlerden Allah razı olsun. Ne kadar güzel.