[Resolvido]ajuda com vba

Boa tarde,


Pessoal eu sou fraco com vba tanto acesse como excel, eu procurei aqui e não achei o que eu preciso.

Eu tenho uma banco de dado access e preciso exportar alguns dados para um arquivo excel.
Dentre as tabelas tenho uma de orçamento para compra de produtos.
Nome da tabela orçamento
Campos: número pedido, empresa , status, valor orçado.
preciso criar uma consulta vba com uma função onde ao clicar o botão ela e exporte para uma planilha as informações relacionada ao número do pedido tipo assim.
Vamos supor que cada número de pedido teve vários orçamentos então ficaria assim.

Pedido 01 empresa xxx - Statos premiado - valor 100,00
Pedido 01 empresa AAA - Statos orçou - valor 150,00
Pedido 001 empresa BBB - Statos - orcou- valor 200,00

Então assim a empresa premiada foi a que deu o menor orçamento.
Ou seja cada pedido podem ter várias empresas o que muda é o status e o valor
Com isso preciso fazer uma consulta dessas empresas fazendo o filtro pelo número do pedido e que me traga todas as empresas que deram orçamento e as informações.
Com isso preciso que os dados sejam jogados na planilha Excel na seguinte ordem

Na coluna A traria a empresa de menor valor com status de premiada assim:

Coluna A linha 1 empresa
Coluna A linha 2 status
Coluna A linha 3 valor

Coluna B traria os dados da segunda colocada

Coluna B linha 1 empresa
Coluna B linha 2 status
Coluna B linha 3 valor.

Isso precisaria fazer para todas as empresas que deram orçamento limitando ao total de 5 empresas.

como eu faria isso?

Grato

Amigo o teu problema é bem simples de resolver é só usar uma consulta de referência cruzada , é tranquilo só pesquisar no F1 do Access ou em qualquer apostila e tutorial de Access. Pesquise no Google e verá uma porção de exemplos, Se preferir poste exemplo do BD que te ajudamos.

veja este link : "https://juliobattisti.com.br/artigos/office/consultasavancadas_p1.asp" . Muito bom para entender.

Antes, gostaria que me respondesse se qual a finalidade de se exportar o resultado da apuração para o excel, sendo que vc pode ter isso em um relatorio do acccess.

Boa tarde, eu também preferia em relatório access mas essas informações após ser exportadas para uma planinha Excel tem que ser completadas com mais algumas informações e após ser impressa para o gerente poder assinar e tipo uma aprovação para compra

Boa tarde, eu também preferia em relatório access mas essas informações após ser exportadas para uma planinha Excel tem que ser completadas com mais algumas informações e após ser impressa para o gerente poder assinar e tipo uma aprovação para compra

Por isso preciso que em cada coluna aparecia os dados de cada empresa consultada

Bom resolvido , após muito tentar resolvi com o seguinte cod.
Agradeço a todoos

Dim REG As ADODB.Recordset

abreConexao

' filtros da consulta

whereConsulta = " NOME_PROCESSO = '" & formPrincipal.campoProcesso.Value & "'"

' carrega os itens

Qsql = "SELECT TOP 7 RAZAO_SOCIAL, STATUS, PARECER_TECNICO, PROPOSTA_INICIAL, PROPOSTA_EQUALIZADA, PROPOSTA_FINAL FROM tb_processo_vl_convidado WHERE " & whereConsulta & "ORDER BY PARECER_TECNICO, STATUS DESC, PROPOSTA_FINAL"

Set REG = New ADODB.Recordset

REG.Open Qsql, CON, adOpenKeyset, adLockOptimistic

With REG

i = 0

Do While Not .EOF


Cells(9, 4 + i).Value = REG.Fields("RAZAO_SOCIAL").Value
Cells(10, 4 + i).Value = REG.Fields("PARECER_TECNICO").Value
Cells(11, 4 + i).Value = REG.Fields("PROPOSTA_INICIAL").Value
Cells(13, 4 + i).Value = REG.Fields("PROPOSTA_EQUALIZADA").Value
Cells(14, 4 + i).Value = REG.Fields("PROPOSTA_FINAL").Value
Cells(18, 4 + i).Value = REG.Fields("PROPOSTA_FINAL").Value

.MoveNext
i = i + 1

Loop

End With
fechaConexao


End Sub