Notifications
Clear all

[Resolvido] Transferir dados de colunas

3 Posts
2 Usuários
1 Reactions
1,080 Visualizações
(@castoldi)
Posts: 2
New Member
Topic starter
 

Bom dia pessoal, estou usando a macro abaixo para transferir os dados da Plan1 para a Planilha1 a COLUNA A. Porém preciso transferir os dados da coluna B,C,D também, porém preciso transferir os dados das colunas para a Planilha1 nessa ordem: A-D-C-B.

Alguem poderia me ajudar?

Sub copiarDadosEntrePlanilhas()
Sheets("Plan1").Range("A:A").Copy
Sheets("Planilha1").Activate
Range("A1").Select
ActiveSheet.Paste
Application.CutCopyMode = False

End Sub

Editado pela Moderação. Motivo: Procure utilizar o botão Código (< >) sempre que for inserir código VBA ou Fórmulas.
 
Postado : 03/09/2020 12:11 pm
(@deyvidbr)
Posts: 10
Active Member
 
Sheets("Plan1").Range("A:A").Copy
Sheets("Planilha1").Activate
Range("A1").Select
ActiveSheet.Paste
Application.CutCopyMode = False

Sheets("Plan1").Range("d:d").Copy
Sheets("Planilha1").Activate
Range("b1").Select
ActiveSheet.Paste
Application.CutCopyMode = False

Sheets("Plan1").Range("c:c").Copy
Sheets("Planilha1").Activate
Range("c1").Select
ActiveSheet.Paste
Application.CutCopyMode = False

Sheets("Plan1").Range("b:b").Copy
Sheets("Planilha1").Activate
Range("d1").Select
ActiveSheet.Paste
Application.CutCopyMode = False

Editado pela Moderação. Motivo: Procure utilizar o botão Código (< >) sempre que for inserir código VBA ou Fórmulas.

 
Postado : 03/09/2020 12:19 pm
Castoldi reacted
(@castoldi)
Posts: 2
New Member
Topic starter
 

@deyvidbr

Obrigado meu amigo, funcionou.

 
Postado : 03/09/2020 3:06 pm