Fóruns
Microsoft Excel - 2...
2024 - VBA & Macros
Copiar informações ...
 
Notifications
Clear all

Copiar informações de Colunas para Linhas

 
2024 - VBA & Macros
4 Posts
2 Usuários
0 Reactions
936 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
 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
Fernando Fernandes
 Fernando Fernandes
(@fernandofernandes)
Posts: 43750
Illustrious Member
 

Boa tarde!!

Talvez eu não tenha entendido, enfim que bom que resolveu.

Para saber sobre Loop:

http://www.databison.com/index.php/vba- ... h-in-next/
http://www.meubairroaki.com/artigo/Artigo.aspx?id=19
http://doutorexcel.wordpress.com/2011/0 ... -wend-vba/
http://msdn.microsoft.com/en-us/library ... 47(v=vs.80).aspx
http://www.learn.net.au/vba/vba-loops

Att

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

 
Postado : 18/02/2013 10:47 am
Forum Jump:
  Tópico Anterior
Próximo Tópico