Excel Somar Coluna até um determinado número

ErickSant · 28 de maio de 2018

Prezados,

bom dia,

Estou com uma dúvida parecida com a do seguinte tópico:

https://www.clubedohardware.com.br/forums/topic/662546-resolvido-excel-somar-uma-coluna-at%C3%A9-um-determinado-n%C3%BAmero/

Adaptei o código para a minha necessidade, porém reparei que não está pegando o valor exato que eu procurar... Alguém consegue me ajudar a adaptar para pegar exatamente o valor procurado ? Vejam o exemplo das células marcadas em amarelo...

Célula G1 = valor a ser encontrado

Célula E1 = somatório da coluna B até encontrar o valor desejado

Célula E2 = somatório da coluna B - valor encontrado

A ideia era marcar de alguma forma, seja pintando a célula onde tem o valor(colunaB) ou listar elas de alguma forma...

Alguém consegue me ajudar ?

teste(CorNacélula2).rar

CasaDoHardware · 28 de maio de 2018

Não sei se eu entendi o pretendido.

Experimente este codigo

Sub Somar()

Dim Soma As Currency
Dim Valor As Currency
Dim LN As Long
Dim W As Worksheet

Set W = Planilha3
LN = 2
Soma = 0
W.Range("E1:E2").ClearContents
W.Range("B2:B" & Rows.Count).Interior.ColorIndex = xlNone
Valor = W.Range("G1").Value

Do Until Soma >= Valor

Soma = Soma + W.Cells(LN, 2).Value
LN = LN + 1

Loop

W.Cells(LN - 1, 2).Interior.ColorIndex = 43
W.Range("E1").Value = Soma
W.Range("E2").Value = Soma - Valor

End Sub

ErickSant · 28 de maio de 2018

@CasaDoHardware fiz uma alteração para ele marcar todas que estão somando, ele até funciona, em geral tem a mesma lógica que o meu código do anexo, a minha dúvida era por exemplo, se ele passar do valor que eu digitar ali, ele passar para a próxima célula para tentar fazer o somatório, caso não encontrar, eu colocaria um msgbox...

A ideia é pegar o valor exato... Veja no meu exemplo anexado, eu coloquei um valor a ser procurado, porém como o primeiro valor é maior do que ele, ele ignora a busca, pois já marca como "encontrado"...

Obrigado pelo retorno!!!

teste(CorNacélula2).rar