Excel relatorio multiplas vendas vba

[Eri França]

Boa tarde!

o VBA em anexo utiliza a macro F_relatorio1 para gerar um relatório na aba "Relatório, as colunas F,G e I estão puxando a informação corretamente, porém a descrição dos produtos estão repetindo os da venda 1 para venda 2, PODERIAM ME AJUDARRELATORIO.rar

adicionado 1 minuto depois

agora, Eri França disse:

Boa tarde!

o VBA em anexo utiliza a macro F_relatorio1 para gerar um relatório na aba "Relatório, as colunas F,G e I estão puxando a informação corretamente, porém a descrição dos produtos estão repetindo os da venda 1 para venda 2, PODERIAM ME AJUDARRELATORIO.rar

@osvaldomp@Basole

[Midori]

@Eri França Estão repetindo porque os códigos são os mesmos e quando seu código faz a busca ele retorna a primeira ocorrência.

[Eri França]

@Midori como posso contornar isso?

[Visitante]

1 hora atrás, Eri França disse:

Boa tarde!

o VBA em anexo utiliza a macro F_relatorio1 para gerar um relatório na aba "Relatório, as colunas F,G e I estão puxando a informação corretamente, porém a descrição dos produtos estão repetindo os da venda 1 para venda 2, PODERIAM ME AJUDARRELATORIO.rar

adicionado 1 minuto depois

@osvaldomp@Basole

 

Por gentileza não me direcione seus tópicos recém criados.

[Midori]

@Eri França Tem duas tabelas na planilha Histórico com a mesma quantidade de linhas, elas não estão relacionadas?

 

Por que você simplesmente não pega o valor da coluna (CK) com as descrições em vez de fazer essa busca?

 

[Eri França]

@Midori porque no arquivo final eu tenho outras duas abas referentes as vendas de Revistas e Livros que jogam os dados para Histórico.

quanto ao meu problema eu percebi que posso contornar ao gerar identificações diferentes para os numerais repetidos, por exemplo se eu tiver um código de produto 1 em revistas, e 1 em livros, ao ir para o relatório ele deveria ficar como 1 e 1A.

como eu posso fazer com que o código identifique a repetição e inclua esse diferencial?

 

[Midori]

@Eri França É mais fácil você pegar diretamente os produtos no loop,

 

Sheets("Relatorio").Cells(lin_relat, k).Value = Sheets("Historia").Cells(lin, 89).Value

Mas se quiser implementar uma forma pesquisa, acho que você vai ter que rever a estrutura do seu sistema. Talvez pensar numa estrutura de tabelas como um banco de dados com chave primária (única) onde você teria apenas uma tabela para produtos.