Optionbutton

[egaleano]

Buenos dias

Estoy trabajando un formulario en el que hay 4 option button; la idea es que al dar clic en un boton valide que por lo menos un optionbutton este seleccionado pero no lo logro.

Private Sub CommandButton1_Click()

If OptionButton1.Value = False & OptionButton2.Value = False & OptionButton3.Value = False & OptionButton4.Value = False Then

MsgBox "SELECCIONE UN TIPO DE PROVEEDOR", vbCritical

End if

Exit sub

 

 

[JSDJSD]

Prueba y comenta 

Private Sub CommandButton1_Click()
    If OptionButton1.Value = False And _
       OptionButton2.Value = False And _
       OptionButton3.Value = False And _
       OptionButton4.Value = False Then
    
       MsgBox "SELECCIONE UN TIPO DE PROVEEDOR", vbCritical
    
    End If
End Sub

 

[JSDJSD]

Tu error es que pones & en vez de And

[egaleano]

Mil gracias, funcionó perfecto. Tema cerrado