Skip to main content
1 de 2

Nesse caso, recomendo fortemente a usar uma função e fazer o VBA inserir o valor já retornado pela função. Ficaria assim:

Sub somases()

'Declara as variáveis
Dim celulas As Object
Dim somases As Integer

'Laço que percorre as células do intervalo desejado e insere os valores calculados
For Each celulas In Range("V7:V12")
    somases = WorksheetFunction.SumIfs(Sheets("Base").Range("D2:D598"), Sheets("Base").Range("A2:A598"), Sheets("Base").Range("C7"), _
        Sheets("Base").Range("H2:H598"), Sheets("Base").Range("A7"), Sheets("Base").Range("B2:B598"), Sheets("Base").Range("V3"))
    
    celulas.Value = somases
Next
End Sub

Desta forma o valor da célula será o valor calculado pela função, e não a formula em sí. Faz mais sentido, pois se for pra inserir a formula simplesmente pode inserir direto na célula sem VBA.

OBS: caso o resultado do SOMASES sejam números decimais a variável somases no código VBA deve ser declarada do tipo double.

dim somases as double

Espero ter ajudade, abraços!