Tür Uyuşmazlığı Sorunu

[SadiSerdari]

Arkadaşlar aşağıdaki makro ile işlem yaptığımda tür uyuşmazlığı hatası alıyorum.

    tarih = DateValue("21.02.2013")
    deger1 = "Aldı"
    sonuc = WorksheetFunction.SumProduct((Range("H1:H69") = tarih) * (Range("J1:J69") = deger1) * (Range("G1:G69")))

H1:H69 aralığı tarih,
J1:J69 aralığı metin
G1:G69 aralığı sayı olarak tanımlı
tarih ve deger1 aralığını kıstas alarak alınan miktarı hesaplıyor.
Sayfa da işlem yaptığımda sorun olmuyor.

=TOPLA.ÇARPIM((H1:H69=TARİHSAYISI("21.02.2013"))*(J1:J69="Aldı")*(G1:G69))

Yardımcı olabilirseniz sevinirim. Teşekkürler.

 

[Ömer]

Merhaba,

Linki inceleyiniz.

Topla.Carpim(Sumproduct)Fonksiyonunun Vba Icindeki Farkli Kullanimlari

.

 

[SadiSerdari]

Ömer Bey; inceledim ancak bilgi eksikliği sanırım bir sonuç elde edemedim.
=TOPLA.ÇARPIM((H1:H69=TARİHSAYISI("21.02.2013"))*(J1:J69="Aldı")*(G1:G69))
bu kısmı makro olarak dönüştürebilirsek çok iyi olacak.

 

[Ömer]

    tarih = "21.02.2013"
    deger1 = "Aldı"
 
    [C1] = "=SumProduct((H1:H69=""" & tarih & """+0)*(J1:J69=""" & deger1 & """)*(G1:G69))"

Formülü C1 hücresine yazar. İstediğiniz bu değilde daha detaylı açıklama yaparmısınız.

.