Página 1 de 1

Formatar baseado em valor já formatado

Enviado: 23 Nov 2017 às 20:51
por Angra
Boa noite
Tenho um valor já formatado que vai servir de base para orientar outra formatação ou seja essa formatação vai ser o guia dessa segunda formatação. Melhores detalhes no infográfico. Nessa plan tem macros/filtro de funcionamento normal. Preciso apenas da formatação :roll: :D

Re: Formatar baseado em valor já formatado

Enviado: 23 Nov 2017 às 23:59
por babdallas
Para mim não ficou claro o que quer. Por favor, detalhe a explicação.

Re: Formatar baseado em valor já formatado

Enviado: 24 Nov 2017 às 07:03
por Angra
Bom dia :D
Vamos tomar como exemplo o valor 1.
Faço um "x" que é um parâmetro para validar o valor 1 dentro de duas tabelas distintas, por sua vez outros valores 1, são marcados (queimados) ao longo de todas as tabelas, como as listas tem aproximadamente 500 linhas e o espaçamento entre o "x" marcado (entre as 2 tabelas, AM4:AR30) e as tabelas propriamente ditas(B4:D30 e AP4:AR30) ficam "longe da leitura", a formatação dessas posições de 1 (queimados) em AM4:AR30, facilita visualmente identificar que não preciso marcar outro "x" nesse intervalo AM4:AR30, porque aquela posição de 1, já foi marcado anteriormente. 8-)

Re: Formatar baseado em valor já formatado

Enviado: 24 Nov 2017 às 12:55
por osvaldomp
Código: Selecionar todos
...
...
                               Celula.Interior.Color = vbYellow ~~~> PROCURE ESTA LINHA NO SEU CÓDIGO E INSIRA AS 3 LINHAS LOGO ABAIXO DELA
                 '##########
                 If (Target.Column < 42 And Celula.Column >= 80) Or (Target.Column > 41 And Celula.Column <= 4) Then
                  Cells(Celula.Row, Celula.Column + Desloc - 1).Interior.Color = vbRed
                 End If
                '############
...
...
                              Celula.Interior.Color = vbWhite~~~> PROCURE ESTA LINHA NO SEU CÓDIGO E INSIRA AS 3 LINHAS LOGO ABAIXO DELA
                 '##########
                 If (Target.Column < 42 And Celula.Column >= 80) Or (Target.Column > 41 And Celula.Column <= 4) Then
                  Cells(Celula.Row, Celula.Column + Desloc - 1).Interior.Color = vbBlack
                 End If
                '############
...
...

Re: Formatar baseado em valor já formatado

Enviado: 24 Nov 2017 às 14:01
por Angra
Boa tarde :D
osvaldomp, devo não ter entendido :oops: de como inserir as alterações no change da plan, veja se é isso mesmo, pq aqui deu o seguinte erro:

Imagem

Imagem

Re: Formatar baseado em valor já formatado

Enviado: 24 Nov 2017 às 14:17
por osvaldomp
Editei o meu post anterior e marquei as linhas do seu código que devem servir como referências para você acrescentar as linhas de código que eu sugeri.

Re: Formatar baseado em valor já formatado

Enviado: 24 Nov 2017 às 14:37
por Angra
Ma qui burrru, da zeru pá êli fêçô :oops: :oops: :oops: :lol: :lol: Gratíssimo pela ajuda. :D :D