Formatação condicional de Abas

Question

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

Answer 1

https://www.youtube.com/watch?v=ldVaXIF0VYc

---

Anderson Diniz

Answer 2

Option Explicit

Private Sub Workbook_Open()

If ThisWorkbook.Sheets(1).Range("A1").Value = "NÃO" Then


ThisWorkbook.Sheets(1).Tab.Color = vbRed

Else

ThisWorkbook.Sheets(1).Tab.Color = vbWhite

End If


End Sub

---

Anderson Diniz

Answer 3

---

Anderson Diniz

Answer 4

Option Explicit

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

If ThisWorkbook.Sheets(1).Range("A1").Value = "NÃO" Then


ThisWorkbook.Sheets(1).Tab.Color = vbRed

Else

ThisWorkbook.Sheets(1).Tab.Color = vbWhite

End If

End Sub

---

Anderson Diniz

Answer 5

---

Anderson Diniz

Answer 6

Não sei se estou fazendo alguma coisa de errado, mas não está funcionando :(

Answer 7

Agora foi, valeu pela ajuda :D

Answer 8

Favor marcar como respondido.

---

Anderson Diniz