Ir ao conteúdo
  • Cadastre-se
Entre para seguir isso  
Netrox92

[Resolvido] Excel vba PROCURAR VALOR

Recommended Posts

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

  • Curtir 1

Compartilhar este post


Link para o post
Compartilhar em outros sites

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

Compartilhar este post


Link para o post
Compartilhar em outros sites

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

Next

Next

Next

Next

Obrigado mesmo!

Abraços

Compartilhar este post


Link para o post
Compartilhar em outros sites

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...:seila:

ai o jeito é fazer as mudanças e testar, e caso o autor ler o topico aqui, ele responde!:jump:

:rolleyes:

Compartilhar este post


Link para o post
Compartilhar em outros sites

Caso o autor do tópico necessite, o mesmo será reaberto, para isso deverá entrar em contato com a moderação solicitando o desbloqueio.

Compartilhar este post


Link para o post
Compartilhar em outros sites
Visitante
Este tópico está impedido de receber novos posts.
Entre para seguir isso  





Sobre o Clube do Hardware

No ar desde 1996, o Clube do Hardware é uma das maiores, mais antigas e mais respeitadas publicações sobre tecnologia do Brasil. Leia mais

Direitos autorais

Não permitimos a cópia ou reprodução do conteúdo do nosso site, fórum, newsletters e redes sociais, mesmo citando-se a fonte. Leia mais

×