Isso pode ser feito com uma função definida pelo usuário. Primeiro, crie a função para identificar a cor de preenchimento da célula:
Function IdentifyColor(CellToTest As range)
'Returns R + (256 * G) + (65536 * B)
'IdentifyColor = 255 for red, 65280 for green, etc.
IdentifyColor = CellToTest.Interior.Color
End Function
Em seguida, crie uma fórmula de formato condicional para a célula A5 com base nesta fórmula: =IdentifyColor(B5)=65280
Pode ser mais fácil usar HEX2DEC
para especificar cores. Portanto, a fórmula se tornaria:
=IdentifyColor(B5)=HEX2DEC("00FF00")
Se a cor da célula B5 estiver verde (valor RGB 0, 255, 0), a fórmula retornará true e o formato da célula A5 será alterado para a forma como você especificar.
Você pode precisar pressionar F9 depois de alterar a formatação para forçar o recálculo e garantir que a formatação condicional seja aplicada.