Página 1 de 1

Contar quantidade de chamados por mês

Enviado: 18 Mar 2022 às 22:33
por 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.

Re: Contar quantidade de chamados por mês

Enviado: 19 Mar 2022 às 07:59
por 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

Re: Contar quantidade de chamados por mês

Enviado: 19 Mar 2022 às 10:55
por 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.

Re: Contar quantidade de chamados por mês

Enviado: 20 Mar 2022 às 00:07
por 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!

Re: Contar quantidade de chamados por mês

Enviado: 20 Mar 2022 às 14:17
por 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

Re: Contar quantidade de chamados por mês

Enviado: 21 Mar 2022 às 18:15
por vilc
Estevaoba escreveu: 20 Mar 2022 às 00:07 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.

Re: Contar quantidade de chamados por mês

Enviado: 21 Mar 2022 às 18:17
por vilc
PHSabater escreveu: 20 Mar 2022 às 14:17 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?

Re: Contar quantidade de chamados por mês

Enviado: 21 Mar 2022 às 19:51
por 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.