Página 1 de 1
Contar se celula com formatação condicional estiver pintada
Enviado: 25 Fev 2018 às 21:01
por 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.
Contar se celula com formatação condicional estiver pintada
Enviado: 25 Fev 2018 às 21:42
por mprudencio
Use a função somase, cont.se ou similares com o mesmo criterio que vc usou na formatação condicional
Contar se celula com formatação condicional estiver pintada
Enviado: 25 Fev 2018 às 22:49
por 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.
Re: Contar se celula com formatação condicional estiver pint
Enviado: 26 Fev 2018 às 07:50
por osvaldomp
Experimente:
Código: Selecionar todosSub 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
Re: Contar se celula com formatação condicional estiver pint
Enviado: 26 Fev 2018 às 13:04
por 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.
Re: Contar se celula com formatação condicional estiver pint
Enviado: 26 Fev 2018 às 13:55
por osvaldomp
Dieferson escreveu:... 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
Contar se celula com formatação condicional estiver pintada
Enviado: 26 Fev 2018 às 15:45
por rugaldd
Muito obrigado pela ajuda de todos, as sugestões solucionaram meu problema.