Excel vba PINTAR CELULA

[Netrox92]

Ola,

Estou criando uma planilha onde eu tenho uma tabela com o nº do item e com a cor desse item.

Item #### Cor #### RGB

01 #### Azul ####

02 #### Amarelo ####

03 #### Vermelho ####

04 #### Roxo ####

05 #### Verde ####

...

....

.....

Eu usei uma função que descobre o RGB da celula --- ShowRGB("celula")

O problema é o seguinte:

Dependendo do nº do item da Etiqueta, ele tem que pintar a etiqueta da mesma cor do item que está na tabela.

OBS: Eu usei a função que descobre o RGB da celula porque a tabela com as cores não é fixa.

O usuario da planilha pode mudar a cor do Item na tabela.

Por este motivo não uso o cód:

Range("J11").Interior.Color = RGB(0, 176, 240)

Porque com este cód. a cor da celula sempre vai ser a mesma.

Eu pensei em usar o RGB que ele encontrou para pintar a celula.

Exemplo:

Se o RGB encontrado ta escrito na celula "E11" o cód ficaria:

Range("J11").Interior.Color = Range("E11").Value

Estou postando uma planilha de exemplo:

http://www.4shared.com/file/4zwhDDzH/Exemplo_Pintar_Celula.html?

Agradeço desde ja,

Abraços

[laercionb]

Ola,

Estou criando uma planilha onde eu tenho uma tabela com o nº do item e com a cor desse item.

Item #### Cor #### RGB

01 #### Azul ####

02 #### Amarelo ####

03 #### Vermelho ####

04 #### Roxo ####

05 #### Verde ####

...

....

.....

Eu usei uma função que descobre o RGB da celula --- ShowRGB("celula")

O problema é o seguinte:

Dependendo do nº do item da Etiqueta, ele tem que pintar a etiqueta da mesma cor do item que está na tabela.

OBS: Eu usei a função que descobre o RGB da celula porque a tabela com as cores não é fixa.

O usuario da planilha pode mudar a cor do Item na tabela.

Por este motivo não uso o cód:

Range("J11").Interior.Color = RGB(0, 176, 240)

Porque com este cód. a cor da celula sempre vai ser a mesma.

Eu pensei em usar o RGB que ele encontrou para pintar a celula.

Exemplo:

Se o RGB encontrado ta escrito na celula "E11" o cód ficaria:

Range("J11").Interior.Color = Range("E11").Value

Estou postando uma planilha de exemplo:

http://www.4shared.com/file/4zwhDDzH/Exemplo_Pintar_Celula.html?

Agradeço desde ja,

Abraços

Ola Netrox92

se for somente colorir de acordo com o codigo. ta ai

espero ter ajudado abraço....

http://www.sendspace.com/file/jfvbtf

Ola Netrox92

se for somente colorir de acordo com o codigo. ta ai

espero ter ajudado abraço....

http://www.sendspace.com/file/jfvbtf

[Netrox92]

Ola laercionb,

Obrigado pela resposta!

Ela funciona, porém não para o meu proposito.

Obrigado mesmo assim