Contagem e valores formatados
Enviado: 17 Jan 2019 às 09:51
por Angra
Bom dia
Na tabela tem alguns valores formatados que precisam ser contados e mostrar em uma célula, o total de formatados
Re: Contagem e valores formatados
Enviado: 17 Jan 2019 às 10:35
por babdallas
Veja se é isso:
Código: Selecionar todosOption Explicit
Public Function ContaCorDiferentePreto(rngIntervalo As Range) As Long
Dim rngCelula As Range
Dim lngContador As Long
If rngIntervalo Is Nothing Then
ContaCorDiferentePreto = Err.Number
Exit Function
End If
For Each rngCelula In rngIntervalo
If rngCelula.Interior.ColorIndex <> 1 Then lngContador = lngContador + 1
Next rngCelula
ContaCorDiferentePreto = lngContador
End Function
Re: Contagem de valores formatados
Enviado: 17 Jan 2019 às 13:34
por Angra
babdallas, não sei onde ta o erro se eh que ele existe. Essa eh uma função personalizada, apliquei formatação no intervalo e a função não atualizou a contagem