EVualete ve toplaçarpım ile 2 kritere uyan kod

[Orion1]

Merhaba arkadaşklr.
EVualete ve toplaçarpım ile 2 kritere uyan satırların sayısını bulan kod u nasıl yapmalıyım.Aşağıdaki function için yazdığım kod hata verdi
Kriter1 tarih,Kriter2 sayısal bir değer

Function bul(Kriter1, Kriter2)
bul = Evaluate("=SumProduct((A3:A65536=" & Kriter1 & ")*(B3:B65536=" & Kriter2 & "))")
MsgBox bul
End Function

 

[Orion1]

Kriter1 tarih olduğu için hata veriyormuş.
CDBL fonksiyonu ile double biçime çevirince çalıştı.
İlgilenen arkadaşlara teşekkür ederim.

Function bul(Kriter1, Kriter2)
bul = Evaluate("=SumProduct((A3:A65536=" & CDbl(Kriter1) & ")*(B3:B65536=" & Kriter2 & "))")
End Function