Este fórum está sendo desativado

[CleuberZago]

Salve pessoal.

Estou com uma dúvida sobre como posso proceder para que consiga buscar em um banco do Access todos os resultados para determinado critério que definir no Excel... Sabem de alguma rotina que faça isso?

Desde já, obrigado.

[DJunqueira]

Uma das maneiras mais fáceis é usando Tabela Dinâmica, vá ao menu Inserir, selecione Tabela Dinâmica e na tela que surgir escolha 'Usar uma fonte de dados externa'.

[FelipeMGarcia]

Vc pode usar o Power Query , por fórmula matricial ou com a função Agregar, anexa seu modelo que fica mais fácil ajudar.

Abs

[CleuberZago]

DJunqueira, pretendo fazer a conexão via vba, usando ADO como provedor...

Tenho a rotina que faz a inserção de dados no banco de dados em .mdb, preciso desenvolver uma que faça a busca no banco de dados e retorne todos os dados (mais de uma linha) para o critério que eu definir. Fiz um esboço só pra tentar explicar a funcionalidade...

Tenho duas tabelas no access e duas guias no excel, ambas são fornecedoras e clientes de dados.
A guia "EnviaParaAccess" do Excel fornece os dados para a tabela "tbl_recebe" no Access. Nessa guia tenho a rotina que preenche o arquivo .mdb
A guia "RecebeDoAccess" do Excel recebe os dados da tabela "tbl_envia" do arquivo .mdb. Para essa guia que preciso elaborar a rotina que busque todos os dados.

Me desculpem se a rotina de enviar os dados para o access não estiver funcionando no modelo, tive que fazer um exemplo simples em uma máquina 64 bits e o ADO não funciona muito bem com x64...

Em anexo está a pasta e tbm o arquivo .mdb

[DJunqueira]

Se vc puder usar o compactador Zip, nativo do Windows, mais pessoas poderão te ajudar, p/ usa-lo p/ compactar seus arquivos basta seleciona-los e com o botão direito do mouse escolher Enviar para e depois Pasta compactada.

[CleuberZago]

Segue.

[Basole]

Utilizei a sua sub rotina que envia os dados para o access, para adaptar a busca dentro do banco Base.

Veja se é isso que precisa.

Abç;

[CleuberZago]

PERFEITO, Basole! Mais uma vez obrigado amigo...