Egersay ve Alt toplam birleşimi fonksyon yokmu.

[blindside]

Bana eğersayın filtre yapıldıgındada çalışanı lazım. Ya da alt toplamın tum filtre sonucunu değilde benim seçeçeğim bir veriyi sayması. Varmıdır boyle bir fonksyon. eğer say ve alt toplamın birleşimi gibi bişey.

örnek 100bin maç var. 1.6 3.35 2 oranlı olanları filtreledim ve başka bir sutunda ev dep berabere sonuçları cıktı. bana kaç tanesini berabere kaç tanesi ev almış kaç tanesi dep almış oranları filtreler filtrelemez cıkartacak bir fonksyon lazım . Teşekürler

 

[Orion1]

Tam anlamadım ama Etopla fonksiyonu belkide sizin aradığınız formül olabilir.

 

[blindside]

Daha açık bir ifade etmek gerekirse 1.90 4.50 oranlarını resimdeki gibi filtrelediğimde maç sonuclarından kaç tanesi 1 yani ev kazanmış kaç tanesi 0 yani berabere kaç tanesi deplasman yani 2 kazanır bitmişi filtrelediğimde verecek fonksyon . ms (maç sonucu ) gosteren sütünda 1 ev 0 berabere ve 2 deplasman değerleri var. bana orana göre filtrelediğimde maçların kaç tanesini ev kazanmıs kaç tanesi berabere bitmiş kaç tanesi dep almış filtreler filtrelemez çıkartacak fonksyon lazım .

 

[Merhum İdris SERDAR]

.

Genel formül:

=TOPLA.ÇARPIM((alan=koşul)*(ALTTOPLAM(3;KAYDIR(alan;SATIRSAY(alan);0;1))

.

 

[blindside]

.

Genel formül:

=TOPLA.ÇARPIM((alan=koşul)*(ALTTOPLAM(3;KAYDIR(alan;SATIRSAY(alan);0;1))

.

Çok teşekür ederim. koşul kısmına ne yazmam gerekiyor.Alanı anladım ama koşulu beceremedim.

 

[Orion1]

(alan=2)

 

[blindside]

Değerli abilerim çok teşekür ederim sorunuma yardımlarınız için fakat ben biraz beceriksizim kafa basmadı bu formule . İnternettende arastırıyorum bir taraftan ama hala beceremedim . şu yolladığım örnek üzerinde . maçsonucu kısmında 1 olanların sayısını gösteren formulu örnekle yazmanız mümkünmü. ben diğerlerini oradan cıkartırım. A B C de filtre yaptıktan sonra D sütünündaki sadece 1 lerin sayısı yani. Kusuruma bakmayın lütfen.

 

[Orion1]

D2 yide filtre o zaman.

 

[blindside]

D2 yide filtre o zaman.

artık o şekil yapcaz hocam yada makro kaydedip baska sayfaya kopyalayıp sonucları filtreleyip 1 2 3 ctrl alt shift en alttaki sonucu yaz şeklinde bişey yapcam son çare

 

[Orion1]

D2 yide filtrelerseniz altoplam fonksiyonu ile sonucu bulursunuz.

 

[blindside]

D2 yide filtrelerseniz altoplam fonksiyonu ile sonucu bulursunuz.

Evet hocam onu filtrelersem sonuca ulaşıyorum ancak . bitek bu değil 37 farklı verili üzerinde çalıştığım rulet programındada kullanacağım. geçmiş 100 bin spini çektim html kodlarından her alt satıra 1 sola kaydederek 99000 satırlık 50 sütünluk veri hazırladım. Hileli rulet masalarının algoritmalarını çözmek amaçlı. butonlarını fln makrolarını yazdım ancak 37 farklı verinin örnek a sütünu filtreledim b sütünundaki sonucların yüzdelik dağılımı hesaplamam gerekiyor . b yi filtreledikten sonra c sütünündaki yuzdelik dağılımı fln. o yuzden fonksyonu ne yapıp edip halletmem gerek

 

[Orion1]

99bin satırı ve 50 sütunu hesaplayabilen fonksiyon varmıdır bilmiyom.
Excel kilitlenmezse iyidir.

 

[Korhan Ayhan]

Pivot Table (Özet Tablo) kullanmayı deneyin. Hem çok hızlıdır, hem de kullanımı kolaydır.

 

[Orion1]

Çoketopla fonksiyonu sanırım işinize yarayacak ama bu kadar çok yoğun veriyi hesaplaması ne kadar uzun sürer,veya kilitlenirmi bilmem.
Korhan beyin önerisinide bir deneyin belkide o aradığınız çözümdür.

 

[blindside]

Tamam çok teşekürler araştırmalara başladım

 

[blindside]

Sorunu çözdüm. Biraz uzun yollu çözüm oldu ama işe yarıyor 2 snde getiriyor sonucu . =ALTTOPLAM(103;Z5:Z72472) özetle alt toplamı ayrı ayrı uygulayıp degerleri kopyala yapıstır yaptım makroyla


makro bu
Sub TEST()
'
' TEST Makro
'

'
ActiveSheet.Range("$A$4:$AH$72472").AutoFilter Field:=26, Criteria1:="0"
Range("Z1").Select
Selection.Copy
Range("K1").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
ActiveSheet.Range("$A$4:$AH$72472").AutoFilter Field:=26
ActiveSheet.Range("$A$4:$AH$72472").AutoFilter Field:=26, Criteria1:="1"
Range("Z1").Select
Application.CutCopyMode = False
Selection.Copy
Range("L1").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
ActiveSheet.Range("$A$4:$AH$72472").AutoFilter Field:=26
ActiveSheet.Range("$A$4:$AH$72472").AutoFilter Field:=26, Criteria1:="2"
Range("Z1").Select
Application.CutCopyMode = False
Selection.Copy
Range("M1").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
ActiveSheet.Range("$A$4:$AH$72472").AutoFilter Field:=26
Range("Z1").Select
Application.CutCopyMode = False
ActiveCell.FormulaR1C1 = "=SUBTOTAL(103,R[4]C:R[72471]C)"
Range("A1").Select
End Sub