Fóruns
Microsoft Excel - 2...
2024 - VBA & Macros
Estrutura de Repeti...
 
Notifications
Clear all

Estrutura de Repetição

 
2024 - VBA & Macros
Post Recente por arthurbrs 8 anos atrás
6 Posts
2 Usuários
0 Reactions
1,671 Visualizações
RSS
 arthurbrs
(@arthurbrs)
Posts: 12
Active Member
Topic starter
 

Fala galera, bom dia!

Estou quebrando a cabeça comum problema, e gostaria de compartilhar aqui para ver se voces conseguem me ajudar.

Preciso montar um estrutura de repetição, onde:

1º O código leia uma lista de clientes (sheet 1) e ordene por CPF/CNPJ
2º Copie todas a linhas que contenham o mesmo CPF/CNPJ para um lugar especifico na sheet 2
3º Salve um range em pdf da sheet 2
4º Volte na lista de clientes na sheet 1 e repita a operação até chegar ao final da lista de clientes

Problemas:

* Na lista de clientes, pode haver o mesmo CPF/CNPJ mais de uma vez. Escrevi o código para ordenar os clientes, porem não estou conseguindo copiar todas as linhas com o mesmo CPF/CNPJ para a outra sheet.

*Após salvar em pdf, não consegui fazer o código repetir o processo. Preciso que ele faça isso até encontrar uma linha vazia na lista. (Já escrevi o codigo para salvar em pdf.

Vou subir a planilha, e se alguém puder me ajudar, muito obrigado.

 
Postado : 26/11/2016 11:52 am
 MPrudencio
(@mprudencio)
Posts: 2749
Famed Member
 

Fiz este exemplo para um outro colega e aparentemente é o que vc precisa, a unica diferença é que o codigo imprime ao inves de salvar como pdf.

Ve se atende e vc consegue ajustar.

Marcelo Prudencio
Microsoft Excel Brasil no Facebook

"Começar já é a metade do caminho."
Autor Desconhecido

Simplifica que simples fica.
Nicole Tomazella.

"O Simples é Sempre Melhor Que o Complicado"
Jorge Paulo Lemann.

 
Postado : 26/11/2016 12:00 pm
 arthurbrs
(@arthurbrs)
Posts: 12
Active Member
Topic starter
 

Cara, e isso é exatamente isso..

Alterei o código para aceitar 14 números, porem quando ele salva, ele salva em branco..

Do While WD.Cells(WDLista, 7).Value <> ""
WMI.Range("A2:C" & Rows.Count).ClearContents
Codigo = WD.Cells(WDLista, 14).Value
Do While WD.Cells(WDLinha, 1).Value <> ""

Quando eu coloco um cpf na lista ele n entende..

 
Postado : 26/11/2016 4:01 pm
 MPrudencio
(@mprudencio)
Posts: 2749
Famed Member
 

o 14 não é a quantidade que é possivel gerar os pdfs, esse numero é o da coluna onde esta os dados,

1 A
2 B

e por ae vai

Marcelo Prudencio
Microsoft Excel Brasil no Facebook

"Começar já é a metade do caminho."
Autor Desconhecido

Simplifica que simples fica.
Nicole Tomazella.

"O Simples é Sempre Melhor Que o Complicado"
Jorge Paulo Lemann.

 
Postado : 26/11/2016 4:50 pm
 MPrudencio
(@mprudencio)
Posts: 2749
Famed Member
 

Segue o codigo adaptado a sua planilha

Insira o codigo para salvar PDF no local indicado

Marcelo Prudencio
Microsoft Excel Brasil no Facebook

"Começar já é a metade do caminho."
Autor Desconhecido

Simplifica que simples fica.
Nicole Tomazella.

"O Simples é Sempre Melhor Que o Complicado"
Jorge Paulo Lemann.

 
Postado : 27/11/2016 11:04 am
 arthurbrs
(@arthurbrs)
Posts: 12
Active Member
Topic starter
 

Na outra eu tinha conseguido! Eu precisava só mudar a variável de Long para Variant.

Essa ficou show também!

Obrigado pela ajuda!

 
Postado : 27/11/2016 12:51 pm
Forum Jump:
  Tópico Anterior
Próximo Tópico