Kritere uymayanların toplamını alma

[rtk19641990]

Merhaba,
Örnekte ŞUBE kolonunda 601, 749 ve 894 haricindekileri D Kolununundaki karşılıklarını macro ile toplamak istiyorum?
Yardımlarınız için şimdiden teşekkürler.

 

[Mahir64]

Merhaba,
Örnekte ŞUBE kolonunda 601, 749 ve 894 haricindekileri D Kolununundaki karşılıklarını macro ile toplamak istiyorum?
Yardımlarınız için şimdiden teşekkürler.

MErhaba
Ben formül ürettim ama farklı çözümü kesinlikle vardır.

=TOPLA.ÇARPIM((B2:B17<>601)*(B2:B17<>749)*(B2:B17<>894)*(D2:D17))

 

[rtk19641990]

Teşekkür eerim. Makro ile yapma şansı var mı acaba?

 

[rtk19641990]

Bir de toplam almak yerine saymak istersek
=COUNTIF((B2:B17<>601)*(B2:B17<>749)*(B2:B17<>894)*(D217)) şeklinde mi olacak?

 

[Ömer]

Merhaba,

Alternatif olsun.

Toplam için formül;

=TOPLA.ÇARPIM(EHATALIYSA(KAÇINCI(B2:B17;{601;749;894};0))*(D2:D17))

Toplam için kod;

Sub Topla()
 
[E1] = Evaluate("=SUMPRODUCT(ISERROR(MATCH(B2:B17,{601,749,894},0))*(D2:D17))")
 
End Sub

---------------------------------------------------------------------------------------------

Sayma için formül;

=TOPLA.ÇARPIM(EHATALIYSA(KAÇINCI(B2:B17;{601;749;894};0))+0)

Sayma için kod;

Sub Say()
 
[E1] = Evaluate("=SUMPRODUCT(ISERROR(MATCH(B2:B17,{601,749,894},0))+0)")
 
End Sub

.

 

[Mahir64]

Bir de toplam almak yerine saymak istersek
=COUNTIF((B2:B17<>601)*(B2:B17<>749)*(B2:B17<>894)*(D217)) şeklinde mi olacak?

MErhaba
Bu yeterli olur saymak için

=TOPLA.ÇARPIM((B2:B17<>601)*(B2:B17<>749)*(B2:B17<>894))

 

[rtk19641990]

Sonuçları diğer sayfanın bir hücresine yazmak istersem kodları nereye yazacağım Ömer Bey?

 

[Ömer]

Sonuçları diğer sayfanın bir hücresine yazmak istersem kodları nereye yazacağım Ömer Bey?

Kodları herhangi bir module yazıp kodları aşağıdaki gibi değiştiriniz.

Sub Say()
 
Sheets("Sheet2").[E1] = Evaluate("=SUMPRODUCT(ISERROR(MATCH(Sheet1!B2:B17,{601,749,894},0))+0)")
 
End Sub

Toplam içinde aynı mantıkla değiştirirsiniz.

.

 

[Mahir64]

Ömer bey;
Teşekkür ederim faydalı oldu formülleriniz ve Evaulate örneğiniz.

 

[rtk19641990]

Çok teşekkür ederim.

 

[rtk19641990]

özür dilerim ama toplam sıfır çıktı
Sheets("Rapor").[D14] = Evaluate("=SUMPRODUCT(ISERROR(MATCH(Mahsup!B2:B102,{601,749,894},0))*(BA2:BA102))") şeklinde yazdım

 

[Ömer]

Ömer bey;
Teşekkür ederim faydalı oldu formülleriniz ve Evaulate örneğiniz.

Rica ederim, Sayın Black Lord.

özür dilerim ama toplam sıfır çıktı
Sheets("Rapor").[D14] = Evaluate("=SUMPRODUCT(ISERROR(MATCH(Mahsup!B2:B102,{601,749,894},0))*(BA2:BA102))") şeklinde yazdım

Mahsup!

bu bölümü koddadaki BA2 'nin önünede koymalısınız..

.

 

[rtk19641990]

bakar kör bu olsa gerek Çok teşekkür ederim

 

[Ömer]

Rica ederim, iyi çalışmalar..

 

[rtk19641990]

Merhaba,
Sheets("Rapor").[B14] = Evaluate("=SUMPRODUCT(ISERROR(MATCH(Mahsup!B2:B102,{601,749,894},0))+0)")

buradaki +0 anlamı nedir acaba?
Bir de herhangi bir sayma işlemini bununla yapabilir miyim? Mesela buradaki gibi bunların haricindekileri değilde mahsup içinde 420 yi say gibi.

Teşekkürler.

 

[Ömer]

Linkteki konuyu inceleyip, toplama yada sayma formülünü kendiniz de uyarlayabilirsiniz.

Sumproduct-Topla.Çarpım Fonksiyonu ve Uygulamaları

.

 

[rtk19641990]

Peki teşekkürler

 

[rtk19641990]

Yukarıdaki linkte bulamadım. Rica etsem yanıtlar mısınız?
Sheets("Rapor").[B14] = Evaluate("=SUMPRODUCT(ISERROR(MATCH(Mahsup!B2:B102 ,{601,749,894},0))+0)")
1--Bir de herhangi bir sayma işlemini bununla yapabilir miyim? Mesela buradaki gibi bunların haricindekileri değilde mahsup içinde 420 yi say gibi.

2--burada sayı değil de text hariç demek istersek nasıl yapabiliriz? yani Mahsup içinde TR haricindekileri say ve topla.

 

[rtk19641990]

yardım rica edebilir miyim?

 

[Ömer]

Yukarıdaki linkte bulamadım. Rica etsem yanıtlar mısınız?
Sheets("Rapor").[B14] = Evaluate("=SUMPRODUCT(ISERROR(MATCH(Mahsup!B2:B102 ,{601,749,894},0))+0)")
1--Bir de herhangi bir sayma işlemini bununla yapabilir miyim? Mesela buradaki gibi bunların haricindekileri değilde mahsup içinde 420 yi say gibi.

2--burada sayı değil de text hariç demek istersek nasıl yapabiliriz? yani Mahsup içinde TR haricindekileri say ve topla.

1.Sorunuz.

Sub say()
 
Sheets("Rapor").[B14] = WorksheetFunction.CountIf(Sheets("Mahsup").[B:B], 420)
 
End Sub

2.Sorunuzu anlayamadım.

Tek tek değilde konuyu kavramaya çalışırsanız daha faydalı olacaktır.

Burada kullanılan kodların mantığı formül ile aynı mantıktadır. Bu yüzden verdiğim likte ve dersane bölümündeki diğer fonksiyonların mantığını kavramanızı tavsiye ederim. Aksi halde sadece ezberlemiş olursunuz ve bunun size birşey kazandıracağını sanmam.

.