Pergunta : Cor interior

Eu tenho o código abaixo desse worksand sou usado em uma outra parte do manual de instruções. Mas que eu gostaria de poder fazer devo faço agora o mesmos mas se a cor interior da pilha do destino é ou amarela ou o vermelho então somente a pia batismal é entered.

On a lima que unida os trajetos do BRIO são o MESTRE e esta informação é exigida para ser transferida nos confinamentes sheet.
So do trajeto as cores no mestre são transferidas na folha dos trajetos mas não quando a folha do destino já tem um colour.

On a folha unida para Wed mim criaram manualmente as cores como como eu gostaria das ter applied.

Is isto possível? class= > " desobstruído " do
> do " codeSnippet " do class= do
class= " lineNumbers " do
class= do 
1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:
33:
34:
35:
36:
id= " codeSnippet787816 " class= " do 
 ' marrom de QRNational do formato
Para cada c em rngClr1
'Para cada c em ActiveSheet.UsedRange
    'verific para ver se há o amarelo
    Se c.Interior.ColorIndex = 9 então
        shtJIL.Activate
        
'Pilhas ((c.Row * 2) + 6, (c.Column * 2) + 16) .ClearContents
        Pilhas ((c.Row * 2) + 6, (c.Column * 2) + 18). Interior.ColorIndex = 9
        Pilhas ((c.Row * 2) + 6, (c.Column * 2) + 18). Font.ColorIndex = 2
        Pilhas ((c.Row * 2) + 6, (c.Column * 2) + 18). Font.Bold = retificam


        msJIL.Activate
'c.ClearContents
'c.Interior.ColorIndex = xlNone
    Terminar se
Em seguida

'Roxo nacional pacífico do formato
Para cada c em rngClr1
'Para cada c em ActiveSheet.UsedRange
    'verific para ver se há o amarelo
    Se c.Interior.ColorIndex = 13 então
        shtJIL.Activate
        
'Pilhas ((c.Row * 2) + 6, (c.Column * 2) + 16) .ClearContents
        Pilhas ((c.Row * 2) + 6, (c.Column * 2) + 18). Interior.ColorIndex = 13
        Pilhas ((c.Row * 2) + 6, (c.Column * 2) + 18). Font.ColorIndex = 2
        Pilhas ((c.Row * 2) + 6, (c.Column * 2) + 18). Font.Bold = retificam

        msJIL.Activate
'c.ClearContents
'c.Interior.ColorIndex = xlNone
    Terminar se
Em seguida
class= do " lastRow do
>Attachments do " nome " do class= do class= " valor " do
>
nome de arquivo " do class= do >interior-colour-test.xls " fileSize " > (78 KB) Javascript " do href= o " dos " attachmentDetails do class= de (tipo de lima detalhes)
cor test
do >interior da " descrição " do class= do
o class= de
do >
class= do

Resposta : Cor interior

Tentar isto.
1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:
33:
34:
35:
36:
37:
38:
39:
40:
41:

Opção explícita

ApplyBRIO secundário público ()
  wksFrom não ofuscante como a folha
  wksTo não ofuscante como a folha
  rngFrom não ofuscante como a escala
  rngTo não ofuscante como a escala
  C não ofuscante como a escala
  lngColArea não ofuscante como por muito tempo
  Ajustar o wksFrom = as folhas (do “trajetos BRIO x JIL”)
  Ajustar o wksTo = as folhas (do “confinamentes JIL ex trajeto”)
  Application.ScreenUpdating = falso
  Para cada c em wksFrom.Range (“B1: O1”)
    Se c.NumberFormat gostam do “DDD *” então
      Se o rngFrom não é nada então
        Ajustar o rngFrom = o wksFrom.Range (c.Cells (3, 1), wksFrom.Cells (62, c.Column))
      Mais
        Ajustar o rngFrom = a união (rngFrom, wksFrom.Range (c.Cells (3, 1), wksFrom.Cells (62, c.Column)))
      Terminar se
    Terminar se
  Em seguida
  Ajustar o rngTo = o wksTo.Range (“B3: H62”)
  Para o lngColArea = 1 a rngFrom.Areas.Count
    Para cada c em rngFrom.Areas (lngColArea). Pilhas
      Se Len (guarnição (c.Value))  <> 0 então
        Selecionar o caso rngTo.Cells (c.Row - 2, lngColArea). Interior.Color
          Encaixotar o vbYellow, vbRed
            'apenas transferência o texto
            rngTo.Cells (c.Row - 2, lngColArea). Valor = c.Value
          Caso mais
            'transferir o texto e a cor interior
            rngTo.Cells (c.Row - 2, lngColArea). Valor = c.Value
            rngTo.Cells (c.Row - 2, lngColArea). Interior.Color = c.Interior.Color
            rngTo.Cells (c.Row - 2, lngColArea). Font.Color = c.Font.Color
        Extremidade seleta
        'Batente
      Terminar se
    Em seguida
  Em seguida
  Application.ScreenUpdating = retificam
Submarino da extremidade
Outras soluções  
 
programming4us programming4us