Página 1 de 1

Alterar status de Caixa de Seleção

Enviado: 17 Out 2020 às 08:06
por NiltonASantos
Bom dia

A planilha em anexo faz parte de um projeto que estou desenvolvendo, e para o qual solicito ajuda. Explico:

Como pode ser observado no exemplo, ela possui 2 Caixas de seleções para cada pergunta, sendo que se as duas da mesma linha forem deixadas em branco ou preenchidas, a linha da pergunta fica em vermelho. Ou seja, o usuário pode selecionar apenas uma opção por pergunta. Até aí, tudo funcionando.

O problema é que eu preciso criar um botão que, ao ser clicado, limpe todas as Caixas de Seleção, deixando todas as perguntas em vermelho para que o usuário possa iniciar uma nova pesquisa. Tentei usar macro para substituir os campo das colunas O e R, trocando "VERDADEIRO" para "FALSO". Se eu uso a opção de CTRL+L, o excel faz esta substituição. Entretanto, quando eu tento fazer isso via macro, ele não faz.

Alguém pode me ajudar nesta questão, indicando se e como posso fazer isso?

Grato e no aguardo,

Nilton

Re: Alterar status de Caixa de Seleção

Enviado: 17 Out 2020 às 10:13
por osvaldomp
Experimente:
Código: Selecionar todos
Sub LimpaCaixasSeleção()
 Dim box As CheckBox
  Application.ScreenUpdating = False
  For Each box In Sheets("Planilha1").CheckBoxes
   box.Value = 0
  Next
End Sub

Re: Alterar status de Caixa de Seleção

Enviado: 22 Out 2020 às 18:25
por NiltonASantos
Agradeço ao "osvaldomp" pela solução enviada. Funcionou perfeitamente.