Usuário com melhor resposta
Macro para copiar e colar na próxima coluna

Pergunta
-
Prezados
Boa noite,
Alguém poderia me auxiliar por favor. Estou tentando elaborar uma macro que selecione os valores da Coluna B, e colasse na próxima coluna a direita. Sendo que vou utilizar como histórico, então a cada dia teria que colar na próxima coluna vazia.
Abaixo print de como esta a estrutura da minha tabela:
Ate o momento cheguei na macro abaixo:
Sub Cppc()
'SELECIONA O RANGE DEFINIDO
Range("B2:B300").Select
Selection.Copy
'COPIA OS VALORES SELECIONADOS PARA AS PROXIMAS CELULAS VAZIAS
Range("C1048576:AQ1048576").End(xlUp).Offset(1, 0).Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Application.CutCopyMode = False
End Sub
----------------------------------------------------------------------------------------------------
O problema que ela copia e cola na proxima linha vazia, e nao na proxima coluna.
Alguem poderia me dar uma luz por favor ?
Att
Vitor
- Editado Vitor Augusto Werneck segunda-feira, 11 de julho de 2016 21:13
Respostas
-
Modifique para:
Sub Cppc() 'SELECIONA O RANGE DEFINIDO Range("B2:B300").Select Selection.Copy 'COPIA OS VALORES SELECIONADOS PARA AS PROXIMAS CELULAS VAZIAS Range("A2").End(xlToRight).Offset(0, 1).Select Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ :=False, Transpose:=False Application.CutCopyMode = False End Sub
Rafael Kamimura - http://excelmaniacos.com
- Marcado como Resposta Vitor Augusto Werneck terça-feira, 12 de julho de 2016 11:28
Todas as Respostas
-
Modifique para:
Sub Cppc() 'SELECIONA O RANGE DEFINIDO Range("B2:B300").Select Selection.Copy 'COPIA OS VALORES SELECIONADOS PARA AS PROXIMAS CELULAS VAZIAS Range("A2").End(xlToRight).Offset(0, 1).Select Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ :=False, Transpose:=False Application.CutCopyMode = False End Sub
Rafael Kamimura - http://excelmaniacos.com
- Marcado como Resposta Vitor Augusto Werneck terça-feira, 12 de julho de 2016 11:28
-