Fóruns
Microsoft Excel - 2...
2024 - VBA & Macros
Ajuda com Macro de ...
 
Notifications
Clear all

Ajuda com Macro de Repetição

 
2024 - VBA & Macros
Post Recente por akilles 11 anos atrás
6 Posts
3 Usuários
0 Reactions
1,330 Visualizações
RSS
 akilles
(@akilles)
Posts: 9
Active Member
Topic starter
 

Olá, pessoal tudo bem?

Estou fazendo uma macro de repetição que segue um determinado layout.

Estou com uma dificuldade numa questão que já faz um mês e não tem jeito que se resolva, minha principal duvida é no agrupamento do campo "PEDIDO", pois o PEDIDO tem relação de 1 para N (conforme o campo COD_PASTA), meu código está criando um "bloco" para cada pedido duplicando as informações exceto o pedido, minha duvida é como verificar se o COD_PASTA da linha atual é igual o da linha anterior (da aba DADOS).

Fiz algumas tentativas, mas ou ele duplicava o "bloco" trocando só o pedido, ou duplicava o "bloco" e não aparecia o pedido.

No anexo aparece o que acontece hoje na minha planilha.

 
Postado : 18/11/2013 1:34 pm
 Fernando Fernandes
(@fernandofernandes)
Posts: 43750
Illustrious Member
 

Creio que somente com uma imagem, vai ser um tanto quanto difícil obter retorno.
Um modelo de sua planilha (dados podem/devem ser fictícios), com a descrição do que é e como deseja; talvez facilite uma resposta

 
Postado : 18/11/2013 2:27 pm
 akilles
(@akilles)
Posts: 9
Active Member
Topic starter
 

Boa noite, abaixo anexo da planilha que eu fiz com a Macro, lembrando que a parte da repetição não está funcional.

Rel_Macro_.xlsm
 
Postado : 18/11/2013 3:39 pm
 sergio.vilar
(@sergio-vilar)
Posts: 11
Active Member
 

akilles
Inclui uma variável cod para facilitar o controle de em qual código você está.
inseri a variável no inicio do primeiro bloco, e no loop que agrupa, alterei de = para <> (diferente).

Recomendo você organizar a planilha por ordem de código antes de executar que dará certo.

Loop principal

Do Until Sheets("DADOS").Cells(lin, 1) = ""
        cod = Sheets("DADOS").Cells(lin, 1)
        Sheets("Relatório").Cells(linha, 1).Font.Bold = True
        Sheets("Relatório").Cells(linha, 1) = Sheets("DADOS").Cells(lin, 7) 'NOME

        
        Sheets("Relatório").Cells(linha, 4).Font.Bold = True
        Sheets("Relatório").Cells(linha, 4) = "COD. " + cod 'COD_PASTA
        linha = linha + 1

Loop Agrupar

'AGRUPAR
        
        Do Until Sheets("DADOS").Cells(lin, 1) <> cod
 
Postado : 19/11/2013 2:15 pm
 akilles
(@akilles)
Posts: 9
Active Member
Topic starter
 

Bom dia sergio.vilar, eu desmembrei o as tabelas em duas e fiz o seguinte loop e deu certo:

        Do Until Sheets("PROC").Cells(lin, 1) <> Sheets("VAL").Cells(lincomp, 1)
        Sheets("REL").Cells(linha, 1) = Sheets("VAL").Cells(linhacomp, 2)  'PEDIDO
        Sheets("REL").Cells(linha, 2) = Sheets("VAL").Cells(linhacomp, 4)  'RISCO
        
        Sheets("REL").Cells(linha, 4).HorizontalAlignment = xlCenter
        Sheets("REL").Cells(linha, 4).NumberFormat = "$ #,##0.00"
        Sheets("REL").Cells(linha, 4) = Sheets("VAL").Cells(linhacomp, 3)  'VALOR
        
        lincomp = lincomp + 1
        linha = linha + 1
        linhacomp = linhacomp + 1
        
        Loop

Queria fazer um merge na linha da coluna 1 a 7, o mais proximo que consegui fazer foi isso:

Sheets("REL").Cells(linha, 1) = "Objeto: " + Sheets("PROC").Cells(lin, 9) 'OBJETO
        Sheets("REL").Cells(linha, 1).Characters(Start:=1, Length:=6).Font.Bold = True
        Sheets("REL").Cells(linha, 1).Characters(Start:=7).Font.Bold = False
        Sheets("REL").Cells(linha, 1).Range(1 & ":" & 1).Merge

Só que ele tá mesclando do inicio ao fim da linha, queria que da linha ele mesclasse a coluna 1 até a 7, se altero de 1 a 7 ele mescla as sete linhas abaixo

 
Postado : 21/11/2013 7:49 am
 akilles
(@akilles)
Posts: 9
Active Member
Topic starter
 

Alguém tem alguma idéia?

 
Postado : 26/11/2013 8:12 am
Forum Jump:
  Tópico Anterior
Próximo Tópico