Şarta Bağlı Olarak Değeri Sayma

Şarta Bağlı Olarak Değeri Sayma, Yaş, Cinsiyet ve Durum kriterlerine göre hücrelerdeki verilerin sayılmasını sağlayan kodlar içermektedir.

Hazır Kodlar: Şarta Bağlı Olarak Değeri Sayma

Sub SartaBagliSayma()

    Dim ws As Worksheet
    Dim i As Long
    Dim sayiYas As Long
    Dim sayiErkek As Long
    Dim sayiGecti As Long
  
    Set ws = Sayfa1

    sayiYas = 0
    sayiErkek = 0
    sayiGecti = 0

    For i = 2 To ws.Cells(ws.Rows.Count, 1).End(xlUp).Row
        If ws.Cells(i, 2).Value >= 18 Then
            sayiYas = sayiYas + 1
        End If
      
        If ws.Cells(i, 3).Value = "Erkek" Then
            sayiErkek = sayiErkek + 1
        End If
      
        If ws.Cells(i, 5).Value = "Geçti" Then
            sayiGecti = sayiGecti + 1
        End If
    Next i

    MsgBox "Yaş 18 ve üzeri olan kişi sayısı: " & sayiYas & vbCrLf & _
           "Cinsiyeti Erkek olan kişi sayısı: " & sayiErkek & vbCrLf & _
           "Durumu 'Geçti' olan kişi sayısı: " & sayiGecti

End Sub

Açıklamalar

• sayiYas: Yaşı 18 ve üzeri olan kişilerin sayısını tutmaktadır.
• sayiErkek: Cinsiyeti Erkek olan kişilerin sayısını tutmaktadır.
• sayiGecti: Durumu "Geçti" olan kişilerin sayısını tutmaktadır.
• Tablodaki her satırda, Yaş, Cinsiyet ve Durum değerlerine bağlı olarak ilgili sayaçlar arttırılmaktadır.
• Sonuçlar, bir Mesaj Kutusu (MsgBox) ile gösterilmektedir.

Kullanım

Kodlar çalıştıktan sonra sonuçlar aşağıdaki gibi olacaktır.

Yararlanılması temennisiyle.