Este fórum está sendo desativado

[Ayslang]

Prezados,

Possuo uma planilha com 36 abas/guias, uma para cada mês do ano, ao longo de 3 anos.
Ex: JAN_18, FEV_18 ... JAN_19, FEV_19 ... JAN_20, FEV_20...

Gostaria que a COR da guia fosse alterada automaticamente, quando entrássemos no mês correspondente.

É possível fazer isso via VBA?

Obrigado

[osvaldomp]

Código: Selecionar todos

Private Sub Workbook_Open()
 Dim ws As Worksheet
  For Each ws In ThisWorkbook.Worksheets
   If ws.Name = UCase(Format(Date, "mmm")) & "_" & Format(Date, "yy") Then
    ws.Tab.Color = vbBlue: ws.Previous.Tab.Color = xlAutomatic: Exit For
   End If
  Next ws
End Sub

[Ayslang]

Oi Osvaldo,

Inseri o código, e a cor da pasta atual (NOV_18) foi alterada. No entanto, as anteriores não. Eu não expliquei direito... na verdade, preciso que todas fiquem com a respectiva cor, menos as dos futuros meses.

Alterei o xlAutomatic para outra cor, mas só a anterior (OUT_18) foi alterada.

Ahhh... gostaria de colocar uma cor específica, usando a numeração RGB, tem como?


Obrigado

[osvaldomp]

O código abaixo irá somente colocar a cor RGB(10, 50, 100) na guia da planilha com o nome do mês/ano atual.
Como você não informou a cor desejada, altere se quiser.

Código: Selecionar todos

Private Sub Workbook_Open()
 Dim ws As Worksheet
  For Each ws In ThisWorkbook.Worksheets
   If ws.Name = UCase(Format(Date, "mmm")) & "_" & Format(Date, "yy") Then
    ws.Tab.Color = RGB(10, 50, 100): Exit For
   End If
  Next ws
End Sub