toplaçarpım

[leyhus]

arkadaşlar herkese günaydın,
toplaçarpım fonksiyonun textboxlara nasıl uygulayabilirim. bir türlü yapamadım
ekteki dosyada açıklamasını yaptım. userformdaki sorgula butonun basıldığımdan sayfa1 deki bilgileri yatan ve ayakta olarak hesaplayıp ayrı ayrı nasıl hesaplattırabilirim. yardımcı olurmusunuz.

 

[Korhan Ayhan]

Selamlar,

Eğer amacınız "AYAKTA" ve "YATAN" toplamlarını görmek ise TOPLA.ÇARPIM fonksiyonuna ihtiyacınız yok. Bu işlem için aşağıdaki kodu kullanabilirsiniz.

Private Sub CommandButton1_Click()
    TextBox1 = WorksheetFunction.SumIf([E2:E65536], "YATAN", [D2:D65536])
    TextBox2 = WorksheetFunction.SumIf([E2:E65536], "AYAKTA", [D2:D65536])
End Sub

 

[leyhus]

Private Sub CommandButton2_Click()

TextBox1 = WorksheetFunction.SumProduct([b2:b100="2"], [c2:c100="a"], [e2:e100="YATAN"], [d2:d100])
TextBox2 = WorksheetFunction.SumProduct([b2:b100="2"], [c2:c100="a"], [e2:e100="AYAKTA"], [d2:d100])
End Sub

nerede yanlış yapıyorum.toplamlara 0 veriyor.

 

[leyhus]

cevap verecek yokmu

 

[Korhan Ayhan]

Selamlar,

Aşağıdaki şekilde denermisiniz.

Private Sub CommandButton1_Click()
    TextBox1 = Evaluate("=SUMPRODUCT((B2:B100=2)*(C2:C100=""a"")*(E2:E100=""YATAN"")*(D2:D100))")
    TextBox2 = Evaluate("=SUMPRODUCT((B2:B100=2)*(C2:C100=""a"")*(E2:E100=""AYAKTA"")*(D2:D100))")
End Sub

 

[leyhus]

teşekkür ederim üstad