Este fórum foi descontinuado. LEIA AQUI e participe da Comunidade BABOO :)

Ir para conteúdo
mts123456

Como transformar coluna em linha no Excel ???

Mensagem Recomendada

Seguinte galera, tenho essa planilha no Excel

MESES VALORES

Janeiro R$1.000,00

Fevereiro R$200,00

Março R$3.000,00

Queria transformar a coluna VALORES em uma linha com os mesmos valores. Por exemplo, deixa-lo:

R$3.000,00 R$200,00 R$1.000,00

Se eu usar o "colar especial/transpor" ele cola os valores da seguinte forma:

R$1.000,00 R$200,00 R$3.000,00

Quero deixa-lo assim: R$3.000,00 R$200,00 R$1.000,00

Agradeço qualquer ajuda...

Compartilhar este post


Link para o post
Compartilhar em outros sites

A função Transpor deve resolver o seu caso, mas é mais fácil você ordenar sua tabela pelos meses (de Z => A) então usar colar especialtranspor.

Compartilhar este post


Link para o post
Compartilhar em outros sites

Sim amigo, mas imagina fazer isso p/ 1000 planilhas diferentes. Se pudesse bolar algum tipo de macro ou comando que fizesse isso automaticamente ajudaria muito meu serviço. 1.gif

Compartilhar este post


Link para o post
Compartilhar em outros sites

cara, talvez isso resolva seu problema!

coloque este trecho d código em um botao (BOTAO DA BARRA DE FORMULÁRIOS) atribuindo a ele esta macro, você precisa criar a macro.

IGNORE AS QUEBRAS DE TEXTO DESTE CAMPO DO FORUM.

Sub transformar()

Dim COL_ORIGEM, LINHA_ORIGEM, FAIXA, CONT, LINHA_DESTINO, COL_DESTINO As Integer

LINHA_ORIGEM = 2 'LINHA INICIAL ONDE CONTEM OS DADOS ORIGEM

COL_ORIGEM = 2 ' COLUNA INICIAL ONDE CONTEM OS DADOS ORIGEM

LINHA_DESTINO = 2 'PRIMEIRA LINHA DE DESTINO

COL_DESTINO = 3 'COLUNA DE DESTINO DOS DADOS

FAIXA = 12 'QUANTIDADE DE LINHAS PARA CONVERTER, NESTE CASO OS MESES

For CONT = 0 To FAIXA - 1

ActiveSheet.Cells(LINHA_DESTINO, COL_DESTINO + CONT).Value = "" 'LIMPA OS DADOS ANTIGOS, NO CASO DE UMA NOVA CONVERSAO

ActiveSheet.Cells(LINHA_DESTINO, COL_DESTINO + CONT).Value = ActiveSheet.Cells(LINHA_ORIGEM + CONT, COL_ORIGEM).Value 'ATRIBUICAO DAS LINHAS PARA COLUNAS

ActiveSheet.Cells(LINHA_ORIGEM + CONT, COL_ORIGEM).Value = "" 'LIMPA A COLUNA DE SALARIO, AGORA EM VARIAS COLUNAS, você PODE SUMPRIMIR CASO QUEIRA MANTER AS INFORMACOES NO FORMATO ANTIGO

Next

End Sub

falouww...

qlqr coisa poste outra msg,

abraco.


--

IgorOzz

Diga NAO ao spam.

==============================================

Pentium D Dual Core 2.8GHz + 1GB DDR2 RAM

L2 Cache 2x1MB + L1 Cache 2x128KB

2xSATA 80GB HDD - Dual LCD 17" - Radeon X600 256MB

Compartilhar este post


Link para o post
Compartilhar em outros sites

×
×
  • Criar Novo...