Este fórum está sendo desativado

[vilc]

boa noite a todos, tenho uma coluna (B2) com datas aleatórias, queria somar a quantidade de chamados por mês.
ex:
18/03/2022
18/03/2022
20/03/2022
27/03/2022

eu teria 4 chamados no mês, precisava que ele filtra-se o mês inteiro, quando vira-se o mês começa-se a contar novamente.

[Deciog]

vilc, Bom Dia.

Importante voce postar um modelo pois as formula pode ser mudada conforme disposição na planilha

Tambem informa sua versão do Excel

Decio

[vilc]

Bom dia, deciog, estou enviando a tabela em anexo, na guia definições coloquei a duvida.
basicamente seria contar a quantidade de ocorrências dentro do mês.

[Estevaoba]

Boa noite.
Você não disse, então eu suponho que a contagem seria das datas na coluna B da aba TbChamados.
Formate a coluna de datas como valores numéricos em formato de data e tente esta fórmula.

Código: Selecionar todos

=CONT.SES(TbChamados!B2:B100;">="&DATA(ANO(HOJE());MÊS(HOJE());1);TbChamados!B2:B100;"<="&FIMMÊS(DATA(ANO(HOJE());MÊS(HOJE());1);0))

Notei que há três datas no mês de março, mas só uma deste ano, daí o resultado 1 da fórmula.

Good luck!

[PHSabater]

Caso queira resolver seu problema da contagem com uma macro, segue solução abaixo.
Insira em um módulo e rode pra testar... depois pode incluir na abertura da planilha ou através de um botão a sua chamada.

Código: Selecionar todos

Sub ContarChamados()
Dim vLinha, Contador As Long
Dim Data As Date
Dim Mes As Integer

vLinha = 2
Data = CDate(Date)
Mes = DatePart("m", Data)
Contador = 0

'Faz o loop na tabela chamados
Do Until Sheets("TbChamados").Cells(vLinha, 1) = ""
    If DatePart("m", Sheets("TbChamados").Cells(vLinha, 2)) = Mes Then
        Contador = Contador + 1
    End If
vLinha = vLinha + 1
Loop
Sheets("Definicoes").Range("M5") = Contador
End Sub

[vilc]

Boa noite.
Você não disse, então eu suponho que a contagem seria das datas na coluna B da aba TbChamados.
Formate a coluna de datas como valores numéricos em formato de data e tente esta fórmula.

Código: Selecionar todos

=CONT.SES(TbChamados!B2:B100;">="&DATA(ANO(HOJE());MÊS(HOJE());1);TbChamados!B2:B100;"<="&FIMMÊS(DATA(ANO(HOJE());MÊS(HOJE());1);0))

Notei que há três datas no mês de março, mas só uma deste ano, daí o resultado 1 da fórmula.

Good luck!

Estevaoba, muito obrigado funcionou.

[vilc]

Caso queira resolver seu problema da contagem com uma macro, segue solução abaixo.
Insira em um módulo e rode pra testar... depois pode incluir na abertura da planilha ou através de um botão a sua chamada.

Código: Selecionar todos

Sub ContarChamados()
Dim vLinha, Contador As Long
Dim Data As Date
Dim Mes As Integer

vLinha = 2
Data = CDate(Date)
Mes = DatePart("m", Data)
Contador = 0

'Faz o loop na tabela chamados
Do Until Sheets("TbChamados").Cells(vLinha, 1) = ""
    If DatePart("m", Sheets("TbChamados").Cells(vLinha, 2)) = Mes Then
        Contador = Contador + 1
    End If
vLinha = vLinha + 1
Loop
Sheets("Definicoes").Range("M5") = Contador
End Sub

PHSabater, top esse código, caso fosse colocar uma Label na abertura de um formulário para indicar a quantidade de chamados com esse código, como ficaria?

[PHSabater]

Código: Selecionar todos

Sheets("Definicoes").Range("M5") = Contador

Mudar o destino da contagem final para o objeto que criou.

Qualquer coisa posta da forma que deseja exibir que ajusto se não conseguir.