Macro para Transpor tabela de coluna para linhas

[igormacedo]

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

 

Tabela com dados transpostos

 

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

[Curso de Excel Grátis]

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.

[Curso de Excel Grátis]

obrigado pelo detalhamento Igor, da pra montar sim, vou tentar montar hoje no fim do dia e te mando a macro explicando os detalhes.

[Curso de Excel Grátis]

 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 .

Editado Abril 21, 2021 por Curso de Excel Grátis

[Curso de Excel Grátis]

obrigado pelo retorno positivo Igor e fico muito contente que tenha dado certo, lamentavelmente o som do video ficou péssimo, acho que foi ontem quando sai da mesa e esqueci de tirar o mic da lapela KKKK 

 

Aproveite para acessar e assinar meu novo canal no youtube 

http:\\cursodeexcelgratis.com.br\canal

Editado Maio 8, 2021 por Curso de Excel Grátis

[igormacedo]

@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

 

Resultado Desejado

 

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

 

[igormacedo]

@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.