topla çarpım

[acar6783]

Kolay gelsin arkadaşlar,

Formülle spnuç veren topla çarpım kod ile 0 değerini veriyor.
Neden ola ki acaba ?

WorksheetFunction.SumProduct([d4:d18], [e4:e18])

=TOPLA.ÇARPIM(D4:D18*E4:E18)

 

[acar6783]

Not: Alandaki verilerde metin biçiminde sayılar mevcut

 

[Ömer BARAN]

Merhaba.
Aşağıdaki şekilde istediğiniz elde edilebiliyor sanırım.
.

sonuç = Evaluate("=SumProduct(D4:D18*E4:E18)")

 

[acar6783]

Bunu da denemiştim ama Type mismatch hatası vermişti.

İşin garibi formulle sonuçlanan sey neden kodlarla çıkmaz?

 

[Ömer BARAN]

Sayın acar, denemeden cevap yazma alışkanlığım yok.
Belge ekte.
.

 

[Korhan Ayhan]

Ekteki örnek dosyada doğru sonuç vermedi.

 

[acar6783]

Ekteki dosya anlatamadığımı daha açık hale getirdi sanırım..

Hücreler Tl formatında olduğundan sanırım işlem yapmıyor.

Fakat formülle bu hata olmuyor.
Eğer kodlarla olmazda yardımcı hücre kullanacağım artık
Bu da veriler çok olduğunda yavaşlamaya sebep olabilir gibi

 

[Korhan Ayhan]

Merhaba,

Son eklediğiniz dosyaya göre aşağıdaki kodu kullanabilirsiniz. Sonucu A1 hücresine yazar.

Sub TEST()
    With Range("A1")
        .Formula = "=SUMPRODUCT(D21:D35*SUBSTITUTE(E21:E35,"" TL"",""""))"
        .Value = .Value
    End With
End Sub

 

[acar6783]

Merhaba,

Son eklediğiniz dosyaya göre aşağıdaki kodu kullanabilirsiniz. Sonucu A1 hücresine yazar.

Sub TEST()
    With Range("A1")
        .Formula = "=SUMPRODUCT(D21:D35*SUBSTITUTE(E21:E35,"" TL"",""""))"
        .Value = .Value
    End With
End Sub

Hücreye değil de faklı bir değere alamamıyız?

En basitinden msgbox' a

 

[acar6783]

Sub TEST()
    Range("D15").Value = Evaluate("=SUMPRODUCT(D4:D7*SUBSTITUTE(E4:E7,"" TL"",""""))")
     
   
End Sub

Bu neden doğru sonucu vermiyor?
#DEĞER! hatası veriyor.