none
Macro para copiar e colar na próxima coluna RRS feed

  • 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



    segunda-feira, 11 de julho de 2016 21:12

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

    terça-feira, 12 de julho de 2016 03:05

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

    terça-feira, 12 de julho de 2016 03:05
  • Muito obrigado Rafael ! Funcionou perfeitamente.
    terça-feira, 12 de julho de 2016 11:28