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