etopla fonksiyonun kod versiyonu

[hurkanpisirici]

etoplayı eklediğim dosyada kod ile nasıl yapabilirim.

 

[gezgin-49]

aşağıdaki formülü bir deneyin

=ETOPLA(A1:A6;D1;B1:B6)

ama aynı işlemi

=TOPLA.ÇARPIM((A1:A6=D1)*(B1:B6))
formülü ile de yapabilirsiniz.

 

[hurkanpisirici]

sayın gezgin teşekkür edeirim.kodunu sormuştum ama buldum teşekkürler

 

[abdi]

Sub deneme()
b = InputBox("kriter giriniz")
a = WorksheetFunction.SumIf(Sayfa1.Range("a1:a6"), b, Sayfa1.Range("b1:b6"))
MsgBox a
End Sub

 

[Necdet]

Merhaba,

Bende çalışmamı ekleyim, boşa gitmesin

Sub ETopla()
[E1] = Application.WorksheetFunction.SumIf(Range("A1:A" & [a65536].End(3).Row), [D1], Range("B1:B" & [B65536].End(3).Row))
End Sub

 

[gezgin-49]

ekli dosyayı inceleyin
(hem topla çarpım hem de e topla ile ilgili kod şeklinde yapıld&#305

 

[hurkanpisirici]

arkadaşlar bu geç saatte bile yardımlarınızda cömertsiniz çok teşekkürler elleriniz dert görmesin

 

[abdi]

yardımcı olabildi isek ne mutlu bizlere selamlar saygılar