Notifications
Clear all

Alterar célula se o preenchimento for determinada cor

8 Posts
3 Usuários
0 Reactions
1,681 Visualizações
(@vguedes)
Posts: 47
Eminent Member
Topic starter
 

Prezados, bom dia!

Preciso de uma macro que altere a célula se ela estiver colorida de amarelo, por exemplo

O código percorre um determinado intervalo e, se a célula estiver amarela, ele armazena o valor contido na célula.

Consultei uma tabela na internet e escrevi o seguinte condicionante:

If ActiveCell.Interior.ColorIndex = 6 Then

Porém o valor retornado para ActiveCell.Interior.ColorIndex foi sempre de -4142, tanto para as células com preenchimento amarelo quanto para as que não possuem preenchimento.

Disponibilizo em anexo a planilha na qual a macro percorre.

Desde já agradeço!

 
Postado : 26/05/2014 6:59 am
Fernando Fernandes
(@fernandofernandes)
Posts: 43750
Illustrious Member
 

Boa tarde!!

Eu ainda não entendi sua dúvida.

Para qual valor a célula será alterado?

Att

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

 
Postado : 26/05/2014 10:32 am
(@vguedes)
Posts: 47
Eminent Member
Topic starter
 

Alexandre,

Obrigado pela atenção. A explicação ficou confusa mesmo.

Na planilha eu faço um loop que percorre determinada células. Até aí está ok, o loop está certo.

Porém a intenção é armazenar em uma certa variável apenas os dados de céluas que estão coloridas com fundo amarelo.

O que eu quero é a linha de código que faça "Se o preenchimento for amarelo, então". Tentei o código que eu mostrei acima, porém não está dando certo.

Em anexo eu disponibilizei apenas a planilha na qual a macro extrai os valores, e não a planilha em que a macra é executada.

 
Postado : 26/05/2014 11:15 am
(@markos)
Posts: 15
Active Member
 

Bom dia,, Apos os dados serem armazenados oque deseja fazer?

as colunas que serão pintadas em amarelo são estáticas ou são variáveis ?

 
Postado : 27/05/2014 5:17 am
(@markos)
Posts: 15
Active Member
 

Segue em anexo.!!!

 
Postado : 27/05/2014 5:54 am
(@vguedes)
Posts: 47
Eminent Member
Topic starter
 

Markos, obrigado. Já ajudou bastante.

Você sabe se tem uma maneira de identificar qual é o padrão em que as céluas estão pintadas?

Esta planilha não sou eu faço, eu recebo ela periodicamente. Seria bom saber este padrão para que não precise pintar as células na mão.

 
Postado : 28/05/2014 6:02 am
(@markos)
Posts: 15
Active Member
 

nesse caso, basta alterar no lugar de ser 6 troca para -4142.

att

 
Postado : 28/05/2014 6:29 am
(@vguedes)
Posts: 47
Eminent Member
Topic starter
 

Markos,

Aí que está, o problema é que aparentemente todas as células estão com com o ColorIndex = -4142, tanto as com preenchimento amarelo quanto as sem preenchimento ou com preenchimento cinza.

O que eu gostaria era identificar as células que estão com preenchimentos amarelos e cinzas de alguma maneira, para obter apenas o conteúdo delas e ignorar todas as outras sem preenchimento.

Um abraço, obrigado pela atenção.

 
Postado : 28/05/2014 11:20 am