Trabalhando com COR

[mrfg2000]

OLÁ AMIGOS deste forum.

estou precisando de uma ajuda de vocês.

tenho na coluna A NÚMEROS E NA COLUNA B CORES

EXEMPLO

A1 = 1 B1 = PRETO

A2 = 2 B2 = VERMELHO

A3 = 3 B3 = AMARELO

A4 = 4 B4 = VERDE

E ASSIM POR DIANTE.

EM C5 VOU DIGITAR UM NÚMERO TIPO 2 E QUERO QUE EM D5 ME RETORNO A COR CORRESPONDENTE AO NÚMERO 2 OU SEJA VERMELHO.

OBSERVAÇÃO É UM PROCV .. MAS não DE VALOR E SIM DA COR.

EM D5 DEVERÁ FICAR EM VERMELHO ... OU SEJA RANGE("D5").INTERIOR.COLORINDEX = RED

A COR EM D5 TEM QUE MUDAR CORRESPONDENTE AO VALOR QUE ESTIVER EM C5

acho que deu para explicar...

abraço a todos amigos.

e antecipo agradecimentos

[benzadeus]

Numere as colunas de 1 a 10, por exemplo, na coluna A e pinte o interior de cada uma dessas células da cor que desejar.

Use esse código na classe dessa Planilha:

Private Sub Worksheet_Change(ByVal Target As Range)
    If Intersect(Target, Columns("C")) Is Nothing Then Exit Sub
    
    Target.Offset(, 1).Interior.Color = Cells(Target, "A").Interior.Color
End Sub

[mrfg2000]

Olá amigo Benzadeus...

Agradeço-lhe pelos prestimos em solucionar este problema ...

Obrigado pela ajuda, deu certinho , atendendo minha necessidade.

Espero que outros amigos colaboladores/Membros possas ler e tirar proveito desse tópico, pois um dia poderá ser útil.

Sem mais muito obrigado.

Edited April 17, 2012 by mrfg2000