Fóruns
Microsoft Excel - 2...
2024 - VBA & Macros
Alterar várias core...
 
Notifications
Clear all

Alterar várias cores de forma automática

 
2024 - VBA & Macros
Post Recente por Eliézer7 9 anos atrás
4 Posts
2 Usuários
0 Reactions
1,004 Visualizações
RSS
 Eliézer7
(@eliezer7)
Posts: 15
Active Member
Topic starter
 

Bom dia,

Pessoal, tenho várias planilhas da empresa feita nas suas cores padrões. Só que essas cores mudaram e eu preciso alterar.
Gostaria de saber se há alguma macro que me ajude a fazer essas mudanças de forma mais automática. Hoje eu tenho que ir range por range e alterando as cores das bordas, fundo e letra, só que são muitos arquivos e cada arquivo tem várias abas. Será que existe algo que localize as cores e mude de forma automática ?
Por exemplo: (cores RGB):
"Vermelho(192)-Verde(0)-Azul(0)" mudar para "Vermelho(32)-Verde(35)-Azul(100)"
"Vermelho(242)-Verde(220)-Azul(219)" mudar para "Vermelho(149)-Verde(179)-Azul(215)"

 
Postado : 28/09/2015 8:41 am
 Eliézer7
(@eliezer7)
Posts: 15
Active Member
Topic starter
 

Obs.: Também é possível fazer através do Substituir, o problema é que tem que fazer o De/Para cor por cor.

 
Postado : 28/09/2015 8:52 am
Fernando Fernandes
 Fernando Fernandes
(@fernandofernandes)
Posts: 43750
Illustrious Member
 

Não sei se entendi, mas creio que básicamente seria algo +/- assim:

Sub Troca_Cor()
Set myrng = ActiveSheet.UsedRange

For Each wcel In myrng
    If wcel.Interior.Color = RGB(192, 0, 0) Then
        wcel.Interior.Color = RGB(32, 35, 100)
    ElseIf wcel.Interior.Color = RGB(242, 220, 219) Then
        wcel.Interior.Color = RGB(149, 179, 215)
    End If
Next
End Sub

Porem deve ser adaptada a sua realidade

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

 
Postado : 28/09/2015 11:56 am
 Eliézer7
(@eliezer7)
Posts: 15
Active Member
Topic starter
 

Muito Obrigado Reinaldo, é isso mesmo que preciso, agora é só eu adicionar outros critérios mudando a palavra "Interior" para "Borders" e "Font".
Valeu!!! :D

 
Postado : 28/09/2015 3:11 pm
Forum Jump:
  Tópico Anterior
Próximo Tópico