vba'da sumproduct

[Erdem Akdemir]

ekteki soruya göre aşağıdaki kodu yazdım ama devamlı hata alıyorum

Sub topla()
Dim sonuc As Long
Dim rngc As Range
Dim rngi As Range
Set rngc = Range("a2:a119")
Set rngi = Range("i2:i119")
sonuc = Evaluate("SumProduct((Left(rngc.adress, 1) = [a122]) * (rngi.adress))")
MsgBox sonuc
End Sub

 

[mustafaine1]

Application.WorksheetFunction.Sumproduct seklinde yazilmasi gerekiyor olabilir mi?

 

[Erdem Akdemir]

bu şekilde de olmadı

devamlı hata veriyor

sumproduct'ı vba'da nasıl kullanıcaz

 

[Ömer]

Merhaba,

Örnek ekleyip yapmak istediğinizi açıklarsanız daha net cevaplar alırsınız.

Evaluate("=SumProduct((

bu şekilde deneyin.

 

[mustafaine1]

sevgili kuvari a122`nin mismatch hatasi verdigini saniyorum bu hatadan kurtulmak icin (a=b)`yi
(" & a & "=" & Chr(34) & b & Chr(34) & ") seklinde yazmak gerekiyor, sanirim =[a122] yazinca bu tarz bir hata olusuyor. a122 iyi atama yaparak yazmayi denermisiniz belki bir sansimiz olabilir, dosyayi ekleyebilirseniz vakit ayirmaktan memnuniyet duyarim..

 

[Erdem Akdemir]

Merhaba,

Örnek ekleyip yapmak istediğinizi açıklarsanız daha net cevaplar alırsınız.

Evaluate("=SumProduct((

bu şekilde deneyin.

soru'yu eklediğimi sanıyordum

 

[Erdem Akdemir]

sevgili kuvari a122`nin mismatch hatasi verdigini saniyorum bu hatadan kurtulmak icin (a=b)`yi
(" & a & "=" & Chr(34) & b & Chr(34) & ") seklinde yazmak gerekiyor, sanirim =[a122] yazinca bu tarz bir hata olusuyor. a122 iyi atama yaparak yazmayi denermisiniz belki bir sansimiz olabilir, dosyayi ekleyebilirseniz vakit ayirmaktan memnuniyet duyarim..

hepsini denedim devamlı hata alıyorum

ilk mesaja örnek ekledim

 

[Korhan Ayhan]

Selamlar,

A harfi hangi sütunda aranacak ve karşılığında hangi sütundaki veri toplanacak?

 

[Erdem Akdemir]

Selamlar,

A harfi hangi sütunda aranacak ve karşılığında hangi sütundaki veri toplanacak?

orda bir hata yapmışım

c sütununda aranacak

I sütunundan toplanacak

 

[Korhan Ayhan]

Selamlar,

Aşağıdaki kodu denermisiniz.

Option Explicit
 
Sub Topla()
    Dim Sonuç As Currency
    Dim Aralık1 As String
    Dim Aralık2 As String
    Dim Kriter As String
    Aralık1 = "C2:C1000"
    Aralık2 = "I2:I1000"
    Kriter = "A"
    Sonuç = Evaluate("=SumProduct((Left(" & Aralık1 & ", 1)= """ & Kriter & """)*(" & Aralık2 & "))")
    MsgBox Sonuç
End Sub

 

[mustafaine1]

tesekkurler korhan bey bende aydinlanmis oldum..

 

[Korhan Ayhan]

Selamlar,

Ondalıklı değerleri görmek için koddaki Sonuç değişkeninin tanımlamasını değiştirdim. Bu şekilde kullanmanız daha doğru olacaktır.

 

[Erdem Akdemir]

Selamlar,

Ondalıklı değerleri görmek için koddaki Sonuç değişkeninin tanımlamasını değiştirdim. Bu şekilde kullanmanız daha doğru olacaktır.

korhan bey yardımlarınız için teşekkür ederim

hiç beklemediğim bir şekilde yapmışsınız

ben daha basit bir hata yapıyorum sanmıştım