Fóruns
Microsoft Excel - 2...
2024 - VBA & Macros
trocar a cor das gu...
 
Notifications
Clear all

trocar a cor das guias.

 
2024 - VBA & Macros
3 Posts
2 Usuários
0 Reactions
660 Visualizações
RSS
Fernando Fernandes
 Fernando Fernandes
(@fernandofernandes)
Posts: 43750
Illustrious Member
Topic starter
 

Olá gostaria da ajuda de voce.

Fiz uma busca na net... achei algumas coisas mas nada que eu pudesse aproveitar ou entender como funcionar.

O que eu preciso julgo ser simples para quem manda de VBA.

Vamos lá.

Tenho uma planilha com 31 guias.

Se a celula B5 for igual Sabado ou Domingo a cor da guia deve ser vermelho, caso contrario a cor deve ser verde.

Obrigado pela ajuda.

Obrigado

Existem mil maneiras de preparar Neston. Invente a sua!
http://www.youtube.com/ExpressoExcel

 
Postado : 12/12/2016 8:37 am
 MPrudencio
(@mprudencio)
Posts: 2749
Famed Member
 

Cole em um Modulo

Sub CordaGuia()


Dim WS As Worksheet


For Each WS In Worksheets

 If WS.Range("B5").Value = "Sabado" _
 Or WS.Range("B5").Value = "Domingo" Then
 
    With WS.Tab
        .Color = 255
        .TintAndShade = 0
    End With
   Else
    With WS.Tab
        .Color = 5287936
        .TintAndShade = 0
    End With
    End If
    
    Next

End Sub

Marcelo Prudencio
Microsoft Excel Brasil no Facebook

"Começar já é a metade do caminho."
Autor Desconhecido

Simplifica que simples fica.
Nicole Tomazella.

"O Simples é Sempre Melhor Que o Complicado"
Jorge Paulo Lemann.

 
Postado : 12/12/2016 9:14 am
Fernando Fernandes
 Fernando Fernandes
(@fernandofernandes)
Posts: 43750
Illustrious Member
Topic starter
 

Obrigado,

Funcionou perfeitamente, só tive que colocar no Module como Auto_Open().

Agora esta tudo de acordo.

Obrigadão

Existem mil maneiras de preparar Neston. Invente a sua!
http://www.youtube.com/ExpressoExcel

 
Postado : 12/12/2016 12:37 pm
Forum Jump:
  Tópico Anterior
Próximo Tópico