Contagem

Fórmulas básicas e avançadas do Microsoft Excel, Fórmulas Matriciais, Fórmulas combinadas, Funções como PROCV, PROCH, SOMASE, SOMA, SE, etc.
Regras do fórum
Sua dúvida foi respondida? Marque como RESOLVIDO em seus tópicos, usando o botão com marca verde. Imagem

Contagem

Mensagempor Fantin » Qui Out 10, 2019 10:58 am

Bom dia galera,

Estou precisando da ajuda de vocês para resolver uma pendência no trabalho.

MANGUEIRA QTD
201-10 1,73
201-12 0,8
201-12 0,47
201-16 1,8
201-16 1,8
201-4 2,9
201-5 2,88
201-6 2,7
201-6 2,7
201-8 1,71
301SN-20 2,14
201-5 1,77

Notasse que há alguns itens repetidos na coluna de mangueiras, eu preciso somar a quantidade total de cada uma.
Por exemplo, a mangueira 201-5 aparece duas vezes, em uma ela possui quantidade 2,88 e na outra 1,77, então a quantidade total da 201-5 será 4,65.
Agora imagine que essa lista de mangueira tenha mais de 400 linhas com vários tipos diferentes, sendo extremamente trabalhoso eu colocar uma formula CONT.SE para cada uma, pois existem vários tipos diferentes.

Gostaria de uma ajuda de vocês se há algum método para facilitar meu trabalho ao invés de ter que aplica um filtro e contar quantidade por quantidade.
Fantin
Membro
Membro
 
Mensagens: 5
Registrado em: Qua Jul 03, 2019 12:45 pm
Has thanked: 0 time
Have thanks: 0 time

{ SO_SELECT }

Re: Contagem

Mensagempor rilust » Sex Out 11, 2019 12:42 pm

prezado

você quer contagem ou soma de valor?

\por favor poste uma planilha com poucas linhas simulando o resultado esperado no sendspace. Facilita pra gente fazer a solução adequada para seu problema.
Espero ter Ajudado.
Lembre-se de AGRADECER aos que te ajudaram, e de marcar o tópico como [Resolvido]
rilust
Membro
Membro
 
Mensagens: 475
Registrado em: Ter Jun 16, 2015 5:23 pm
Has thanked: 96 times
Have thanks: 174 times

Re: Contagem

Mensagempor wagner » Sex Out 11, 2019 12:42 pm

Fantin,

Boa tarde!

Fiz uma pequena função (UDF) em VBA que pode resolver seu problema, independente da quantidade de linhas que tenha seu arquivo. Apenas alguns detalhes que devem ser observados, da forma que programei, para que funcione corretamente na sua máquina. Você deva fazer igual:
1 - Imaginei que o código das mangueiras está na coluna A e que começam a partir da linha 2 (após o cabeçalho);
2 - Imaginei que as quantidades estejam na coluna B a partir da linha 2 (após o cabeçalho);
3 - Imaginei que a aba onde estão esses dados se chama Plan1;

Isso posto, abra o editor do VBA (ALT + F11) e insira um módulo lá (Menu Inserir/Módulo);
4 - Na janela que surgiu, insira o código abaixo:
Código: Selecionar todos
Function ContarQtde(Mangueira As String) As Long
    Dim i As Long
    Dim UltimaLinha As Long
    Dim Contar As Long
   
    UltimaLinha = Sheets("Plan1").Cells(Cells.Rows.Count, 1).End(xlUp).Row
    If UltimaLinha < 2 Then UltimaLinha = 2
   
    For i = 2 To UltimaLinha
        If Range("A" & i).Value = Mangueira Then
            Contar = Contar + 1
        End If
    Next i
   
    ContarQtde = Contar
End Function

5 - Salve e feche o VBA e pode usar a função como uma outra qualquer nativa do próprio Excel.
Se a resposta foi útil para você, por gentileza, Amigo, clique na mãozinha ao lado direito da ferramenta CITAR, no canto superior direito.

Atenciosamente
Wagner Morel
Avatar do usuário
wagner
Moderador
Moderador
 
Mensagens: 5547
Registrado em: Sáb Out 20, 2012 12:49 pm
Localização: Fortaleza - CE
Has thanked: 102 times
Have thanks: 2356 times

Re: Contagem

Mensagempor rilust » Sex Out 11, 2019 4:29 pm

wagner

implantei sua solução mas não entendi como faz para executar
Espero ter Ajudado.
Lembre-se de AGRADECER aos que te ajudaram, e de marcar o tópico como [Resolvido]
rilust
Membro
Membro
 
Mensagens: 475
Registrado em: Ter Jun 16, 2015 5:23 pm
Has thanked: 96 times
Have thanks: 174 times

Re: Contagem

Mensagempor rilust » Sex Out 11, 2019 5:04 pm

VEJA SE E ISSO QUE VC QUER

https://www.sendspace.com/file/4z5ihk

CONTAGEM.XLSM
Espero ter Ajudado.
Lembre-se de AGRADECER aos que te ajudaram, e de marcar o tópico como [Resolvido]
rilust
Membro
Membro
 
Mensagens: 475
Registrado em: Ter Jun 16, 2015 5:23 pm
Has thanked: 96 times
Have thanks: 174 times

Re: Contagem

Mensagempor wagner » Sex Out 11, 2019 6:27 pm

rilust,

Boa noite!

Basta utilizar, na própria interface do Excel, como se fosse uma função nativa do Excel. Ou seja, em uma célula qualquer do Excel digite = ContarQtde e passe como parâmetro a célula que contém o código da Mangueira. Por Exemplo: = ContarQtde(A2).
Se a resposta foi útil para você, por gentileza, Amigo, clique na mãozinha ao lado direito da ferramenta CITAR, no canto superior direito.

Atenciosamente
Wagner Morel
Avatar do usuário
wagner
Moderador
Moderador
 
Mensagens: 5547
Registrado em: Sáb Out 20, 2012 12:49 pm
Localização: Fortaleza - CE
Has thanked: 102 times
Have thanks: 2356 times


Voltar para Fórmulas & Funções Microsoft Excel

Quem está online

Usuários navegando neste fórum: Nenhum usuário registrado e 4 visitantes