SUMPRODUCT kodunda hata

[tamer42]

Merhabalar,

Aşağıdaki kodu birtürlü çalıştıramadım, hata veriyor,

Sheets("Plann") içerisinde "C2:C2400" aralığında 1 olanlarla; "AK2:2400" aralığı "KAP" olanları saydırmak istiyorum.

Sub TOPLA_CARP()

deger1 = 1
deger2 = "KAP"
a = Evaluate("SUMPRODUCT((Plann!C2:C2400=""" & deger1 & """)*(Plann!AK2:2400=""" & deger2 & """ ))")
msgbox a

End Sub

İyi Çalışmalar.

 

[veyselemre]

A = Evaluate("SUMPRODUCT((Plann!C2:C2400=" & deger1 & ")*(Plann!AK2:AK2400=""" & deger2 & """))")

 

[tamer42]

Sn Veyselemre teşekkürler.

Öğrenmek açısından;

 =" & deger1 & "

=""" & deger2 & """

buradaki deger2 ifadesini """ arasına almadaki espri nedir?

İyi Çalışmalar.

Kolay gelsin.

 

[Haluk]

Çünkü,

deger1 = 1 >>>> numeric

deger2="KAP" >>> string