- 12 Jan 2017 às 14:11
#18875
Saudações Pessoal,
Tenho um problema com uma planilha e gostaria de saber se poderiam me ajudar.
Tenho um intervalo de dados (exemplo: B3:B109), e nesse intervalo tem algumas células vazias. A intenção é fazer uma Macro que identifique a célula vazia e traga o resultado da soma das células imediatamente inferiores até o limite de outra célula vazia.
Em resumo: Somar o segmento de intervalo que contem dados e trazer o resultado para a celular vazia acima deste mesmo intervalo. Segue a tabela para melhor entendimento.
Eu tenho uma macro que imagino que depois de adaptada pode fazer isso, que é:
Sub FillCol()
For i = 1 To Selection.Cells.Count - 1
j = i + 1
If Selection.Cells(j, 1).Value = "" Then
Selection.Cells(j, 1).Value = Selection.Cells(i, 1).Value
End If
Next i
End Sub
Essa macro copia os valores de cima e copia para as células abaixo vazia até onde ele encontra um célula preenchida. Não é o caso do meu problema, mas imagino que a ideia da macro que preciso seja a mesma.
Vocês poderiam me ajudar?
Tenho um problema com uma planilha e gostaria de saber se poderiam me ajudar.
Tenho um intervalo de dados (exemplo: B3:B109), e nesse intervalo tem algumas células vazias. A intenção é fazer uma Macro que identifique a célula vazia e traga o resultado da soma das células imediatamente inferiores até o limite de outra célula vazia.
Em resumo: Somar o segmento de intervalo que contem dados e trazer o resultado para a celular vazia acima deste mesmo intervalo. Segue a tabela para melhor entendimento.
Eu tenho uma macro que imagino que depois de adaptada pode fazer isso, que é:
Sub FillCol()
For i = 1 To Selection.Cells.Count - 1
j = i + 1
If Selection.Cells(j, 1).Value = "" Then
Selection.Cells(j, 1).Value = Selection.Cells(i, 1).Value
End If
Next i
End Sub
Essa macro copia os valores de cima e copia para as células abaixo vazia até onde ele encontra um célula preenchida. Não é o caso do meu problema, mas imagino que a ideia da macro que preciso seja a mesma.
Vocês poderiam me ajudar?
Você não está autorizado a ver ou baixar esse anexo.
