frame içindeki checkboxları gruplamak-seçmek

[demirtas]

Bir saatti forum içinde debelenip duruyorum, henüz bir cevap bulamadım:

Ekli dosyada aynı frame içinde yer alan checkboxların bulunduğu bir userform var.
İlgili kişilerin checkboxlarını veya hepsini seç dediğimde mail atabiliyorum..

Fakat hepsini seç checkboxını kullanabilmem için o frame içinde yer alan tüm checkboxlar için "hespini seç" checkboxını şartını test eden ayrı ayrı true ve false kod satırları yazmak zorunda kalıyorum
Bu şekilde yaklaşık birden fazla frame içinde 30 kişiye mail yollamak istediğimde kod bayağı uzun oluyor ve yer tutuyor ve frameler içindeki kişiler de ufak bir değişiklik bile yapmak istediğimde zaman alan bir iş haline geliyor

Frameler içindeki checkboxlara gruplama yapılabiliyor biliyorum Ama bir türlü aradaki bağlantıyı kuramadım Hepsini seç dediğim zaman o frame için yer alan tüm checkboxları seçebilmem mümkün mü acaba?

 

[Haluk]

Private Sub CheckBox31_Click()
    Dim MyOpt As Control
    For Each MyOpt In UserForm1.Frame5.Controls
        If MyOpt.Name <> CheckBox31 Then
            MyOpt.Value = IIf(CheckBox31, True, False)
        End If
    Next
End Sub

 

[demirtas]

Sn. Haluk,

Elinize sağlık Teşekkür ederim.

Yalnız anlamadığım bir konu var.. Bana yardımcı olabilirseniz sevinirim:

"IIf" ve "myopt" derken neleri tanımlamak istediğinizi biraz açabilir misiniz ya da nerelerde kullanılmaktadır?