Como colorir a guia baseada na cor da célula

Ir em baixo

Como colorir a guia baseada na cor da célula

Mensagem por alexandrevba em 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: 
avatar
alexandrevba
Intermediário
Intermediário

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

Ver perfil do usuário

Voltar ao Topo Ir em baixo

Voltar ao Topo

- Tópicos similares

 
Permissão deste fórum:
Você não pode responder aos tópicos neste fórum