Usuários do Excel
Gostaria de reagir a esta mensagem? Crie uma conta em poucos cliques ou inicie sessão para continuar.
Usuários do Excel

Fórum do Blog usuariosdoexcel.wordpress.com


Como colorir a guia baseada na cor da célula

Usuários do Excel :: Macros e VBA

Ir para baixo

Como colorir a guia baseada na cor da célula Empty Como colorir a guia baseada na cor da célula

Mensagem por alexandrevba Sex Dez 06, 2013 1:58 pm

Boa tarde!!

Como colorir a guia baseada na cor da célula.
Código:
Sub ColorGuia_CorDaCelula()
   
    Dim MyColor As Single

    MyColor = Sheets("Plan2").Cells(1, 1).Interior.Color

    Sheets("Plan2").Select
    With ActiveWorkbook.Sheets("Plan2").Tab
        .Color = MyColor
        .TintAndShade = 0
    End With

End Sub
Att:face: 
alexandrevba
alexandrevba
Intermediário
Intermediário

Mensagens : 222
Data de inscrição : 26/06/2012
Localização : Serra-ES

Ir para o topo Ir para baixo

Ir para o topo

- Tópicos semelhantes

Usuários do Excel :: Macros e VBA

 
Permissões neste sub-fórum
Não podes responder a tópicos