Este fórum está sendo desativado

[rugaldd]

Olá, eu tenho uma planilha para controle de férias de vários funcionários, e nela tem um mapa de férias que através da formatação condicional as células são pintadas de acordo com as datas, gostaria que as colunas que representam cada dia do mês fossem contadas de acordo com as cor azul na linha 200. Segue em anexo a planilha para ilustrar melhor.

[mprudencio]

Use a função somase, cont.se ou similares com o mesmo criterio que vc usou na formatação condicional

[rugaldd]

Obrigado pela ajuda mas já tentei isso, se você olha a planilha verá que as células pintadas são vazias, como elas só tem cor e não tem nenhum valor dentro, o cont.se ou somase precisa de valores nas células para identificar e contar, creio que será necessário criar uma formula no vba, e isso eu ainda não tenho conhecimento para fazer.

[osvaldomp]

Experimente:

Código: Selecionar todos

Sub ContaAzuis()
 Dim am As Double, r As Range, LR As Long, LC As Long, k As Long
  LR = Cells(Rows.Count, 4).End(3).Row: LC = Cells(2, Columns.Count).End(1).Column
  For k = 5 To LC
   For Each r In Range(Cells(3, k), Cells(LR, k))
    If r.DisplayFormat.Interior.ColorIndex = 23 Then
     am = am + 1
    End If
   Next r
    Cells(LR + 1, k) = am
    am = 0
  Next k
End Sub

[Dieferson]

Boa tarde!

A sub do Osvaldo deve funcionar, porém, segue também uma pequena "gambi" caso você queira adaptar.

Qualquer dúvida nos retorne.

[osvaldomp]

... segue também uma pequena "gambi" caso você queira adaptar.

sugestão para a sua alternativa com fórmulas:

em lugar desta fórmula que você colocou

Código: Selecionar todos

=--E(DATA(ANO(43101);MÊS(E$2);DIA(E$2))>=$C3;DATA(ANO(43101);MÊS(E$2);DIA(E$2))<=$D3)

pode ser utilizada esta

Código: Selecionar todos

=E(E$2>=$C3;E$2<=$D3)*1

[rugaldd]

Muito obrigado pela ajuda de todos, as sugestões solucionaram meu problema.