cinsiyete göre saydırma

[erdenek]

arkadaşlar ekteki dosyada öğrencileri sınıflara aktar a tıkladığım zaman sınıflara aktarılan öğrencilerin erkek ve kız sayılarını otomatik olarak nasıl gösteririz.Örneğin öğrencileri sınıflara aktar butonuna tıkladıktan sonra 1-a sınıfında kaç kız erkek var 1-b sınıfında kaç kız erkek var gibi.

 

[Muhammet Okumuş]

Nerde yazmasını istiyorsunuz?

 

[erdenek]

Nerde yazmasını istiyorsunuz?

arkadaşım öğrencileri sınıflara dağıt dedikten sonra oluşan sınıf listelerinin altında.şu an bizim 1.sınıf 180 kişi bu sayı artabilir sizden ricam yaparken oluşacak fazlalığı da dikkate almanız.

 

[uzmanamele]

merhaba

bu kod işinizi görür mü?
isterseniz kodu, mevcut kodun içine de adapte edebilirsiniz. ancak sayfa değişiminde görseniz daha kullanışlı olabilir.

Private Sub Workbook_SheetActivate(ByVal Sh As Object)
    erkek = WorksheetFunction.CountIf(Range("d2:d65536"), "ERKEK")
    kiz = WorksheetFunction.CountIf(Range("d2:d65536"), "KIZ")

MsgBox "ERKEK :" & erkek & vbCrLf & "KIZ :" & kiz
End Sub

 

[assenucler]

Nerede yanlış yaptım?

Sayın uzmanamele,

Gününüz aydınlık, neşeniz sağlığınız yerinde ve kazancınız bol olsun.

Ekli resimde de görüleceği gibi, üstteki kodu modül2'ye yazdım. Erkek ve kız toplam sayısını yazdıramadım. Acaba, kodu yanlış bir yere mi ekledim?

Teşekkürler.

Sevgi ve saygılar.

 

[erdenek]

merhaba

bu kod işinizi görür mü?
isterseniz kodu, mevcut kodun içine de adapte edebilirsiniz. ancak sayfa değişiminde görseniz daha kullanışlı olabilir.

Private Sub Workbook_SheetActivate(ByVal Sh As Object)
    erkek = WorksheetFunction.CountIf(Range("d2:d65536"), "ERKEK")
    kiz = WorksheetFunction.CountIf(Range("d2:d65536"), "KIZ")

MsgBox "ERKEK :" & erkek & vbCrLf & "KIZ :" & kiz
End Sub

Hocam bunu nasıl adapte edeceğiz.ben yapamadım.saygılarımla

 

[uzmanamele]

Sayın uzmanamele,

Gününüz aydınlık, neşeniz sağlığınız yerinde ve kazancınız bol olsun.

Ekli resimde de görüleceği gibi, üstteki kodu modül2'ye yazdım. Erkek ve kız toplam sayısını yazdıramadım. Acaba, kodu yanlış bir yere mi ekledim?

Teşekkürler.

Sevgi ve saygılar.

merhaba
kodu ThisWorkbook bölümüne yazacaksınız.

kodlar;
Sub ile başlıyorsa modüle,
Private Sub Workbook... ile başlıyorsa çalışma kitabı ThisWorkbook bölümüne,
Private Sub Worksheet... ile başlıyorsa çalışma sayfası kod bölümüne yazılır

 

[erdenek]

merhaba
kodu ThisWorkbook bölümüne yazacaksınız.

kodlar;
Sub ile başlıyorsa modüle,
Private Sub Workbook... ile başlıyorsa çalışma kitabı ThisWorkbook bölümüne,
Private Sub Worksheet... ile başlıyorsa çalışma sayfası kod bölümüne yazılır

arkadaşım yaptım olmadı.şunu birde siz deneyip dosyayı yeniden yüklesin size zahmet.ben bu işte acemiyim.

 

[uzmanamele]

arkadaşım yaptım olmadı.şunu birde siz deneyip dosyayı yeniden yüklesin size zahmet.ben bu işte acemiyim.

merhaba

mevcut kod ilk çalıştırıldığında sevimsiz msgbox ekranı çıkmakla birlikte aktarma yaptıktan sonra sayfalar arasında dolaştıkça kız, erkek sayılarını görebilirsiniz.

 

[assenucler]

Değerli bilgilendirme ve katkınız için bir kez daha teşekkürler.

 

[erdenek]

arkadaşım ellerine sağlık.bundan iyisi can sağlığı.

 

[Muhammet Okumuş]

Merhaba
Ben de kız erkek sayısını hücreye yazan bir çalışma hazırladım. Alternatif olur.

 

[erdenek]

Merhaba
Ben de kız erkek sayısını hücreye yazan bir çalışma hazırladım. Alternatif olur.

arkadaşım ellerine sağlık.ama hata var.çünkü 1-a sınıfında 46 kişi varken sizin toplam da 44 kişi gözüküyor.

 

[Muhammet Okumuş]

Sheets(Z).Range("d" & u + 2) = WorksheetFunction.CountIf(Sheets(Z).Range("d2:d" & u), "Kız")
Sheets(Z).Range("d" & u + 3) = WorksheetFunction.CountIf(Sheets(Z).Range("d2:d" & u), "Erkek")

Kodların bu bölümünde eksiklik varmış. Kodların ilgili bölümünü değiştirin.
Dosyayı yeniden ekledim.

 

[erdenek]

ellerine sağlık

 

[Muhammet Okumuş]

Rica ederim. İyi çalışmalar.