Vídeo recomendado
https://youtu.be/diWPPPhW-9E

Option Button - Referenciar todos

Perguntas e Repostas sobre os artigos, posts e arquivos que são postados no site
Lety
Acabou de chegar
Acabou de chegar
Mensagens: 1
Registrado em: Ter Ago 24, 2021 11:34 am

Option Button - Referenciar todos

Mensagem por Lety »

Estou trabalhando em uma planilha que funcionará como um formulário.
Na aba Avaliação, inseri vários optionbutton (Controle active x) e em um determinado momento da macro, quero limpar todos eles.
Estou empregando a sub abaixo, mas está apontando o seguinte erro " O objeto não aceita o método ou propriedade". Acredito que é porque não estou em um formulário.

Código: Selecionar todos

Sub Limpar()

Avaliacao.Select
For Each CtlX In Sheets("Avaliação")
If TypeOf CtlX Is OptionButton Then

CtlX.Value = False
Exit For
End If
Next

End Sub
Alguém saberia me ajudar como faço para referenciar e limpar todos os OptionButton de uma determinada aba?


Disable adblock

This site is supported by ads and donations.
If you see this text you are blocking our ads.
Please consider a Donation to support the site.


Avatar do usuário
webmaster
Administrador
Mensagens: 3114
Registrado em: Sex Jul 24, 2009 2:44 pm
Contato:

Re: Option Button - Referenciar todos

Mensagem por webmaster »

Isso funcionou:

Código: Selecionar todos

Private Sub CommandButton1_Click()
    For Each CtlX In ActiveSheet.OLEObjects
        If CtlX.progID = "Forms.OptionButton.1" Then
            CtlX.Object.Value = False
        End If
    Next
End Sub


Responder