Topla.Çarpım makrosu

[Yüksel Varlı]

Private Sub ComboBox1_Change()
değer = SumProduct(Sheets("sayfa1").Range("C3:C2000") = (ComboBox1.Value) * (Sheets("sayfa1")(Range("g3:g2000"))))
Label2.Caption = değer
End Sub

Kodu yazdım. Fakat olmadı :frown: yardım eder misiniz?

 

[Korhan Ayhan]

Aşağıdaki gibi deneyiniz.

Sub Makro1()
    deger = Evaluate("=SUMPRODUCT((Sayfa1!C3:C2000=""" & ComboBox1 & """)*(Sayfa1!G3:G2000))")
    MsgBox deger
End Sub

 

[Yüksel Varlı]

Teşekkürler Korhan

 

[monelogg]

Merhaba, bir şey sormak istiyordum, anladığım kadarıyla "Evaluate" fonksiyonları makroda excel sayfasında yazarmış gibi yazmamızı sağlıyor, doğru mudur?

 

[Korhan Ayhan]

Merhaba,

Eğer gerekli değilse alıntı yapmamanızı rica ederim. Foruma boşu boşuna yük bindirmiş oluyorsunuz.

EVALUATE komutu formülün sonucunu hesaplar. Bu işe yaramaktadır.

 

[monelogg]

Merhaba, teşekkürler Korhan bey, kusura bakmayın bilmiyordum, üstteki mesajı da düzelttim.

 

[Korhan Ayhan]

Mesajımız yanlış anlamışsınız. Ben mesajınızda benim önerdiğim kodu tekrar kullanmanızın gereksiz olduğunu belirtmek istemiştim. Siz alıntıyı kullanarak önerilen kodu tekrar yayımlıyorsunuz buna gerek var mı?

 

[monelogg]

Korhan bey, haklısınız gerek yok, tekrardan özür diliyorum sizi de gereksiz yere meşgul ettim. İstenen kısımları komple kaldırdım.