none
Formatação condicional de Abas RRS feed

  • Pergunta

  • Não sei mexer no VBA e Preciso modificar a cor da aba (na parte de baixo) de acordo com o valor (sim ou não) de uma célula. É possível?

    Copiei o código de um site e adicionei o código de um macro que gravei modificando a cor da aba, e não funciona.

    ' Procedimento executado quando existe alguma alteração no valor da célula
    Public Sub Worksheet_Change(ByVal Target As Range)

        ' Desabilita outros eventos para tornar mais rápido
        Application.EnableEvents = False

        ' Verifica se a célula está dentro da área escolhida
        If Not Intersect(Target, Me.[D29]) Is Nothing Then

            ' Verifica qual o valor e aplica uma formatação
            Select Case Target.Value
                Case "SIM"
    Private Sub colorido4()
        Sheets("RIP-Serviços").Select
        With ActiveWorkbook.Sheets("RIP-Serviços").Tab
            .Color = 255
            .TintAndShade = 0
        End With
    End Sub

                 Case "NÃO"

       Private Sub colorido3()
        Sheets("RIP-Serviços").Select
        With ActiveWorkbook.Sheets("RIP-Serviços").Tab
            .Color = 255
            .TintAndShade = 0
        End With
    End Sub
        End If

        ' Reabilita os eventos
        Application.EnableEvents = True

    End Sub


    • Editado Duende Verde quarta-feira, 26 de julho de 2017 13:53
    quarta-feira, 26 de julho de 2017 13:48

Todas as Respostas