Página 1 de 1

Transpor uma única Coluna para algumas Colunas

Enviado: 03 Dez 2016 às 02:02
por Otalivio
Olá!!

tenho uma planilha onde tenho dados de um relatório q vao da célula A10 ate a célula A"alguma coisa", pois essa coluna varia de acordo com o dia em que o relatório foi gerado.

Preciso de um código que faça a transposição da coluna para a linha, mas não a transposição como existe na opção "colar especial" pois essa opção transforma a coluna inteira numa única linha.

Preciso transpor esses dados da coluna A para as colunas B ate F, ou seja, preenche de B10 ate F10 e depois continua de B11 até F11, depois B12 até F12, etc, até que os dados da coluna A tenham terminado.

Espero ter-me feito entender!

Valeu!

Re: TRANSPOR UMA UNICA COLUNA PARA ALGUMAS COLUNAS

Enviado: 03 Dez 2016 às 04:38
por gfranco
Bom dia.
Veja se o anexo lhe ajuda.
At
gfranco.

Re: TRANSPOR UMA UNICA COLUNA PARA ALGUMAS COLUNAS

Enviado: 03 Dez 2016 às 04:50
por DJunqueira
Fórmula alternativa.

Re: TRANSPOR UMA UNICA COLUNA PARA ALGUMAS COLUNAS

Enviado: 03 Dez 2016 às 17:58
por Otalivio
gfranco e DJunqueira,

obrigado pela ajuda! Eu vi a fórmula de vocês e estou até agora tentando entender :)

Mas, o que eu preciso é que isso esteja num código VBA. Mas, acho que já sei o que vou fazer: vou gravar uma macro digitando a formula, abro o VBA e vejo como ficou! :)

Obrigado de novo pela ajuda!!

TRANSPOR UMA UNICA COLUNA PARA ALGUMAS COLUNAS

Enviado: 03 Dez 2016 às 18:06
por gfranco
Boa noite.
É possível também fazer com vba.
Me diga.
Os dados não tem cabeçalho? A transposição deve ser feita desde A1 até a ultima preenchida na coluna A?
Aguardo retorno.

Re: TRANSPOR UMA UNICA COLUNA PARA ALGUMAS COLUNAS

Enviado: 03 Dez 2016 às 20:44
por gfranco
Boa noite.
Veja se o anexo lhe ajuda.
At
Gfranco

Re: Transpor uma única Coluna para algumas Colunas

Enviado: 26 Dez 2016 às 20:23
por Otalivio
GFranco,

cara, eu nem vi sua macro, mas valeu de qquer forma!

Hj qdo acordei, veio esse código aqui embaixo na minha mente e DEU CERTO! :o
Código: Selecionar todos
seq = 1
lin = 1

    Do While Range("A" & seq).Value <> ""
    
    
        For col = 2 To 7
        
            ActiveSheet.Cells(lin, col).Activate
            Range("A" & seq).Copy
            ActiveCell.PasteSpecial (xlPasteValues)
    
            seq = seq + 1
        
        Next
        
    lin = lin + 1
    
    Loop
no caso, eu chame de "seq" as linhas para a coluna A e "lin" para preencher as linhas das colunas B até a G (no caso, com a variável "col" de 2 té 7)