Excel vba PROCURAR VALOR

Netrox92 · 4 de junho de 2013

Bom dia,

Tenho uma planilha onde eu escrevo um valor que eu quero encontrar, e eu tambem anoto todos os valores que eu tenho disponivel.

Ex:

VALOR PROCURADO=1500

VALORES DISPONIVEIS:

1º valor=2310

2º valor=1000

3º valor=250

4º valor=500

5º valor=750

6º valor=2500

7º valor=750

8º valor=5000

9º valor=100

10º valor = 10

Eu preciso saber quais valores somados resultam no meu VALOR PROCURADO.

Ex:

2º valor + 4º valor = 1500

3º valor + 4º valor + 5º valor = 1500

3º valor + 4º valor + 7º valor = 1500

5º valor + 7º valor = 1500

assim por diante

Existe algum cód vba para isso?

Estou postando uma planilha de exemplo:

http://www.4shared.com/file/ITpBU0Bv/DESCOBRIR_VALORES.html?

Agradeço desde já

Abraços

Netrox92 · 5 de junho de 2013

Ninguem sabe como resolver???

Li em outros lugares falando sobre o recurso SOLVER.

porém eu nao consegui direito....

Alguem sabe como usa o solver, e se é com ele mesmo que eu vou conseguir chegar no resultado desejado?

Obrigado mais uma vez

deejaywesley · 5 de junho de 2013

Boa Tarde!

Veja se te ajuda!

http://www.sendspace.com/file/x9ygi5

Netrox92 · 6 de junho de 2013

Ola deejaywesley,

Cara muito obrigado pela resposta!

Pelo visto está funcionando sim!

Só uma pergunta

no caso, para verificar se 4 valores somados resultam no valor procurado ficaria assim?

E caso esteja certo, eu posso ir fazendo isso até uns 10 valores?

'verifica se quatro células diferentes atendem à soma

For o = 2 To Cells(Rows.Count, 1).End(xlUp).Row

For p = o + 1 To Cells(Rows.Count, 1).End(xlUp).Row

For q = p + 1 To Cells(Rows.Count, 1).End(xlUp).Row

For r = q + 1 To Cells(Rows.Count, 1).End(xlUp).Row

If Cells(o, 1) + Cells(p, 1) + Cells(q, 1) + Cells(r, 1) = soma Then

possibilidades = possibilidades & " " & _

Cells(o, 1).Address & "+" & Cells(p, 1).Address _

& "+" & Cells(q, 1).Address & "+" & Cells(r, 1).Address

End If

Obrigado mesmo!

Abraços

deejaywesley · 7 de junho de 2013

Bom Dia Netrox

Olha parceiro ai so testando mesmo, porque quando vi sua duvida aqui, eu lembrei que ja tinha baixado uma palnilha parecida aqui no forum,mas nao fui eu que fiz e o topico nem era meu, mas achei bem legal a ideia e salvei ela pra mim mas como ainda nao precisei usar esse codigo, nao estudei ele kkkkkkk, tentei achar o topico pra achar o criador pra postar os creditos mas nao achei...