É só seguir a mesma lógica de seu outro tópico:
Contar Valores em coluna [Resolvido]
viewtopic.php?f=10&t=13595

Ajuste os Ranges e crie condição IF para os Critérios, armazenando o resultado Variável soma :
soma = WorksheetFunction.SumIf(Range("A2:A10"), "A Pagar", Range("F2:F10"))

[]a

Só complementando: o WorksheetFunction permite ao VBA usar as funções do Excel. Apenas lembre que deve chamar a função pelo nome em inglês, e deve usar vírgula no lugar de ponto e vírgula para separar os argumentos.

Abs

Uma duvida, tenho que setar uma Sheet especifica para que não ocorra de fazer a soma no lugar errado, tentei algo do tipo
soma = WorksheetFunction.SumIf(Sheets("FINANÇAS_PESSOAIS").Range("Q2:Q636"), "RECEBIDO", Range("R2:R636"))
mas aparentemente não funcionou, gostaria de poder executar o código estando em qualquer aba, sem a nescessidade de ficar trocando sempre :/

Boa noite, selmo.

Eu montei algo parecido com o que esta tentando fazer ficou mais ou menos assim:

Eu Declarei a Plan:

Dim wsPlanE As Worksheet
Set wsPlanE = Sheets("LANCAMENTOS")

UltimaLinha = Plan1.Cells(Rows.Count, "A").End(xlUp).Row

Depois montei a formula:

Me.LabelQtdeEntrada.Caption = Application.WorksheetFunction.CountIfs(wsPlanE.Range("B2:B" & UltimaLinha), Format(DTP4.Value, "MM/DD/YYYY"), wsPlanE.Range("E2:E" & UltimaLinha), "Entrada")

No meu caso eu colocava pra exibir em um label, mas creio que de pra armazenar o valor em variável para depois realizar cálculos.

Uma duvida, tenho que setar uma Sheet especifica para que não ocorra de fazer a soma no lugar errado, tentei algo do tipo
soma = WorksheetFunction.SumIf(Sheets("FINANÇAS_PESSOAIS").Range("Q2:Q636"), "RECEBIDO", Range("R2:R636"))
mas aparentemente não funcionou, gostaria de poder executar o código estando em qualquer aba, sem a nescessidade de ficar trocando sempre :/

O problema é que vc só referenciou o range onde estão os critérios, mas não onde estão os valores para a soma. Asim funciona:

soma = WorksheetFunction.SumIf(Sheets("FINANÇAS_PESSOAIS").Range("Q2:Q636"), "RECEBIDO", Sheets("FINANÇAS_PESSOAIS").Range("R2:R636"))

Assim tb:

With Sheets("FINANÇAS_PESSOAIS")
soma = WorksheetFunction.SumIf(.Range("Q2:Q636"), "RECEBIDO", .Range("R2:R636"))
End With

Abs