Excel Seleção de opptionButton em frame obrigatória

[josequali]

Boa noite, gostaria de tirar a seguinte dúvida. Tenho um formulário de cadastro em que neles tenho duas textbox e cinco frames (cada frame com dois opptionbutton). Quando tento salvar o meu cadastro programei para que o preenchimento das textbox sejam obrigatorias, entretanto, não conheço nenhum comando que obrigue a preencher opptionbutton dentro de um frame antes de concluir o salvamento do cadastro. Alguém saberia? Desde já agradeço a disponibilidade

[AfonsoMira]

@josequali Boas,
Veja se este exemplo lhe ajuda:

obrigatorio_dentro_de_frames.zip

[Midori]

@josequali Para obrigar o preenchimento você pode testar cada Option de dois em dois se ambos são falsos. Ou fazer um loop nos frames assim,

 

Function FrameValido() As Boolean
    Dim Controle As Object
    Dim Valido  As Boolean
    
    For Each Controle In Me.Controls
        If TypeName(Controle) = "Frame" Then
            Dim Frame As Object
            For Each Frame In Controle.Controls
                If TypeName(Frame) = "OptionButton" Then
                    Valido = Frame.Value
                End If
            Next Frame
            If Valido = False Then Exit For
        End If
    Next Controle
    FrameValido = Valido
End Function

Private Sub CommandButton1_Click()
    If Not FrameValido Then
        MsgBox "Marque todas as opções", vbExclamation
    End If
End Sub

 

Dessa forma independente da quantidade de Frames e Options a mensagem será exibida quando algum quadro não for marcado.

[josequali]

@AfonsoMira perfeito! Muito obrigado! Obrigado também @Midori