Somar Intervalos que são variáveis com vba


#1

Olá pessoal, muito bom dia! Sou novo aqui no fórum, me cadastrei porque estou com uma grande dúvida em uma planilha que estou criando, vou tentar explicar o melhor possível, eu tenho uma coluna onde há vários intervalos de células que são variáveis, exemplo: tem vezes que tem 10 células preenchidas, outras vezes 12 ,5, enfim varia conforme vou acrescentando e como entendo um pouco de vba criei uma macro que faz um loop célula a célula até ficar abaixo do intervalo de células, o problema vem agora, não consigo criar uma macro para somar cada intervalo que é variável. agradeceria muito quem puder me ajudar.


#2

Se eu entendi, você quer uma macro que insira a soma dos valores de cada intervalo logo abaixo de cada um deles. seria isso?


#3

bom dia! amigo, é isso mesmo só que lembrando que as células acima variam nos intervalos.


#4

Veja se te atende:

Sub resultado()
On Error Resume Next
Dim ul As Long
Dim mystring As String
ul = Plan1.Range("A" & Rows.Count).End(xlUp).Row + 1
For Each cel In Plan1.Range("A1:A" & ul)
If cel.Value <> "" Then
mystring = mystring & cel.Address(0, 0) & ","
ElseIf cel.Value = "" And cel.Offset(-1, 0).Value <> "" Then
mystring = Left(mystring, Len(mystring) - 1)
cel.Offset.Value = WorksheetFunction.Sum(Range(mystring))
cel.Offset.Font.ColorIndex = 5
mystring = ""
End If
Next
End Sub

Soma_de_Intervalos.xlsm (17,0 KB)


#5

Era exatamente isso, muito obrigado, é muito bom contar com pessoas que são feras em Excel e que disponibilizam seu tempo para ajudar. obrigado.