Jump to content
Fórum Script Brasil
  • 0

Macro para Transpor tabela de coluna para linhas


Question

Olá,
Para quem puder me auxiliar, estou tentando montar uma macro e acionar por um botão para que faça o seguinte:

• Pegar as informações de uma tabela simples e transpor os dados como nos exemplos.
• Como essa tabela é dinâmica o número de colunas pode variar assim como as linhas.
• A intenção é que cada cabeçalho da coluna entre novamente como título das linhas que estão na sequência.

Tabela Original

tabela01.jpg.3aa80fd9347f5c4777b2886f2673a645.jpg

 

Tabela com dados transpostos

tabela02.jpg.22d2e9ee9598ef842aad29ea076d0875.jpg

 

Alguém pode me sugerir como fazer isso? Desde já, grato.

Link to post
Share on other sites

6 answers to this question

Recommended Posts

  • 1

oi, boa noite, eu consigo te ajudar, pode ser feito com o gravador de macros e em seguida ajustar os loopings, porém é importante saber se existem células vazias, pois a macro normalmente é feita para terminar o looping quando encontra uma célula vazia. quer dizer que se no meio tem uma célula vazia vai dar problema.

 

Se puder, mande o arquivo de excel para avaliar.

Link to post
Share on other sites
  • 1

 oi, acabei de finalizar a planilha e o video explicando como fazer 

uma pena que o audio ficou uma porcaria 😞

 

na descrição do video tem o link para baixar a planilha também

espero ter ajudado e se der qualquer problema me avisa .

Edited by Curso de Excel Grátis
Link to post
Share on other sites
  • 0

@Curso de Excel Grátis Boa noite,

Explicando com mais detalhes.
• A primeira linha de cada coluna não terá espaços vazios.
Sempre terá informação mas pode variar a quantidade de colunas. Acredito que com uma seleção de toda a primeira linha por uma expressão semelhante a essa Range("A1").End(xlToRight) a parte de contagem do número total de colunas seja viável e facilite o restante da macro.
• Cada informação em sua respectiva coluna nas linhas seguintes terão células vazias.

Segue uma imagem mais detalhada. O arquivo em excel não consegui upar aqui, mas é qualquer informação como na imagem, vou colocar o texto em CSV para auxiliar.

Dados
tabela03.jpg.efd7349e4cb60ddf806c59322c279023.jpg

 

Resultado Desejado
tabela04.jpg.d26455fb54e402705edd3f2d65efbad5.jpg

 

Nome,Idade,Tipo,Valor,Nota,PGTO
Marcos,20,Coletor,10,casa,Boleto
Alice,40,Vendedor,40.8,,Cartao
Juliano,80,Cliente,25,apto 55,Dinheiro
Maria,30,Cliente,35.5,,Boleto

 

Link to post
Share on other sites
  • 0

@Curso de Excel Grátis Olá. Muito obrigado e parabéns pelo vídeo, era exatamente isso!

Sua forma de explicação gravando cada passo das etapas desejadas para a macro são excelentes para iniciantes, como eu. Assim o entendimento do que de fato é feito ajuda a aprender mesmo. Essa forma de depurar é muito eficiente.

A junção de cada etapa com call, do while e loop que fazem toda a diferença pra mim. Eu não sabia como referenciar as subs.

• A única mudança que precisei fazer foi colocar o nome personalizado da minha planilha na sub SelecionarPlanilha1
 

Sub SelecionarPlanilha1()
    Sheets("NomePersonalizadoAqui").Select
End Sub

Estou elaborando uma planilha que faz algumas formatações simples e exportações, assim que estiver mais robusta compartilharei aqui.

Grato.

Link to post
Share on other sites

Join the conversation

You can post now and register later. If you have an account, sign in now to post with your account.

Guest
Answer this question...

×   Pasted as rich text.   Paste as plain text instead

  Only 75 emoji are allowed.

×   Your link has been automatically embedded.   Display as a link instead

×   Your previous content has been restored.   Clear editor

×   You cannot paste images directly. Upload or insert images from URL.



  • Forum Statistics

    • Total Topics
      149264
    • Total Posts
      645605
×
×
  • Create New...