EĞERSAY VBA

[BYSERTTAS]

selamlar..
Vba da Puantaj cetveli Hazırlıyorum. Bir Konuda Yardımlarınıza İhtiyacım var.

aslındaki : UserForm Üzerinde Ayın 1 ile 31 Arasındaki Hergün İçin Bir TextBox ve Herbiri için birde Cexbox var. Cek box işaretlenince İlgili Güne "x" Yazdırıyorum.
bir textbox'a dolu olan Yani"X" yazanların özetin nasıl detayı.
örnek :
1 2 3 4 5 6 7
xxx = Toplama Textbox ' una 3 yazacak
xxxxxx = Toplama Textbox ' una 6 yazacak

 

[Korhan Ayhan]

Deneyiniz.

Private Sub CommandButton1_Click()
    Dim My_CheckBox As MSForms.Control, Say As Byte
    
    For Each My_CheckBox In Me.Controls
        If TypeName(My_CheckBox) = "CheckBox" Then
            If My_CheckBox.Value Then
                Say = Say + 1
            End If
        End If
    Next
    
    TextBox1 = Say
End Sub

 

[BYSERTTAS]

Harikasınız Üstadım. Tam İstediğim gibi Ellerinize Sağlık Ayrıca bukadar kısa sürede cevaplamanız ayrıca teşekkürü hak ediyor. Bana bir Harf Öğretenin kırk yıl kölesi olurum. saygılar