Extraia Índice de Cor Específico usando VBA

Anonim

No caso de você desejar copiar uma célula formatada específica ou células coloridas de uma coluna para a coluna seguinte, este artigo é para você. Neste artigo, aprenderemos como copiar células coloridas usando o código VBA.

A seguir está o instantâneo dos dados que temos, ou seja, a coluna A contém dados com poucas células amarelas.

Para extrair os dados destacados apenas na cor amarela; precisamos criar um UDF para mostrar as células coloridas apenas na coluna B

  • Para criar a função definida pelo usuário, seguiremos as etapas abaixo:
  • Clique na guia Desenvolvedor
  • No grupo Código, selecione Visual Basic

  • Somos obrigados a copiar o código abaixo no módulo padrão

Função IsYellow (ByRef r As Range)

Se r.Interior.ColorIndex = 6, então

IsYellow = r.Value

Outro

IsYellow = vbNullString

Fim se

Função Final

  • Na célula B1, a fórmula será = IsAmarelo (A1)

O código acima corresponde especificamente à cor # 6, que se destina apenas à cor amarela. Portanto, o udf extrairá apenas os valores que contêm a cor # 6.

Caso desejemos extrair células de cor vermelha, precisamos verificar o número da cor designada e simplesmente substituir pelo número da cor amarela.

Dessa forma, podemos recuperar as células da cor da fonte amarela usando o código vba.

Download - Extraia índice de cor específico usando VBA - xlsm