Este fórum está sendo desativado

[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

[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

[WallaceCrz]

Deu certo, obrigado