Topla.Çarpım VBA hatası

[vardar07]

Arkadaşlar R1C1 şeklinde Topla.Çarpım çalışırken A1 stilinde type mismatch hatası veriyor bir türlü aşamadım.
Not: office 2007 kullanmaktayım.

Sub Makro1()
  [B1] = "=SUMPRODUCT((RC[-1]:R[5]C[-1]<1)* (RC[-1]:R[5]C[-1]))"
  [C1] = WorksheetFunction.SumProduct((Range("A1:A5") < 1) * (Range("A1:A5")))
End Sub

 

[Korhan Ayhan]

Aşağıdaki gibi deneyiniz.

[C1] = WorksheetFunction.SumProduct(("A1:A5")<1)*("A1:A5"))

 

[vardar07]

Aşağıdaki gibi deneyiniz.

Sayın Korhan bey nette çok aradım ancak fazla ingilezcem olmadığı için birçok yol denedim olmadı Önerinizi acaba yanlış mı yapıyorum dedim tekrar denedim lakin aynı hata veriyor. Peki Range olayını R1C1 içine adapte edebilirmiyiz.,
mesela :

[C1] = WorksheetFunction.SumIf(Range("A1:A9"), "<1")

kodu normal çalışıyor.

 

[Merhum İdris SERDAR]

.

VBA'da SUMPRODUCT işlevi bildiğim kadarıyla,

[C1] = WorksheetFunction.SumProduct((Range("A1:A5") < 1) * (Range("A1:A5")))

şeklinde çalışmaz.

Aşağıdaki şekillerde olur.

Sub Makro1()

  [B1] = "=SUMPRODUCT((RC[-1]:R[5]C[-1]<1)* (RC[-1]:R[5]C[-1]))"
  
  [C1] = Evaluate("=SUMPRODUCT(--(A1:A5<1),--(A1:A5))")
  
  [D1].FormulaLocal = "=SUMPRODUCT((A1:A5<1)*(A1:A5))"

  [E1] = Evaluate("=SUMPRODUCT((A1:A5<1)*(A1:A5))")
 
End Sub

.

 

[Korhan Ayhan]

Merhaba,

TOPLA.ÇARPIM fonksiyonu WorksheetFunction yöntemi ile dizilerin çarpımında hiç kriter olmadan sonuç üretiyor.

MsgBox WorksheetFunction.SumProduct([A1:A5], [A1:A5])

Fakat işin içine bir kriter girse dahi sonuç üretmiyor.

MsgBox WorksheetFunction.SumProduct([A1:A5<1], [A1:A5])

Bu sebeple WorksheetFunction yöntemi yerine Evalute yöntemini kullanarak sonuca gidebilirsiniz.

İdris beyde bununla ilgili örnekleri zaten verdi. İhtiyacınıza göre kullanabilirsiniz.

 

[vardar07]

İdris bey ve Korhan bey ilgilerinize teşekkürler ederim. Anlaşılan 2007 ve altında bu sorun var. Yeni bir çözüm buluncaya kadar. aşağıdakilerden biri hariç kullanmak. Sağ olun var olun.

Sub Makro1()

  [B1] = "=SUMPRODUCT((RC[-1]:R[5]C[-1]<1)* (RC[-1]:R[5]C[-1]))"
  
  [C1] = Evaluate("=SUMPRODUCT(--(A1:A5<1),--(A1:A5))")
  
  [COLOR="Red"][B][D1].FormulaLocal = "=SUMPRODUCT((A1:A5<1)*(A1:A5))"[/B][/COLOR]  #AD? hatası veriyor.

  [E1] = Evaluate("=SUMPRODUCT((A1:A5<1)*(A1:A5))")
 
End Sub

 

[Merhum İdris SERDAR]

.
Sayın Vardar07,

Bunu;

 [D1].FormulaLocal = "=SUMPRODUCT((A1:A5<1)*(A1:A5))"

 [D1].FormulaLocal = "=TOPLA.ÇARPIM((A1:A5<1)*(A1:A5))"

şeklinde dener misiniz?

.

 

[vardar07]

Fikrinize sağlık . Çok teşekkürler.

 

[Korhan Ayhan]

Sn. vardar07,

2016 versiyonda aynı sorun devam ediyor. Anlaşılan Microsoft bununla ilgili geliştirme yapmıyor. Ancak yeni fonksiyonlar var. Onlar kullanılabilir.

... Anlaşılan 2007 ve altında bu sorun var. Yeni bir çözüm buluncaya kadar. aşağıdakilerden biri hariç kullanmak. Sağ olun var olun.