Página 1 de 1

Agrupamento e transposição de valores com VBA

Enviado: 13 Dez 2018 às 13:34
por werlewow
Bom dia a todos.
Tenho uma planilha com vários códigos e suas quantidades e cada código possui um "sub-código" (assim chamaremos).
Esses dados vem de uma fonte externa, onde eu digito o pedido e ele me retorna os códigos e suas quantidade. Cada código repete "N" vezes, conforme o numero de subcódigos nele incluso. Por exemplo, o cód A possui dois sub-códigos, o X e o Y, ai na lista ele me retorna dessa maneira:

Cód ---- sub-cód
A ----- X
A ----- Y

Em fim, o que eu preciso é pegar esse código, joga-lo em uma outra coluna (isso já sei fazer com a função índice mesmo..) e transpor os sub-códigos que estão em linhas, para colunas, conforme a foto em anexo. Vou deixar a planilha em anexo tmb, apesar de ela estar sem nenhum formula ainda. Acredito que a foto em anexo seja auto-explicativa. Lembrando que só preciso de ajuda nas parte dos sub-códigos.

Obs: UM detalhe importante, a transposição de dados deve ser feito via VBA, sem formulas nas células, pois o usuario poderá excluir ou add manualmente outros subcódigos.

Obrigado

Re: Agrupamento e transposição de valores com VBA

Enviado: 14 Dez 2018 às 09:18
por gfranco
Bom dia.
Veja se o que fiz te ajuda.

Agrupamento e transposição de valores com VBA

Enviado: 14 Dez 2018 às 09:42
por werlewow
É exatamente isso, porém precisava de algo mais rápido, sem a necessidade de ser 1 por vez, ou então algo que faça individual porem de forma automática, será que é possivel?
Além disso, estou tento um pouco de dificuldade para copiar os códigos na coluna, achei que seria possível com a função índice, mas não deu certo.. Estou utilizando filtro avançado, onde copio e colo para la, porem com a opção de ir apenas valores exclusivos, ai funciona, mas acredito que tenha uma maneira mais certa de fazer isso, sabe me dizer?
De qualquer forma, ja agradeço muito a ajuda, muito obrigado!

Re: Agrupamento e transposição de valores com VBA

Enviado: 14 Dez 2018 às 09:59
por gfranco
werlewow escreveu:É exatamente isso, porém precisava de algo mais rápido, sem a necessidade de ser 1 por vez, ou então algo que faça individual porem de forma automática, será que é possivel?
Além disso, estou tento um pouco de dificuldade para copiar os códigos na coluna, achei que seria possível com a função índice, mas não deu certo.. Estou utilizando filtro avançado, onde copio e colo para la, porem com a opção de ir apenas valores exclusivos, ai funciona, mas acredito que tenha uma maneira mais certa de fazer isso, sabe me dizer?
De qualquer forma, ja agradeço muito a ajuda, muito obrigado!
werlewow escreveu: De qualquer forma, ja agradeço muito a ajuda, muito obrigado!
Quando quiser agradecer, clique em obrigado.
werlewow escreveu: sem a necessidade de ser 1 por vez
Se você estiver utilizando uma versão do Excel 2010 ou posterior eu acredito que o power query seja a melhor alternativa.
werlewow escreveu:Além disso, estou tento um pouco de dificuldade para copiar os códigos na coluna, achei que seria possível com a função índice, mas não deu certo.. Estou utilizando filtro avançado, onde copio e colo para la, porem com a opção de ir apenas valores exclusivos, ai funciona, mas acredito que tenha uma maneira mais certa de fazer isso, sabe me dizer?
Não entendi.

Agrupamento e transposição de valores com VBA

Enviado: 14 Dez 2018 às 10:04
por werlewow
Utilizei o filtro avançado para remover os códigos duplicados e cola-los na outra coluna, na verdade eu gravei essa ação e utilizei o cód gerado, foi bem simples e funcionou, porem como o cód que vc fez só funciona se for digitado um a um, ao colar todos os códigos de uma vez, ele não funciona. Veja o código que utilizei:

Sub Macro1()
'
' Macro1 Macro
' copia e cola
'

'
Application.CutCopyMode = False
Application.CutCopyMode = False
Range("A3:C2000").AdvancedFilter Action:=xlFilterCopy, CopyToRange:=Range( _
"F3:H100"), Unique:=True
End Sub


obrigado

Re: Agrupamento e transposição de valores com VBA

Enviado: 14 Dez 2018 às 10:56
por gfranco
Veja se desta forma te atende.

Agrupamento e transposição de valores com VBA

Enviado: 14 Dez 2018 às 13:33
por werlewow
Amigo, nao tenho como te agradecer mais, era exatamente isso, MUITO OBRIGADO.

Esse fórum é de longe o melhor!

Gratidão!