Tenho o seguinte problema:
Tenho células com o descrito abaixo:
Valores
3
5
1
1
(célula vazia)
Gostaria de nesta célula vazia colocar a soma destes números que estão acima dela, que seria colocar na célula vazia =3+5+1+1
Porém a macro que desenvolvo repete este mesmo procedimento várias vezes e não é constante o número de células que contenham números acima, por exemplo:
Valores I
3
5
2
6
9
1
1
8
(célula vazia)
Então gostaria de saber um comando para somar APENAS os números que estão entre a célula vazia e a célula que tem escrito "Valores" e colocar o valor da soma nesta célula vazia.
Disponibilize o arquivo como modelo assim fica mais facil ajuda-lo
Ficar adivinhando é complicado
Marcelo Prudencio
"Começar já é a metade do caminho."
Autor Desconhecido
Simplifica que simples fica.
Nicole Tomazella.
"O Simples é Sempre Melhor Que o Complicado"
Jorge Paulo Lemann.
Fiz ontem só que seu outro tópico encontra-se trancado e até te mandei uma mensagem particular...
Espero ter ajudado!
Sub somar()
Dim ultimALINHA, PRIMEIRO
ultimALINHA = Sheets("Plan1").Range("A1").End(xlDown).Row
If Sheets("Plan1").Range("a" & ultimALINHA + 2).Value = "" Then
Sheets("Plan1").Range("a" & ultimALINHA + 1).Value = Application.WorksheetFunction.Sum(Worksheets("Plan1").Range("A1:A" & ultimALINHA))
Exit Sub
End If
Sheets("Plan1").Range("a" & ultimALINHA + 1).Value = Application.WorksheetFunction.Sum(Worksheets("Plan1").Range("A1:A" & ultimALINHA))
PRIMEIRO = ultimALINHA + 2
Do While Sheets("Plan1").Range("a" & ultimALINHA + 2).Value <> ""
ultimALINHA = Sheets("Plan1").Range("A1").End(xlDown).Row
Sheets("Plan1").Range("a" & ultimALINHA + 1).Value = Application.WorksheetFunction.Sum(Worksheets("Plan1").Range("A" & PRIMEIRO & ":A" & ultimALINHA))
PRIMEIRO = ultimALINHA + 2
Loop
End Sub
Deu certo Messias!
Obrigado