Página 1 de 1
Alterar COR da Guia de Planilha automaticamente
Enviado: 19 Nov 2018 às 10:00
por 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
Re: Alterar COR da Guia de Planilha automaticamente
Enviado: 19 Nov 2018 às 14:07
por osvaldomp
Código: Selecionar todosPrivate 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
Alterar COR da Guia de Planilha automaticamente
Enviado: 20 Nov 2018 às 08:11
por 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
Re: Alterar COR da Guia de Planilha automaticamente
Enviado: 20 Nov 2018 às 17:01
por 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 todosPrivate 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