Botão de Opção Desmarcado

2024 - VBA & Macros

Post Recente por romanholi 8 anos atrás

4 Posts

3 Usuários

0 Reactions

813 Visualizações

RSS

romanholi

(@romanholi)

Posts: 177

Estimable Member

Topic starter

Pessoal, bom dia!

Tenho uma planilha de pesquisa com vários botões de opções.

Preciso de uma macro que desmarque todos esses botões quando eu abrir o arquivo. Para não correr o risco do usuário deixar algum marcado!

Agradeço-lhes!

Abraços

Postado : 24/06/2016 4:35 am

MPrudencio

(@mprudencio)

Posts: 2749

Famed Member

Ate nao aparecer nada melhor

Tente adaptar esse codigo colando em Esta Pasta de Trabalho


ActiveSheet.Shapes.Range(Array("Option Button 1")).Select
    With Selection
        .Value = xlOff
        .Display3DShading = False
    End With

Marcelo Prudencio
Microsoft Excel Brasil no Facebook

"Começar já é a metade do caminho."
Autor Desconhecido

Simplifica que simples fica.
Nicole Tomazella.

"O Simples é Sempre Melhor Que o Complicado"
Jorge Paulo Lemann.

Postado : 24/06/2016 6:12 am

Basole

(@basole)

Posts: 487

Reputable Member

Segue opção que varre e desmarca, os botoes contido na aba ativa:

Sub DesMarcar_Botoes()
' * se necessario, renomeie seus botoes com numeraçao sequencial
Dim opt As OptionButton
For i = 1 To 4 'Altere aqui a qtd total de botoes
Set opt = ActiveSheet.Shapes("Botão de opção " & i).OLEFormat.Object
opt.Value = False
Next
End Sub

Click em se a resposta foi util!