Juliana Gonçalves

Assim, tenho o peso da barcaça, e tenho o saldo disponível e eu preciso selecionar determinados valores do saldo disponível para que a soma (LOAD) seja igual ao peso da barcaça. O valor final da planilha D não deve mudar, só quero que a macro pinte as que vou usar. A planilha "Como é" está com o valor menor que o 1000000, que eu consigo encontrar com a macro que tenho. Tô usando Do While Load < Barcaça, mas eu queria uma forma da macro selecionar as notas até que o valor de Load = Barcaça. Depois do Loop eu coloco um: LOAD = LOAD - ActiveCell.Offset(-1, 0).Value ActiveCell.Offset(-1, 0).Activate LOAD = LOAD + ActiveCell.Value Mas não consigo fazer disso um loop pra ir somando e tirando as células até o final da tabela ou até que os valores da soma e da barcaças sejam iguais.

Oii, segue. Como é.xlsx Como deve ficar.xlsx

Está ficando assim, mas eu queria que seguisse até a última linha e adicionasse outras células que se encaixasse no valor limite. Esse código que coloquei ali em cima é o que estou usando agora, pensei de adicionar um novo loop, mas como não entendo muito de VBA ainda, não consegui fazer funcionar.

Pessoal, estou montando um código no VBA que vai somar determinadas células de uma planilha até atingir um valor que eu quero. Por exemplo, tenho 130 valores em uma planilha e quero que o VBA some algumas delas até atingir o valor de 2.000.000. No código que tenho o VBA vai só até o valor da soma(LOAD) ser menor que o meu limite(BARCAÇA) e aí ele pára. Mas quero dá um jeito de ele tirar da soma a última célula somada e pular para a próxima e soma a célula ativa até que o valor da soma seja igual a do limite. Tipo, somei as células de D3 até D45 e o valor da soma passou do limite, tiro a ultima célula e pulo para a próxima, se a soma passar do limite novamente, pulo para a próxima e assim sucessivamente até que o valores de LOAD e BARCAÇA sejam iguais. Alguém pode me ajudar? Já estou apresentando problemas com esse projeto, não consigo evoluir nele de tanto que já bati cabeça. Sub CONTAR() Dim LOAD As Double Dim BARCAÇA As Double Range("D3").Select LOAD = 0 BARCAÇA = Range("F2") Do While LOAD < BARCAÇA If ActiveCell.Value = "" Then ActiveCell.Value = LOAD End Else LOAD = LOAD + ActiveCell.Value ActiveCell.Interior.Color = vbYellow ActiveCell.Offset(1, 0).Activate End If Loop LOAD = LOAD - ActiveCell.Offset(-1, 0).Value ActiveCell.Offset(-1, 0).Activate Range("G2").Select ActiveCell.Value = LOAD ActiveCell.Interior.Color = vbGreen LOAD = 0 End Sub