Topla.Çarpım Formülünün VBA Karşılığı

[Feylosof]

İyi Akşamlar diliyorum arkadaşlar;

=TOPLA.ÇARPIM((C2:E43="A")*(B2:B43))

Formülünü VBA ile yazmak istiyorum. Yardımcı olur musunuz?

 

[Necdet]

Merhaba,

Makro kaydet yoluyla kodlara ulaşabilirsiniz.

 

[Feylosof]

@Necdet Hocam ilginiz için teşekkürler. Evet bunu denedim ama farklı hücre aralıklarına tatbik etmede başarılı olamadım.

 

[Levent Menteşoğlu]

worksheetfunction.sumproduct(.......) olarak deneyin.

 

[Feylosof]

worksheetfunction.sumproduct(.......) olarak deneyin.

@Levent Menteşoğlu hocam üzgünüm becermedim. Sonucu TEXTBOXA almaya çalışıyorum.

 

[Levent Menteşoğlu]

@Levent Menteşoğlu hocam üzgünüm becermedim. Sonucu TEXTBOXA almaya çalışıyorum.

Dosyanızı görmeden çözüm bulmak zor.

 

[Mdemir63]

Selamlar
İnceleyiniz

 

[Feylosof]

@Mdemir63 ilginiz için çok teşekkür ederim. Kodunuzu uyarlamaya çalışıyorum. Başarabilirsem size haber vereceğim.

 

[Feylosof]

Örnek dosya ekliyorum.

 

[Korhan Ayhan]

Deneyiniz.

Private Sub CommandButton2_Click()
    Sube = Me.ListBox1.Value
    If Sube <> "" Then Me.TextBox1 = Evaluate("SUMPRODUCT((H3:V45=""" & Sube & """)*(G3:G45))")
End Sub

 

[Feylosof]

@Korhan Ayhan Bey çok teşekkür ederim.