Página 1 de 1

Prencher um campo de acordo com a cor da célula.

Enviado: 04 Abr 2019 às 09:30
por WallaceCrz
Olá,

Sou novo no fórum, preciso de ajuda, ficarei grato se alguém conseguir me ajudar.
Pequei uma tabela antiga aqui no meu trabalho e preciso passar ela para o access, essa tabela contem mais de 5.000 registros de pessoas para o atendimento do lugar onde trabalho com alguns campos, para os atendimentos cancelados o usuário antigo da tabela pintava o campo 'Nome' de vermelho. Eu preciso que essa condição de Cancelado fique em um campo na linha do registro. (Estou iniciando no vba). Ao pé da letra o que eu quero é:

Se o campo Nome for vermelho, o campo condição recebe "Cancelado"
Está assim: https://uploaddeimagens.com.br/images/0 ... 1554380718

Prencher um campo de acordo com a cor da célula.

Enviado: 04 Abr 2019 às 10:31
por Kledison
Bom dia,

como não postou nenhum exemplo em XLS, tente usando os códigos abaixo.

Em um módulo coloque esse código:
Código: Selecionar todos
'Identifica o código da cor da célula
Function gfCelColorName(ByVal vCel As Range) As String
  Application.Volatile
  gfCelColorName = vCel.Interior.Color
End Function
na coluna Condição coloque a fórmula:
Código: Selecionar todos
=SE(VALOR(gfCelColorName(B2))=255;"Cancelado";"")
B2 é a coluna de nomes.

Não irá funcionar em células coloridas por formatação condicional.

Att

Prencher um campo de acordo com a cor da célula.

Enviado: 04 Abr 2019 às 10:51
por WallaceCrz
Deu certo, obrigado :)