Este fórum está sendo desativado

Depois de 9 anos, este fórum será desativado. Mas calma.... estamos migrando para uma comunidade no DISCORD. Junte-se a nós.

ENTRAR PARA DISCORD

Dúvidas sobre cálculos, funções simples e aninhadas, fórmulas matriciais, etc.
  • Avatar do usuário
#6255
Bom dia!
Solicito a ajuda de vcs. Preciso contar o numero de valores exclusivos que respeitem um intervalo de datas. Como exemplo

Data Valor
30/12/2015 A
06/01/2016 B
06/01/2016 C
07/01/2016 B
08/01/2016 B
30/12/2015 B

Bem, contar valores unicos sem intervalo de data, daria o resultado 3 (A, B e C).
Mas, eu quero so valores unicos apenas de janeiro de 2016, onde o resultado seria 2 (B e C).
Sei que para contar valores unicos, usaria a formula exemplo:
=CONT.NÚM(SE(FREQÜÊNCIA(C2:C108;C2:C108)>0;C2:C108))

Mas, não achei a solução quando preciso usar o filtro de datas.

Agradeço a ajuda...
#6260
E aí Allan!

Fiz através de função personalizada; vê se te atende. Abaixo o código, e uma planilha com exemplo da aplicação.
Código: Selecionar todos
Dim Data_Range As Range
Dim data As Date
Dim valor_range As Range
Dim total_valores As Long
Dim valor As String
Dim Resultado As Double
Dim contador As Long
Dim contador2 As Long

For Each Data_Range In Area_datas
contador = contador + 1
data = Data_Range

    If data >= Data_inicial And data <= Data_final Then 'se estiver dentro da data
        valor = Area_valores.Cells(contador, 1)
        
         'ver qual o total de valores dentro do período
         For Each valor_range In Area_valores
            contador2 = contador2 + 1
            If valor_range = valor Then
                If Area_datas.Cells(contador2, 1) >= Data_inicial And _
                    Area_datas.Cells(contador2, 1) <= Data_final Then
                        total_valores = total_valores + 1
                End If
            End If
          Next valor_range
          
        'Divide 1 pelo total e soma ao resultado
        Resultado = Resultado + (1 / total_valores)
        total_valores = 0
        contador2 = 0
    End If
Next Data_Range

Frequencia_datas = Resultado

End Function
Você não está autorizado a ver ou baixar esse anexo.
long long title how many chars? lets see 123 ok more? yes 60

We have created lots of YouTube videos just so you can achieve [...]

Another post test yes yes yes or no, maybe ni? :-/

The best flat phpBB theme around. Period. Fine craftmanship and [...]

Do you need a super MOD? Well here it is. chew on this

All you need is right here. Content tag, SEO, listing, Pizza and spaghetti [...]

Lasagna on me this time ok? I got plenty of cash

this should be fantastic. but what about links,images, bbcodes etc etc? [...]

Estamos migrando para uma comunidade no Discord