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

 > 

  • Pergunta

  • Question
    Entrar para Votar
    0
    Entrar para Votar

    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

  • Question
    Entrar para Votar
    0
    Entrar para Votar

    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

  • Question
    Entrar para Votar
    0
    Entrar para Votar

    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
    |
  • Question
    Entrar para Votar
    0
    Entrar para Votar
    Muito obrigado Rafael ! Funcionou perfeitamente.
    terça-feira, 12 de julho de 2016 11:28
    |