Copiar informações de Colunas para Linhas

2024 - VBA & Macros

Post Recente por Fernando Fernandes 12 anos atrás

4 Posts

2 Usuários

0 Reactions

939 Visualizações

RSS

celsoyano

(@celsoyano)

Posts: 75

Trusted Member

Topic starter

Boa tarde,
Pessoal, tenho duas planilhas: "Dados" e "Arquivo". Na planilha "Dados" informaçoes em coluna para facilitar a vizualizacao ... cada coluna um registro.

Para gerar um arquivo texto e importar em um determinado software, preciso dispor essas informacoes em linha na plan "Arquivo"

Ou seja .. a Coluna "C" da plan dados .. corresponderá a linha 2 da plan "Arquivos"
............a Coluna "D"____________________________linha 3________________
.............a Coluna "E"____________________________linha 4________________
e assim por diante
(copiar as informações de coluna para linha.)

Gostaria de uma macro que vizesse isso

obs:
O número de colunas da Plan "Dados" é variavel. Tanto na plan "Dados" quanto na "Arquivo" estão na msm sequencia.

Obrigado a quem puder me ajudar

Postado : 17/02/2013 4:28 pm

Fernando Fernandes

(@fernandofernandes)

Posts: 43750

Illustrious Member

Boa noite!!

Não sei se entendi....

Sub Trasnp_AleVBA()
Worksheets("ARQUIVO").Range("A1").Resize(1, 139).Value = Application.Transpose(Worksheets("LAYOUT").Range("A1:A139"))
End Sub

Existem mil maneiras de preparar Neston. Invente a sua!
http://www.youtube.com/ExpressoExcel

Postado : 17/02/2013 6:50 pm

celsoyano

(@celsoyano)

Posts: 75

Trusted Member

Topic starter

Boa tarde,
Alexandre, o código que vc sugeriu não deu certo, mas eu consegui uma solução. Antes eu não estava conseguindo colocar um loop for/next dentro de outro. Acho q não pode né. Ai eu "Do While" e dentro dele o "For/Next".
Mas Obrigado pela sugestão.

Sub A_Macro1()
Dim UColuna As Integer
UColuna = 99
L = 2
C = 3
X = 1
Y = 1
Do While Y < UColuna
        For i = 1 To 99
        Sheets("arquivo").Cells(L, i) = Sheets("DADOS").Cells(i, C).Value
        Next
L = L + 1
C = C + 1
Y = Y + 1
Loop

End Sub

Postado : 18/02/2013 10:35 am