danieldias

Boa tarde!

Não vi nenhum ComboBox em seu formulário. em uma das linhas do seu módulo você fala nesse combobox.

    Arq = ComboBox1.Value

Onde está esse ComboBox1?

É exatamente isto. Vc pode inserir e fazer o código funcionar para ele tb?

SE o topico nao foi solucionado pq marcou como resolvido???

viewtopic.php?f=10&t=20200&p=102170#p102170

Vc pode me ajudar neste tópico Marcelo?
O outro já está desmarcado.

Daniel, fiquei em duvida.

O que quer que seja carregado no Combobox ?

A rotina faz um loop pelos valores em "A2:A4" que correspondem aos nomes dos Arquivos e pega o valor na Celula "N3" e insere na coluna B na linha correspondente.

Você quer que a rotina só funcione quando selecionar um nome no combobox e não tenha mais o loop ?

Quero manter o loop.
eu testei mas não funciona com arquivos com nome tipo "Chocolate". Veja se você consegue concertar o código.
Obrigado!

Segue anexo com a pasta "Produtos" que estou usando com os nomes corretos.
Eu preciso que o botão atualizar busque cada um dos custos médios e salve em "Backup".
O código não está reconhecendo os nomes.

Veja se é isto, eu só não inseri o combobox, uma vez que quer que continue o loop pelos arquivos, teria de alterar as rotinas para ser executada somente com o nome carregado no combo e não nos nomes listados na planilha.

Fiz somente a alteração nesta linha:
Produto.Offset(0, 1).Value = CustoMedio(ComboBox1.Text)

Substitui ComboBox1 por Produto
Produto.Offset(0, 1).Value = CustoMedio(Produto.Text)

Coloque este arquivo no lugar do "teste.xlsm"

[]s

Show Mauro! Rodou perfeito! Obg.