Este fórum está sendo desativado

[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!

[gfranco]

Bom dia.
Veja se o anexo lhe ajuda.
At
gfranco.

[DJunqueira]

Fórmula alternativa.

[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!!

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

[gfranco]

Boa noite.
Veja se o anexo lhe ajuda.
At
Gfranco

[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!

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)