Somar por filtro

[Mph]

Olá a todos,

 

Preciso da vossa ajuda para pôr a funcionar o exemplo que envio em anexo.

 

Na folha 2 coloquei 3 exemplos do cálculo que deve ser feito, dependendo das variáveis que pretendo filtrar.

 

Agradeço antecipadamente!

Somar por filtro.xlsx

[Patropi]

Boas Mph

 

Veja se assim atende.

 

15_11_15_Somar por filtro_Patropi.xlsx

 

Se foi útil, clique em Curtir.

 

Dê retorno.

 

[]s

[Mph]

Olá Patropi,

 

A ideia é esta, mas pretendo uma fórmula que some os valores para todas as combinações:

 

- só nome

- só tipo

- só descritivo

- nome e tipo

- nome e descritivo

- tipo e descritivo

- etc...

 

Pretendo analisar só num quadro.

[Patropi]

Bom dia Mph

 

Eu achei estranho você desejar um filtro separado, mas como no teu exemplo estava assim, fiz segundo teu exemplo.

 

Fiz o que você deseja usando a função BDSOMA.

 

16_11_15_Somar com critérios_Patropi.xlsx

 

Se foi útil, clique em Curtir

 

[]s

[Mph]

Caro Patropi,

 

Excelente!

 

Era exactamente isto que precisava.

 

Tenho apenas uma questão:

 

Se pretender várias somas, resultado de combinações diferentes, ao definir os critérios na fórmula, tenho sempre de incluir um cabeçalho para cada combinação?

 

Exemplo em anexo.

16_11_15_Somar com critérios_Patropi (vários crit.).xlsx

[Patropi]

Mph

 

Para fazer com você deseja, cada linha filtrar um dado diferente, eu não sei fazer, acredito que só com a utilização de macros.

Vou deixar para os colegas te ajudarem, pois VBA não é minha praia.

 

[]s

[Mph]

Caro Patropi,

 

Tens me ajudado e muito!!

 

Peço desculpa por não ter utilizado da melhor maneira a funcionalidade "curtir".

 

Mais uma vez agradeço a rapidez e disponibilização de sabedoria que caracteriza as tuas respostas.

 

abraço

[Visitante]

Tenho apenas uma questão:

 

Se pretender várias somas, resultado de combinações diferentes, ao definir os critérios na fórmula, tenho sempre de incluir um cabeçalho para cada combinação?

 

 

@Mph, se quiser experimentar esta solução que utiliza UDF, instale o código abaixo em um módulo comum, assim:

1. copie o código daqui

2. a partir da planilha em que estão os dados tecle 'Alt+F11' para acessar o editor de VBA

3. no menu do editor >> Inserir >> Módulo

4. cole o código na janela em branco que vai se abrir

5. feito! 'Alt+Q' para retornar para a planilha e testar

6. coloque a função =somacs() na primeira célula abaixo da célula com o texto "valor", no caso do exemplo do post #5 coloque na célula "L4" da planilha "Folha2", em seguida arraste para baixo até onde quiser.

 

Function somacs()  Dim LR As Long, strC As String, vCaller As range, ws As Worksheet, x As String   application.Volatile   Set vCaller = application.Caller: Set ws = Sheets("Folha1")   LR = ws.Cells(Rows.Count, 1).End(xlUp).Row   x = application.Caller.Parent.Name   If application.CountA(vCaller.Offset(, -3).Resize(, 3)) = 0 Then    somacs = 0: Exit Function   End If   If vCaller.Offset(, -3).Value <> "" Then strC = "Folha1!B2:B" & LR & "," & x & "!" & vCaller.Offset(, -3).Address(0, 0)   If vCaller.Offset(, -2).Value <> "" Then    If strC = "" Then     strC = "Folha1!C2:C" & LR & "," & vCaller.Offset(, -2).Address(0, 0)    Else: strC = strC & ",Folha1!C2:C" & LR & "," & x & "!" & vCaller.Offset(, -2).Address(0, 0)    End If   End If   If vCaller.Offset(, -1).Value <> "" Then    If strC = "" Then     strC = "Folha1!D2:D" & LR & "," & x & vCaller.Offset(, -1).Address(0, 0)    Else: strC = strC & ",Folha1!D2:D" & LR & "," & x & "!" & vCaller.Offset(, -1).Address(0, 0)    End If   End If   somacs = Evaluate("=SUMIFS(Folha1!E2:E" & LR & "," & strC & ")")End Function

[Mph]

Caro Osvaldo,

 

Agradeço desde já a tua ajuda.

 

Neste momento não posso experimentar, mas logo que possa dou retorno!

[Mph]

Caro Osvaldo,

 

Consegui finalmente oportunidade para testar e era isto mesmo que eu precisava.

 

Mais uma vez, agradeço a vossa ajuda!