cinsiyete göre sayım yapma

[erdenek]

arkadaşlar ekteki belgede sınıflar gruplara ayrılacak ben hangi öğrenci hangi grupta onu yazdım.fakat bunları sınıf sınıf a ve b grubu diye yeniden liste yapmam lazım.liste yaparkende sınıfta a grubunda kaç kız erkek b grubunda kaç kız kaç erkek olduğunu saydırmam lazım.yardımcı olursanız sevinirim.yarına yetişmesi lazım.

 

[tokerx22]

cevap

ekteki dosyayı inceleyiniz

 

[suatbayhan]

Merhaba sayın erdenek,
A grubu Kız sayısı için,
=TOPLA.ÇARPIM((D3159="A")*(O3:O159="KIZ"))
Erkek için,
=TOPLA.ÇARPIM((D3159="A")*(O3:O159="ERKEK"))
B grubu Kız sayısı için,
=TOPLA.ÇARPIM((D3159="B")*(O3:O159="KIZ"))
Erkek için,
=TOPLA.ÇARPIM((D3159="B")*(O3:O159="ERKEK"))
formülleri işinizi görür mü?
Selamlar...

 

[tokerx22]

cvp

bu şekilde işinizi görürmü

 

[erdenek]

arkadaşlarım elinize sağlık ama ben şöyle bir şey istedim.8-A sınıfında A grubunda olanları bir liste yapıp o listenin altına kaç kız kaç erkek olduğu yine 8-A sınıfında B grubunda olanları bir liste yapıp o listenin altına kaç kız kaç erkek olduğu diğer sınıflarda aynı şekilde olacak.yalnız en sondaki sınıf 8-d olacak.yanlışlıkla 8-c yazmışım.

 

[tokerx22]

Cevap

denermisiniz

 

[erdenek]

Hocam çok güzel olmuş ellerine sağlık.yalnız listeye 6.ve 7.sınıflarıda eklerseniz memnun olurum.birde yazdırırken seçim yapılan radyo düğmeleri de çıkıyor.bunların çıkmaması lazım.ve liste iki sayfaçıkıyor.isimler bir sayfada soyisimler bir sayfada çıkıyor.birde hocam bu sayfaya daha sonra yeni öğrenci ekleyebilecceğim şekilde çoğaltırsanız sevinirim.

 

[tokerx22]

hayırlı günler eki incelermisiniz

 

[erdenek]

hocam ellerine sağlık

 

[polis-53]

kiritere göre süz

merhaba arkadaşlar ben ufak bir değişiklik yaptım TextBox1 kutucuğuna sınıfını ve TextBox2 kutucuğuna cinsiyetini yazdığımda süz yapmıyor yardım edermisiniz.

 

[polis-53]

9 nolu mesaj

arkadaşlar 9 nolu mesajda biraz değişiklik yaptım fakan Texbox lara suz yaptığım zaman sayfayı boş gosteriyor yardımlarınızı bekliyorum

 

[tokerx22]

Denermisiniz

 

[polis-53]

Merhaba sayıyı doğru veriyor ama örneğin 8-a süz yaptığımda 8-a ları sayıyor fakan hücrelerde göstermiyor dolu olan hücrelerin hepsini gizliyor.

 

[tokerx22]

kodu bununla degiştiriniz

Private Sub TextBox1_Change()
On Error Resume Next
METİN1 = TextBox1.Value
Set FC2 = Range("B3:B1000").Find(What:=METİN)
Application.Goto Reference:=Range(FC2.Address), Scroll:=False
Selection.AutoFilter Field:=2, Criteria1:="*" & TextBox1.Value & "*"
If METİN1 = "" Then
Selection.AutoFilter Field:=2
End If
End Sub



(sayfayı az yukarı kaydırmanız yeterli olacaktır) hayılı günler