Como criar um macro para ativar/desativar formatação condicional?

Question

Tenho um formulário no qual existe uma formatação condicional que destaca as células que não estão preenchidas.

Quero saber como faço pra criar um botão que ative essa formatação e desative quando clicado.

Se alguem puder me ajudar, grato!

Answer 1

Oi Israel,

A macro abaixo deve ser atribuída a um botão cujo nome = Botão 1 criado como Controle de Formulário na Plan1

Ela Ativa/Desativa a Formatação Condicional da célula  A1 - fundo azul se maior que 10 

Testei no Excel 2007 (espero que não dê problema no 2003)

Sub AtivaDesativa()

    Dim s As Shape

    Set s = Plan1.Shapes("Botão 1")

    s.Select

    If Selection.Characters.Text = "Desativa CF" Then

        Selection.Characters.Text = "Ativa CF"

        Range("A1").FormatConditions.Delete

    Else

        Selection.Characters.Text = "Desativa CF"

        With Range("A1")

            .FormatConditions.Add Type:=xlCellValue, Operator:=xlGreater, _

            Formula1:="=10"

            .FormatConditions(.FormatConditions.Count).SetFirstPriority

            With .FormatConditions(1).Interior

                .PatternColorIndex = xlAutomatic

                .ThemeColor = xlThemeColorLight2

                .TintAndShade = 0.799981688894314

            End With

            .FormatConditions(1).StopIfTrue = False

        End With

    End If

    Range("A1").Select

End Sub

Altere a macro para o seu caso particular de range e formatação condicional

Espero que ajude

M.

Answer 2

I knew that.