Este fórum está sendo desativado

[OTACILIO144]

Olá amigos
Meu nome é Otacílio e venho pedir uma ajudinha a vocês
Bom eu tenho uma planilha que uso para conferir resultado de gabarito de uma determinada prova de concurso enfim, usei formatação condicional para colorir o fundo de uma cédula caso o resultado dela corresponda com o que esta em uma outra cédula até ai tudo bem saiu tudo como planejado, 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, como sei que varias cabeças pensam melhor do que uma espero contar com ajuda de vcs .

[osvaldomp]

... 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.

Código: Selecionar todos

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

[OTACILIO144]

muitíssimo obrigado osvaldomp essa macro deu certo