Este fórum está sendo desativado

[leonardomalburg]

Pessoal, preciso da ajuda de vocês.
Venho tentando criar um loop pra, em uma planilha, na mesma coluna, quando um valor é encontrado, adicionar este valor a soma até o final do loop. Vejam a imagem abaixo, a coluna em questão é a "D" e o valor é o abaixo de "DIAS DECORRIDOS", ou seja, quando encontrar este texto, deveria adicionar os números à soma.



Eu já tentei várias coisas mas eu não consigo realizar esta façanha.
Enfim, o que fiz foi o seguinte:

Código: Selecionar todos

Sub incluir()
Dim emptyrow As String
Dim i As Long
Dim soma As String

emptyrow = Range("A65536").End(xlUp).Offset(1, 0).Row
soma = 0
For i = 0 To emptyrow
If (i <= 9) Then
soma = Range("d" & 9).Value
End If
If (i > 9) Then
soma = soma + Range("d" & 9).Value
End If
MsgBox soma
i = i + 9
Next i

    
End Sub

Sei que está errado pois não funciona, então preciso muito da ajuda de vocês.

Um abraço!

[Reinaldo]

Não sei se entendi, mas experimente

Código: Selecionar todos

Sub incluir()
Dim i As Long
Dim soma As Long
soma = 0
For i = 0 To Cells(Cells.Rows.Count, "A").End(xlUp).Row
    If Cells(i, "D") = "DIAS DECORRIDOS" Then
        soma = soma + Cells(i + 1, "D").Value
        End If
    MsgBox soma
Next i
End Sub