Guru do Excel e Power BI

OTACILIO144 escreveu:... no caso o que estou tentando e sem sucesso é elaborar uma função que fala a contagem das cédulas colorias pela formatação condicional...
A UDF que você está utilizando não fala e também não conta porque o comando [célula].Interior.ColorIndex não funciona em células coloridas por FC.
O comando que faz isso é [célula].DisplayFormat.Interior.ColorIndex, porém, este comando não funciona em UDFs, só em macros. Segue uma sugestão abaixo.

... como sei que varias cabeças pensam melhor do que uma ...
Hummm ... Verdade! Mas depende do objetivo. Há casos de várias cabeças que se juntam para fins nobres e há casos que várias cabeças se juntam pra nos sacanear ... PTralhas, entre outros.

Sub ContaColoridas()
 Dim x As Long, c As Range, k As Long
  For k = 2 To 8 Step 2
   For Each c In Cells(2, k).Resize(20)
    If c.DisplayFormat.Interior.ColorIndex = 37 Then x = x + 1
   Next c
  Cells(23, k) = x: x = 0
  Next k
End Sub