Excel macro para marcar/desmarcar todas caixas de seleção

[Rafael Fidelis]

Boa tarde Pessoal,

 

Estou com a planilha Exemplo1 em anexo e tem algumas caixas de seleção, gostaria que quando eu clicasse no botão "marcar/desmarcar tudo", ou marcasse tudo de não tiver marcado, e desmarcasse tudo se não tivesse marcado,

 

Alguém poderia me ajudar neste macro?

 

Obrigado,

 

Exemplo1.xlsx

[Visitante]

Olá, Rafael.

Veja se o código abaixo te ajuda.

Sub MarcaDesmarcaTodas()
 Dim box As CheckBox, m As Variant
  If ActiveSheet.CheckBoxes("Caixa de seleção 1").Value = xlOn Then
   m = xlOff
  Else: m = xlOn
  End If
   For Each box In ActiveSheet.CheckBoxes
    box.Value = m
   Next
End Sub

 

curiosidade - qual o uso? porque várias Caixas todas marcadas ou todas desmarcadas em lugar de uma única caixa?

[Rafael Fidelis]

Osvaldo, boa tarde!

 

Muitíssimo obrigado pelo retorno irmão.

 

Na verdade não deu certo, minha culpa, passei informações erradas kkkk

 

Seria a planilha em anexo, poderia dar mais uma ajuda por favor?

 

Desde já, grato.

 

Abraço.

Exemplo 2.xlsx

[THIAGO.BRENONUNES]

Boa tarde!

 

Não sei como fazer para criar um botão para desmarcar todas as caixas de uma vez e tb se é possível dar cor nos flags? EX. NO(Vermelho) e yes(verde).

Desde de já obrigado!

ALGORITMO-27.8.2018 - - Copy.xlsx