Notifications
Clear all

Soma-SE com Dois Critérios

4 Posts
2 Usuários
0 Reactions
843 Visualizações
 guma
(@guma)
Posts: 135
Estimable Member
Topic starter
 

Boa Tarde

Novamente venho incomodar vocês.
Desta vez gostaria de saber como escrever uma formula Soma-se em VBA, mas usando como critério duas colunas ao invés de uma.

Eu quero somar os valores iguais da coluna C, mas só se na coluna B eles tiverem o mesmo valor.

segue em anexo o layout da minha planilha para facilitar o entendimento.

Obrigado.

 
Postado : 13/04/2013 12:52 pm
Fernando Fernandes
(@fernandofernandes)
Posts: 43750
Illustrious Member
 

Guma

Em vez de postar a imagem da planilha, anexa um exemplo da tua planilha.

Tem que ser por VBA ou pode ser com função nativa do Excel?

Att.

Existem mil maneiras de preparar Neston. Invente a sua!
http://www.youtube.com/ExpressoExcel

 
Postado : 13/04/2013 2:14 pm
 guma
(@guma)
Posts: 135
Estimable Member
Topic starter
 

Boa tarde Patropi

Segue um exemplo da minha Planilha e nela está o código que estou usando atualmente, de autoria do nosso amigo Alminen.

http://www.planilhando.com.br/forum/viewtopic.php?f=10&t=7608&start=10

o que preciso e modificar este código para como já explique utilize mais uma coluna na função soma-se.

Obrigado e Att.

 
Postado : 13/04/2013 3:12 pm
 guma
(@guma)
Posts: 135
Estimable Member
Topic starter
 

Bom Dia Achei o Seguinte código na Internet e Resolveu meu Problemar.
Obrigado a todos pela ajuda.

 Function SOMASE2(Intervalo As Range, Criterio As Variant, Intervalo2 As Range, _
Criterio2 As Variant, Intevalo_Soma As Range) As Variant
'"=SOMASE2(B4:B" & j & ";" & COD &B4:B" & j & ";" & ";D4:D" & j & ") - SOMASE2(B4:B" & j & ";" & COD &B4:B" & j & ";" & ";D4:D" & j & ")"
Dim i As Integer

If Intervalo.Count = Intervalo2.Count And Intervalo2.Count = Intevalo_Soma.Count Then
    
    For i = 1 To Intervalo.Count
        If Intervalo.Cells(i, 1) = Criterio Then
            If Intervalo2.Cells(i, 1) = Criterio2 Then
                SOMASE2 = SOMASE2 + Intevalo_Soma.Cells(i, 1)
            End If
        End If
    Next i
End If
'Macro desenvolvida por _Mateus_
'E-mail: mateusags@yahoo.com.br

End Function
 
Postado : 29/04/2013 10:02 am