ATENÇÃO NOVOS USUÁRIOS

Se registrou recentemente? Seu cadastro será avaliado e mendiante aprovação, a conta será ativada e você poderá usufruir do fórum. O tempo de avaliação gira em torno de 24 a 48 horas.

Esqueceu sua senha?

Você pode usar o mecanismo de lembrete neste link: Recuperar senha

Você receberá um link de reativação no email cadastrado.

Não recebeu o email? Lembre-se checar o Lixo Eletrônico.

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: 2928
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


Tomás
https://www.tomasvasquez.com.br/blog
https://www.tomasvasquez.com.br/cursocsharp
https://twitter.com/tomamais
Se sua dúvida foi solucionada, acrescente [RESOLVIDO] ao título.
Responder