Este fórum está sendo desativado

[BritoMarques]

Olá a todos!
Estou precisando fazer uma formatação condicional baseado se a célula tem preenchimento ou não.
Criei uma a função abaixo para saber se tem preenchimento independente da cor:
Function QualCor(ByVal Target As Range) As Variant
QualCor = Target.Interior.Color
End Function

Acontece que se o preenchimento tiver sido através de uma formatação condicional o resultado é como se não tem preenchimento.
Como resolver e detectar preenchimento mesmo que tenha sido por Formatação condicional?

[osvaldomp]

Olá, @BritoMarques .

O comando ~~~> DisplayFormat.Interior.Color 'Index me parece que é o único que detecta também o preenchimento por Formatação Condicional. Funciona em Subs porém não funciona em UDFs.

Código: Selecionar todos

Sub QualCorV2()
 Dim c As Range
  For Each c In [A1:A10]
   c.Offset(, 1).Value = c.DisplayFormat.Interior.Color 'Index
  Next c
End Sub